[Mew-dist 10958] Re: I'd like to change headers
Takayoshi TK KAWATE
taka at example.com
1999年 10月 16日 (土) 22:35:55 JST
こんにちは。かわてです。どうも理解が悪くてすみません(--;)
In the message "[Mew-dist 10950] Re: I'd like to change headers",
On Sat, 16 Oct 1999 13:28:17 +0900,
Shun-ichi GOTO <gotoh at example.com> wrote:
> いえ、~/.im/Config に空っぽの "case xxx" を加えるだけです。
> #もちろん、空でなくても構いません。
(snip)
> (mew-guess-header) により、 draft 内でヘッダが書き換えられるのです。
> 当然、それを目視で確認できます。
空っぽの"case xxx"を設定してみましたが,[Mew-dist 10943]と合
わせて設定してみたのですが,どうもうまく機能してくれません。
設定が悪いというのは分かっているのですけど。
#mew-config-guessの辺がちょっと分からないのです。
いろいろ試して,添付ファイルのようにしてみたところ,Fromによっ
てヘッダを変えることができるようになりました。C-cC-dで自分で
ヘッダを変えるだけでなく,メール送信時に自動でヘッダをつけて
くれるようになりました。
これが正解とは思いませんが,とりあえず希望するような動作をし
てくれるようにはなりました。
-----
Takayoshi "TK" KAWATE
taka at example.com
-------------- next part --------------
;;
;; mew-guess.el
;;
(add-hook 'mew-init-hook
(lambda ()
(require 'mew-guess)
(define-key mew-draft-header-map "\C-c\C-v" 'mew-guess-template)
(define-key mew-draft-header-map "\C-c\C-d" 'mew-guess-header)
(define-key mew-draft-body-map "\C-c\C-v" 'mew-guess-template)
(define-key mew-draft-body-map "\C-c\C-d" 'mew-guess-header)
))
;(setq mew-config-insert-when-prepared t
; mew-config-insert-when composed t
;; mew-config-guess-alist '()
; )
(setq mew-guess-header-alist
'(
("X-Uri:"
("From:"
("KAWATE Takayoshi <kawate at example.com>"
"http://www.hitachi.co.jp/Div/perl/"))
(t "http://www.kawate.net/"))
("Organization:"
("From:"
("KAWATE Takayoshi <kawate at example.com>"
"Production Engineering Research Laboratory, Hitachi, Ltd."))
(t "TKnet, The TK Networks :)"))
))
(defadvice mew-draft-insert-config (after replace-field activate)
(if (not (mew-header-get-value "Resent-To"))
(mew-guess-header)))
(defadvice mew-draft-make-message (before replace-field activate)
(if (not (mew-header-get-value "Resent-To"))
(mew-guess-header)))
Mew-dist メーリングリストの案内