[Mew-dist 08615] Re: mail-user-agent

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 08613] Re: mail-user-agent
Message-ID: <19990422154127J.kazu at example.com>
Date: Thu, 22 Apr 1999 15:40:37 +0900

kazu> From: Shuhei KOBAYASHI <shuhei at example.com>
kazu> Subject: [Mew-dist 08600] mail-user-agent
kazu> Date: Thu, 22 Apr 1999 05:16:06 +0900
kazu> 
kazu> >     (if (and (boundp 'mail-user-agent) (eq mail-user-agent 'mew-user-agent))
kazu> > 	(progn
kazu> > 	  ;; Mew 1.93 works well.
kazu> > 	  (require 'mew)
kazu> > 	  (define-mail-user-agent 'mew-user-agent
kazu> > 	    'mew-send 'mew-draft-send-letter 'mew-draft-kill )))
kazu> > 
kazu> > というコードが入っている(skk-submit-bug-report)のですが、これを放って
kazu> > おくのは SKK にとっても Mew にとっても良くないので、Mew の方でこの変数
kazu> > に対応していただけないでしょうか?
kazu> 
kazu> つまり、
kazu> 
kazu> (if (boundp 'mail-user-agent)
kazu>     (setq mail-user-agent 'mew-user-agent))
kazu> 
kazu> というコードを Mew に入れるということでしょうか？

私の .emacs には、

(and (fboundp 'define-mail-user-agent)
     ;; mew-user-agent の登録
     (define-mail-user-agent 'mew-user-agent
       'mew-user-agent-compose
       'mew-draft-send-letter
       'mew-draft-kill
       'mew-send-hook)
     ;; mew-user-agent の設定
     (setq mail-user-agent 'mew-user-agent))

というのが入っているのですが、mew-send() は mail-user-agent() と
引数の扱いも動作も全然違うので、mew-user-agent-compose() という
関数を定義して、mew-summary-send() を lapping しています。

mew-user-agent の設定だけじゃなくて、Emacs 標準の
mail-command(?) とインタフェースが合致している関数も設けて、
define-mail-user-agent しないとダメだと思います。

# Emacs 上で message を作るすべての mode を mew-send に置き換え
# る計画を推進していたときに、こうやったんだと記憶しています。し
# かし、正しいかどうかの確証はまったくありません。^^;

-- 
白井秀行 (mailto:shirai at example.com)