X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-addrmgr.el;h=5c27f35aa1f84f900f17661cbd09490a9761e00d;hb=824fe18b2ad090f609041a4af11de484bdb7e3a8;hp=aaada7c3d196ea74a40108878054d9dbd89b7b11;hpb=b1ded2f281cc42eb6265af70215c63872a51ebfb;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-addrmgr.el b/wl/wl-addrmgr.el
index aaada7c..5c27f35 100644
--- a/wl/wl-addrmgr.el
+++ b/wl/wl-addrmgr.el
@@ -34,6 +34,7 @@
 
 (require 'wl-address)
 (require 'wl-draft)
+(eval-when-compile (require 'cl))
 
 ;; Variables
 (defgroup wl-addrmgr nil
@@ -187,7 +188,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."