From: yoichi <yoichi>
Date: Fri, 3 Nov 2006 03:21:11 +0000 (+0000)
Subject: * elmo-spam.el (elmo-spam-process-messages-as-mbox): Fix problem
X-Git-Tag: wl-2_15_6-fixes~133
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c42cef18da9b3a56421aef97724554d9950d42ea;p=elisp%2Fwanderlust.git

* elmo-spam.el (elmo-spam-process-messages-as-mbox): Fix problem
of flusing priviously inserted message contents.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 2d8c670..d7aa030 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,8 @@
 2006-11-03  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
+	* elmo-spam.el (elmo-spam-process-messages-as-mbox): Fix problem
+	of flusing priviously inserted message contents.
+
 	* elmo-imap4.el (elmo-folder-search): Fix return value.
 
 2006-11-01  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
diff --git a/elmo/elmo-spam.el b/elmo/elmo-spam.el
index 3a05c8b..e197fe5 100644
--- a/elmo/elmo-spam.el
+++ b/elmo/elmo-spam.el
@@ -137,7 +137,10 @@ If optional argument RESTORE is non-nil, unregister from spam list.")
 	(while (and numbers (< count number-per-process))
 	  (insert "From MAILER-DAEMON@example.com\n")
 	  (let ((begin (point)))
-	    (elmo-spam-message-fetch folder (car numbers))
+	    (insert
+	     (with-temp-buffer
+	       (elmo-spam-message-fetch folder (car numbers))
+	       (buffer-string)))
 	    (goto-char begin)
 	    (while (re-search-forward "^>*From " nil t)
 	      (goto-char (match-beginning 0))