[Mew-dist 10119] resend/draft-mode/mew-draft-mode-hook

[藤原 誠/ Makoto Fujiwara]

  Mew をいつも有難く使わせていただいています。本当にありがとう
ございます。

  さて、いつからか、 resend で draft-mode を呼ぶようになったと
思うのですが、僕の場合、mew-draft-mode-hook で型紙のようなもの
を入れています。で、それが(当然)入ってしまって、resend が、
  Resent-To:
  Resent-From:
が付くだけではなくなってしまいました。

  これを避けたいのですが、draft-mode に入った時に、resend で呼
ばれた時以外という条件でも付ければいいかなと思っても見たのです
が、僕には良く分りませんでした。何か良い方法があったら教えてい
ただきたいと思います。

  人に見せられるものではありませんが、どうやっているのかは説明
した方がいいと思いますので、付けておきます。
---
(藤原)
-------------- next part --------------
; --------------------------------------------------
; (mew) ---- draft mode に入った時に署名などを付ける
; --------------------------------------------------
(add-hook 'mew-draft-mode-hook
        (function
         (lambda()
           ; - draft mode の時には色付けしない  -----------
           ; ----X-ML-Name: Mew-dist; X-Mail-Count: 06412
           (make-local-variable 'mew-use-highlight-body)
           (setq mew-use-highlight-body nil)
           ; -----------------------------------------------
           (search-forward "----" nil t)
           (forward-line 1)
           (insert  
">                                   "  (current-time-string)"\n"
">                                            千葉市中央区長洲\n"
">                                                    藤原  誠\n"
">                                                makoto at example.com\n"
"\n"
"\n"
"---\n"
"(藤原)\n"
     )
     (search-backward "makoto at example.com" nil t)
     (forward-line 1))))
; --------------------------------------------------