[Mew-dist 06079] Re: an excess LF with mew-config-insert-when-prepared

[SAKAI Kiyotaka]

>> In article <19980820135950Y.shirai at example.com>, Hideyuki SHIRAI (白井秀行) <Shirai at example.com> writes:

> 例えば、
> (setq mew-config-guess-alist '((nil . "queue")))
> (setq mew-config-insert-when-prepared t)))
> のようにしておいて draft を用意したときに、

> Mime-Version: 1.0
> Config: queue
> ----
> 改行
> ← ここが (point-max)

> というように、mew-header-separater の後に余分な改行だけの行が含
> まれます。

mew-draft-insert-config を実行するときに、最初に draft buffer を用意す
るときは "---" がない状態にもかかわらず mew-draft-rehighlight が実行さ
れるために、余分な改行が挿入されてしまうのが原因ですね。

以下のパッチのように、mew-draft-insert-config が 'here 付きで呼び出さ
れたときは、mew-draft-rehighlight を実行しないようにすればいいかと思い
ます。
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
===================================================================
RCS file: RCS/mew-draft.el,v
retrieving revision 1.1
diff -u -r1.1 mew-draft.el
--- mew-draft.el	1998/08/21 06:14:35	1.1
+++ mew-draft.el	1998/08/21 06:40:02
@@ -959,8 +959,8 @@
 	    (goto-char (mew-header-end))
 	    (mew-header-insert-here mew-config: config-new)
 	    (forward-line -1)
-	    (end-of-line))
-	  (mew-draft-rehighlight)))))
+	    (end-of-line)
+	    (mew-draft-rehighlight))))))
 
 (defun mew-draft-insert-signature ()
   "Insert the signature file specified by mew-signature-file.