From c42cef18da9b3a56421aef97724554d9950d42ea Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 3 Nov 2006 03:21:11 +0000 Subject: [PATCH] * elmo-spam.el (elmo-spam-process-messages-as-mbox): Fix problem of flusing priviously inserted message contents. --- elmo/ChangeLog | 3 +++ elmo/elmo-spam.el | 5 ++++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + * 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 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)) -- 1.7.10.4