* wl-util.el (wl-read-shell-commande): New function or alias.

[elisp/wanderlust.git] / wl / wl-addrmgr.el

diff --git a/wl/wl-addrmgr.el b/wl/wl-addrmgr.el
index 8443e58..4c121a8 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."
@@ -184,7 +187,9 @@ See info under Wanderlust for full documentation.
        (wl-parse-addresses
        (mapconcat
         'identity
-        (elmo-multiple-fields-body-list '("to" "cc" "bcc")) ","))))))
+        (elmo-multiple-fields-body-list '("to" "cc" "bcc")
+                                        mail-header-separator)
+        ","))))))
 
 (defun wl-addrmgr-merge-entries (base-list append-list)
   "Return a merged list of address entiry."