(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 (file)
--- 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 (file)
--- 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