From f43765ab50201e8bf8e7c31d6c63363682b964eb Mon Sep 17 00:00:00 2001
From: hmurata <hmurata>
Date: Wed, 5 Oct 2005 09:16:40 +0000
Subject: [PATCH] (wl-draft-attribute-recipients): Added mime-bcc field value
 into recipients; Bind `wl-draft-remove-group-list-contents'
 as nil.

---
 wl/ChangeLog  |    6 ++++++
 wl/wl-mime.el |   33 ++++++++++++++++++---------------
 2 files changed, 24 insertions(+), 15 deletions(-)

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
-- 
1.7.10.4