[Mew-dist 3144] guess Config: when replying

[Maybe TABOO]

送信時に Config: を guess してくれるのと同様、リプライ作成時にも guess 
するようにするパッチです。1.93b6 用。

挿入場所は個人的に見やすいと思うセパレータの直上にしました。

--- mew-draft.el.ORG	Wed Dec  3 22:39:58 1997
+++ mew-draft.el	Thu Dec 11 21:03:43 1997
@@ -441,7 +441,6 @@
   (and mew-cc   (mew-header-insert-here "Cc:" mew-cc))
   (mew-header-insert-here "Subject:" (if subject subject "")) ;; tricky
   (and mew-from (mew-header-insert-here "From:" mew-from))
-  (and mew-config (mew-header-insert-here "Config:" mew-config))
   (and mew-fcc  (mew-header-insert-here "Fcc:" mew-fcc))
   (and mew-dcc  (mew-header-insert-here "Dcc:" mew-dcc))
   (and mew-reply-to (mew-header-insert-here "Reply-To:" mew-reply-to))
@@ -470,6 +469,9 @@
       (setq halist (cdr halist)))
     )
   (mew-header-insert-here "Mime-Version:" mew-mv:-num)
+  (let ((config (mew-config-guess-by-alist)))
+    (if config (mew-header-insert-here "Config:" (car config))
+      (and mew-config (mew-header-insert-here "Config:" mew-config))))
   (insert mew-header-separator "\n")
   (mew-draft-refresh)
   (if nl (insert "\n"))


----
ＮＥＣ ネットワーキング技術研究所 ＆ 慶應義塾ＳＦＣ研究所
こがよういちろう <y-koga at example.com> 他