From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 23 May 2007 07:50:18 +0000 (-0700)
Subject: only use the body, not attachments, in Estraier
X-Git-Tag: release/2.6.0~562^2~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a0715632f16ac6302e27b24060dee8f257992d04;p=debbugs.git

only use the body, not attachments, in Estraier
---

diff --git a/Debbugs/Estraier.pm b/Debbugs/Estraier.pm
index a079a20c..f2f6cb8e 100644
--- a/Debbugs/Estraier.pm
+++ b/Debbugs/Estraier.pm
@@ -29,6 +29,7 @@ use Search::Estraier;
 use Date::Manip;
 use Debbugs::Common qw(getbuglocation getbugcomponent);
 use Debbugs::Status qw(readbug);
+use Debbugs::MIME qw(parse);
 
 BEGIN{
      ($VERSION) = q$Revision: 1.3 $ =~ /^Revision:\s+([^\s+])/;
@@ -112,7 +113,9 @@ sub add_bug_message{
      my $uri = "$bug_num/$msg_num";
      $doc = $est->get_doc_by_uri($uri);
      $doc = new Search::Estraier::Document if not defined $doc;
-     $doc->add_text($bug_message);
+
+     my $message = parse($bug_message);
+     $doc->add_text(join('',values %{$message}));
 
      # * @id : the ID number determined automatically when the document is registered.
      # * @uri : the location of a document which any document should have.