[Mew-dist 05932] Re: (Q)Reply時の定型文書挿入?

[Akihiro Motoki]

元木です。

★ Hisaaki Shibata <shibata at example.com>さんが
★ Sun, 16 Aug 1998 03:43:55 +0900 頃に書いた
★「[Mew-dist 05930] (Q)Reply時の定型文書挿入?」の記事では..

> 柴田(ひ)＠福岡です。
> 
> http://www.mew.org/FAQ/FAQ05/index-j.html#5.9
> を参考にさせて頂き、上記の「柴田(ひ)＠福岡です。」は.emacsの下記のような設定で
> 自動で入るようになったのですが、
(略)
> Replyの場合は、引用したメールのあとに定型文書が入って、間抜けなことになっています(^^;
> 
> Replyの時には、別に下記のように.emacsに書いてまして、両方生きてます。
> 
> ;Reply時の引用ヘッダ
> (defvar mew-cite-format "柴田(ひ)＠福岡です。\n\nFrom: %s\nSubject: %s\nDate: %s\n\n")
> (defvar mew-cite-prefix "> ")
> 
> 賢い方法をご教示下さい。

引用付きのreplyの場合は、replyの用意(mew-summary-reply)->引用 
の順番で実行されます。'A'(mew-summary-reply-with-citation)では、
ヘッダの次の行から引用を行う仕様になっていますので、
柴田さんのように、定型文書を挿入している場合などは不都合が起こります。
#これはsuperciteなどの場合も同様です。

このカーソル位置は、mew-before-cite-hook で制御できますので、
(add-hook 'mew-before-cite-hook
	(lambda () (goto-char (point-max))))
などのようにあらかじめカーソルを動かしておく必要があります。

私の設定を例にしておきます。

(defun insert-my-name ()
  (save-excursion
    (goto-char (mew-header-end))
    (next-line 1)
    (insert "元木です。\n\n")))

(add-hook 'mew-draft-mode-hook
	  (lambda ()
	    (save-excursion
	      (goto-char (point-max))
	      (insert-signature-eref)
	      (insert-my-name)
	      )))

(add-hook 'mew-before-cite-hook
	  (lambda ()
	    (re-search-forward "元木です。\n\n" nil t)
	    ))

signatureを選択して挿入して、そのあとで"元木です。\n\n" を入れています。
mew-before-cite-hookで引用の位置を調整しています。

お役にたてば。。。。それでは。
-- 
Akihiro Motoki  <mokkun at example.com>