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

[Akihiro Motoki]

元木です。

★ Maybe TABOO <y-koga at example.com>さんが
★ Wed, 28 Jan 1998 14:48:36 +0900 に書いた
★ Message-ID: <19980128144833A.y-koga at example.com> の
★「[Mew-dist 03524] Re: Mew 1.93b6: mew-config breaks out mew-config-list setting ?」の記事では..

> forward 時に Config: 行の後に空行が入ってしまうのを修正しました。
> 
> これを使って Config: を自動挿入するようにすると、Config: 行末にカーソ
> ルが行くようになるのですが (合意の仕様)、ここですぐに C-cC-y して悲し
> い思いをすることが多くなってしまいます (もちろん summary のところで A 
> を使えばいいんですけどね)。そもそも mew-draft-cite はヘッダ部では使う
> 必要ないと思うので、ヘッダ部で呼び出した場合はメッセージを表示して終了
> するようにしてみました。どうでしょう？

mew-config を 'guess にしていると、mew-config が nil にならないので、
挿入すべき Config: が存在しないときも入ってしまいます。
挿入の判定に、mew-config でなく、config-new を使用することにしました。
こがさん、これでよろしいですか？

Config: を自動挿入すると、Config: 行末にカーソルが行きますが、
理由があるのでしょうか？ 挿入された Config: の内容をチェックするという
意味はありますが、カーソルを動かさないとメールを編集できず、不便です。
本文の最初（mew-eoh2 の次の行）にカーソルを持ってきた方が便利ですが、
どうでしょうか？

上の二点の変更を実現するパッチです。

--- mew-draft.el.dist	Wed Jan 28 21:51:32 1998
+++ mew-draft.el	Thu Jan 29 07:00:10 1998
@@ -861,7 +861,7 @@
 	 (t 
 	  (setq config-new mew-config))
 	 )
-	(if (and mew-config
+	(if (and config-new
 		 (or (not config-cur)
 		     (and (not (equal config-new config-cur))
 			  (y-or-n-p
@@ -873,8 +873,8 @@
 	      (re-search-forward mew-eoh2)
 	      (beginning-of-line)
 	      (mew-header-insert-here "Config:" config-new)
-	      (forward-line -1)
-	      (end-of-line))))))
+	      (forward-line 1)
+	      (beginning-of-line))))))
 
 (defun mew-draft-insert-signature ()
   (interactive)
-- 
━━━━━━━…………‥‥・・・ ・ ・・　．
  元木 顕弘 / Akihiro Motoki            　　・
　E-mail: motoki at example.com        　・
  URL: http://www.hal.t.u-tokyo.ac.jp/~motoki/  ‘  ・・ ‥…━━☆