* 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.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f248bb6..412431d 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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)