From: hmurata <hmurata>
Date: Wed, 5 Jan 2005 15:35:37 +0000 (+0000)
Subject: (wl-addrmgr-pickup-entry-list): Call
X-Git-Tag: wl-2_14-root~99
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c1b75f21fe27c0032f3d2836a4532ddc6bb5b14f;p=elisp%2Fwanderlust.git

(wl-addrmgr-pickup-entry-list): Call
'elmo-multiple-fields-body-list' with boundary specified.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 1c873a8..e67b1fe 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-05  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-addrmgr.el (wl-addrmgr-pickup-entry-list): Call
+	'elmo-multiple-fields-body-list' with boundary specified.
+
 2005-01-05  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* wl-vars.el (wl-summary-resend-use-cache): New variable.
diff --git a/wl/wl-addrmgr.el b/wl/wl-addrmgr.el
index aaada7c..4c121a8 100644
--- a/wl/wl-addrmgr.el
+++ b/wl/wl-addrmgr.el
@@ -187,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."