From: hmurata <hmurata>
Date: Wed, 5 Oct 2005 09:16:40 +0000 (+0000)
Subject: (wl-draft-attribute-recipients): Added mime-bcc field
X-Git-Tag: wl-2_15_3~50
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f43765ab50201e8bf8e7c31d6c63363682b964eb;p=elisp%2Fwanderlust.git

(wl-draft-attribute-recipients): Added mime-bcc field
value into recipients; Bind `wl-draft-remove-group-list-contents'
as nil.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 63c2bb1..51aa66b 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2005-10-05  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-mime.el (wl-draft-attribute-recipients): Added mime-bcc field
+	value into recipients; Bind `wl-draft-remove-group-list-contents'
+	as nil.
+
 2005-09-24  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-summary.el (wl-summary-sort): Fixed the last change.
diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 2b05af2..401feba 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -224,21 +224,24 @@ It calls following-method selected from variable
       (kill-buffer buffer))))
 
 (defun wl-draft-attribute-recipients ()
-  (concat (mapconcat
-	   'identity
-	   (wl-draft-deduce-address-list
-	    (current-buffer)
-	    (point-min)
-	    (save-excursion
-	      (goto-char (point-min))
-	      (re-search-forward
-	       (concat
-		"^"
-		(regexp-quote mail-header-separator)
-		"$")
-	       nil t)
-	      (point)))
-	   ", ")))
+  (let (wl-draft-remove-group-list-contents)
+    (mapconcat
+     'identity
+     (nconc
+      (wl-draft-deduce-address-list
+       (current-buffer)
+       (point-min)
+       (save-excursion
+	 (goto-char (point-min))
+	 (re-search-forward
+	  (concat
+	   "^"
+	   (regexp-quote mail-header-separator)
+	   "$")
+	  nil t)
+	 (point)))
+      (wl-draft-parse-mailbox-list wl-draft-mime-bcc-field-name))
+     ", ")))
 
 (defun wl-draft-attribute-envelope-from ()
   (or wl-envelope-from