[Mew-dist 09756] Re: mew-summary-reply-with-citation について

Akihiro Motoki mokkun at example.com
1999年 7月 19日 (月) 12:45:34 JST


元木です。

だいぶ前の話題になりますが。

At Wed, 30 Jun 1999 00:29:36 +0900,
Subject: [Mew-dist 09510] mew-summary-reply-with-citation について
二宮 秀幸/Ninomiya Hideyuki <nin at example.com> wrote:
> 
> (おはようございます)|((こん)|(ばん)にちは)|(おやすみなさい)
> 	二宮@お四国 です。
> 
> 自分は、.emacs で、
(中略)
> の様にして、
> > (おはようございます)|((こん)|(ばん)にちは)|(おやすみなさい)
> > 	二宮@お四国 です。
> 等と言うしょうもない文句を入れるようにしたのですが、summry mode で
> "A"によって、引用リプライで draft mode に入った際、
> ----------------------------------------------------
> To: hoge chan
> Subject: inyou da yo-
> ----
> > inyo- da-
> > souda yo-
> > inyo- owaridayo-
> (おはようございます)|((こん)|(ばん)にちは)|(おやすみなさい)
> 	二宮@お四国 です。
> ----------------------------------------------------
> の様になってしまいます。
> 彼の文句は、 body の頭に持って行きたいのです。
> それで、mew-summry.el を眺め、以下のような変更をして目的を
> 達したのですがっ、これで問題無いようならば、採用して
> 頂ければと思います。
> ---8<------8<------8<------8<------8<------8<------8<---
> --- mew-summary.el.org	Mon Jun 28 11:59:03 1999
> +++ mew-summary.el	Tue Jun 29 23:34:47 1999
> @@ -1207,8 +1207,7 @@
>     (let ((mew-summary-reply-position nil))
>       (mew-summary-reply onlytofrom))
>     (save-excursion
> -     (goto-char (mew-header-end))
> -     (forward-line)
> +     (goto-char (point-max))
>       (run-hooks 'mew-before-cite-hook)
>       (mew-draft-cite))
>     ;; the cursor is after To:
> ---8<------8<------8<------8<------8<------8<------8<---

#以前、この部分に mew-before-cite-hook を入れてもらったことが
#ありますので、一応。引用が長くて、すみません。

二宮さんの変更をすると、本文の先頭に(文字|ファイル)を挿入している場合
うまく期待通りの動作するのですが、 mew-draft-mode-hook を用いて本文の最後に
signature を挿入している場合は、期待通りの動作をしてくれなくなります。

以前のようにカーソルを本文の先頭にもっていくか、二宮さんの変更のように
本文の最後にもっていくかは、二者択一になってしまいます。

そこで mew-before-cite-hook を導入してもらいました。

今回の場合 mew-before-cite-hook で (goto-char (point-max)) とすれば、
ご希望に添えたと思います。

しかし、すでにパッチは反映されているようですので、
*********************
「mew-1.94b38 以降で 署名や引用などの挿入位置がおかしくなってしまった」
という人は、mew-before-cite-hook を適宜設定して下さい。
*********************

例えば、以前と同じ動作をさせるには
 (add-hook 'mew-before-cite-hook
  '(lambda ()
    (goto-char (mew-header-end))
    (forward-line)))
のように設定すればよいでしょう。
-- 
━━━━━━━━━━━━………‥・・ ・  ・ .
  元木 顕弘 / Akihiro Motoki                  ・      ☆
 E-mail: mokkun at example.com, mokkun at example.com   ・   .
          motoki at example.com                  ・・



Mew-dist メーリングリストの案内