* 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 (file)
--- 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 (file)
--- 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))