From b1ded2f281cc42eb6265af70215c63872a51ebfb Mon Sep 17 00:00:00 2001
From: hmurata <hmurata>
Date: Fri, 2 Apr 2004 07:45:54 +0000
Subject: [PATCH] * wl-spam.el (wl-message-check-spam): Fixed problem no
 display result message.

* wl-addrmgr.el (wl-addrmgr-address-entry-list): Call
`elmo-multiple-fields-body-list' with boundary as
mail-header-separator.
---
 wl/ChangeLog     |    9 +++++++++
 wl/wl-addrmgr.el |    5 ++++-
 wl/wl-spam.el    |    5 ++---
 3 files changed, 15 insertions(+), 4 deletions(-)

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f248bb6..412431d 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,12 @@
+2004-04-02  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-spam.el (wl-message-check-spam): Fixed problem no display
+	result message.
+
+	* wl-addrmgr.el (wl-addrmgr-address-entry-list): Call
+	`elmo-multiple-fields-body-list' with boundary as
+	mail-header-separator.
+
 2004-04-01  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* wl-refile.el (wl-refile-guess-by-from): Use elmo-concat-path.
diff --git a/wl/wl-addrmgr.el b/wl/wl-addrmgr.el
index 8443e58..aaada7c 100644
--- a/wl/wl-addrmgr.el
+++ b/wl/wl-addrmgr.el
@@ -169,7 +169,10 @@ See info under Wanderlust for full documentation.
    (lambda (addr)
      (nth 1 (std11-extract-address-components addr)))
    (wl-parse-addresses
-    (mapconcat 'identity (elmo-multiple-fields-body-list (list field)) ","))))
+    (mapconcat
+     'identity
+     (elmo-multiple-fields-body-list (list field) mail-header-separator)
+     ","))))
 
 (defun wl-addrmgr-pickup-entry-list (buffer)
   "Return a list of address entiry from BUFFER."
diff --git a/wl/wl-spam.el b/wl/wl-spam.el
index fdaf248..ad1febc 100644
--- a/wl/wl-spam.el
+++ b/wl/wl-spam.el
@@ -317,12 +317,11 @@ See `wl-summary-mark-action-list' for the detail of element."
 	(number wl-message-buffer-cur-number)
 	spam)
     (message "Cheking spam...")
-    (when (elmo-spam-buffer-spam-p (elmo-spam-processor) original)
+    (when (setq spam (elmo-spam-buffer-spam-p (elmo-spam-processor) original))
       (with-current-buffer wl-message-buffer-cur-summary-buffer
 	(wl-summary-spam number)))
     (message "Cheking spam...done")
-    (when (interactive-p)
-      (message "No: %d is %sa spam message." number (if spam "" "not ")))))
+    (message "No: %d is %sa spam message." number (if spam "" "not "))))
 
 (defun wl-refile-guess-by-spam (entity)
   (when (elmo-spam-message-spam-p (elmo-spam-processor)
-- 
1.7.10.4