[Mew-dist 06698] Config:

[SAITO Tetsuya ( さいとてつや )]

さいとです。

case の FAQ を書いてて思い出したんですが，case で smtpservers を切り換
えているとき，Config: で明示的に指定する以外にいい方法はないでしょうか。

例えば，私は以下のような設定（一部抜粋）をしているんですが，


# .emacs
(setq mew-config-insert-when-composed t)
(setq mew-config-guess-alist
      '(("To:"
	 ("mew.org" . "mew"))
	("Cc:"
	 ("mew.org" . "mew"))))

# ~/.im/Config
##
## case default
##
User=tetuya-s
FromDomain=is.aist-nara.ac.jp
ToDomain=is.aist-nara.ac.jp
Smtpservers=mailgate.aist-nara.ac.jp

##
## case Mew
##
case mew
User=saito
FromDomain=Mew.org

##
## case Tokyo Internet
##
case tokyo
User=tetsuya
FromDomain=green.an.egg.or.jp
Smtpservers=mail.green.an.egg.or.jp


Summary バッファで C を押して tokyo に変えて imget して，さてメールを
出そうとしたときに，Config: tokyo を自動的に入れる方法がないのでついつ
い忘れてしまって default の方に出してしまうことがあります。

で，以下のように mew-config-imget の値も考慮するようにすればいいかなと
も思ったんですが，これだと mew と tokyo が両立しないんですよね。

何かいい手はないでしょうか。

*** mew-draft.el.orig   Thu Oct 15 05:18:57 1998
--- mew-draft.el        Thu Oct 15 05:53:11 1998
***************
*** 952,958 ****
      (if (and mew-ask-config (not (interactive-p)))
        (setq config-new (mew-input-config config-new)))
      (if (and (interactive-p) (not config-new))
!       (setq config-new ""))
      (if config-new
        (if (and config-cur
                 (or (string= config-cur config-new)
--- 952,958 ----
      (if (and mew-ask-config (not (interactive-p)))
        (setq config-new (mew-input-config config-new)))
      (if (and (interactive-p) (not config-new))
!       (setq config-new (if (string= mew-config-default mew-config-imget) "" mew-config-imget)))
      (if config-new
        (if (and config-cur
                 (or (string= config-cur config-new)


-- 
さいとてつや <saito at example.com>