[Mew-dist 16847] Re: ReeditとConfig

[Kidzu Takashi ( 木津 隆史 )]

>>>>> In X-Mail-Count: 15741, 金野 祥久 <minnie at example.com> writes:

>> "E" (mew-summary-reedit)のときには"C" (mew-summary-set-config)した値
>> が反映されないようですので報告します。反映されるとうれしいです。

  最近 mew-summary-reedit することが多くなったので、添付のようなパッチを
作ってみました。ad hoc ですが、誰かのお役に立てば幸いです。

木津 隆史@情報数理系専攻.基礎工学研究科.阪大
kizu at example.com

-------------- next part --------------
--- mew-edit.el-DST	Wed Mar 14 11:12:42 2001
+++ mew-edit.el	Wed Mar 14 11:24:16 2001
@@ -571,11 +571,12 @@
    (mew-header-sort mew-field-order-for-reediting)
    (mew-header-goto-end)
    ;; xxx case?
-   (mew-draft-header-fill mew-from: (mew-from))
-   (mew-draft-header-fill mew-fcc: (mew-fcc))
-   (mew-draft-header-fill mew-dcc: (mew-dcc))
-;;   (mew-draft-header-fill mew-bcc: bcc)) ;; xxx
-   (mew-draft-header-fill mew-reply-to: (mew-reply-to))
+   (let ((case mew-draft-buffer-config))
+     (mew-draft-header-fill mew-from: (mew-from case))
+     (mew-draft-header-fill mew-fcc: (mew-fcc case))
+     (mew-draft-header-fill mew-dcc: (mew-dcc case))
+;;   (mew-draft-header-fill mew-bcc: bcc case)) ;; xxx
+     (mew-draft-header-fill mew-reply-to: (mew-reply-to case)))
    (mew-summary-edit-header-common)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;