[Mew-dist 03287] Re: Mew 1.93b6: mew-config breaks out mew-config-list setting ?

[Maybe TABOO]

SAKAI Kiyotaka <ksakai at example.com>:
> C-c C-m のときに、
> 
> 1. Config: ヘッダがすでに存在していれば mew-config-guess-alist による
>   推測・挿入は行わない。
> 
> 2. mew-config-guess-alist による Config: ヘッダを挿入したときには flag 
>   を立てておく。この flag は buffer-local にしておく。
> 
> 3. undo のときは、flag が立っていたときのみ Config: ヘッダの削除を行い、
>   flag を clear する。
> 
> というのでどうしょうか。
> 
> この場合、mew-config を設定していると、手動で Config: ヘッダを削除しな
> い限り mew-config-guess-alist を使わないことになります。

ナンセンスです。

guess はユーザの便宜に大きく寄与する機能ですが、これを使うためにわざわ
ざ Config: を消すくらいなら、私ならば消さずにくるくる回して自分で選び
ます。guess の設定をしていても有効に使われません。

guess が可能なタイミングは、送信先のアドレスが設定されているときです。
リプライ時にアドレスが自動設定されると同様、guess された Config: が挿
入されてもなんら変なところはありません。むしろ自然と言ってもよいでしょ
う。これが便利なのは Config: の使い分けを多用する人には理解できると思
います。

リプライ時に guess したものを挿入するようにするパッチです (1.93b8 用)。

--- mew-draft.el.ORG	Mon Dec 15 16:19:40 1997
+++ mew-draft.el	Fri Dec 26 14:20:03 1997
@@ -442,7 +442,7 @@
   (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-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))
@@ -471,6 +471,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>