* wl-draft.el (wl-draft-send): Remove duplicate "Bcc" and add

"From" entry to be treated with wl-draft-eword-encode-address-list.
* wl-mime.el (wl-draft-preview-message): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 9329501..aa826ab 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2003-02-08  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
+       * wl-draft.el (wl-draft-send): Remove duplicate "Bcc" and add
+       "From" entry to be treated with wl-draft-eword-encode-address-list.
+       * wl-mime.el (wl-draft-preview-message): Ditto.
+
        * wl-summary.el (wl-summary-mark-as-read): Take list of numbers.
        (wl-summary-mark-as-unread): Ditto.
        (wl-summary-mark-as-read-region): Change accordingly.

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 0353d3c..94ed443 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1274,7 +1274,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
            (let ((mime-header-encode-method-alist
                   (append
                    '((wl-draft-eword-encode-address-list
-                      .  (To Cc Bcc Resent-To Resent-Cc Bcc Resent-Bcc)))
+                      .  (To Cc Bcc Resent-To Resent-Cc Resent-Bcc From)))
                    (if (boundp 'mime-header-encode-method-alist)
                        (symbol-value 'mime-header-encode-method-alist)))))
              (run-hooks 'mail-send-hook) ; translate buffer

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index e057837..cc0d236 100644 (file)
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -152,7 +152,7 @@ It calls following-method selected from variable
         (mime-header-encode-method-alist
          (append
           '((wl-draft-eword-encode-address-list
-             .  (To Cc Bcc Resent-To Resent-Cc Bcc Resent-Bcc)))
+             .  (To Cc Bcc Resent-To Resent-Cc Resent-Bcc From)))
           (if (boundp 'mime-header-encode-method-alist)
               (symbol-value 'mime-header-encode-method-alist))))
         mime-view-ignored-field-list   ; all header.