[mew-dist 29198] Re: 共通のmew.elファイルの設定をホスト毎にカスタマイズする方法

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

From: Ryuji Suzuki <rs at example.com> さん曰く
Subject: [mew-dist 29197] Re: 共通のmew.elファイルの設定をホスト毎にカスタマイズする方法
Message-ID: <20100408.184919.151192805.lifebook-4234377 at example.com>
Date: Thu, 08 Apr 2010 18:49:19 -0400 (EDT)

> SMTPのサーバーや、SMTP/IMAPの接続、認証プロトコルを変えるとい
> うような使い方を想定していますので、IMAPフォルダーやFromヘッダー
> の内容を変えるような目的にすでにcaseをつかっているので、それで
> は不適切だと思います。
> 
> しかも、caseだと、手動で切り替えなければいけません。本件は、あ
> くまでホスト毎に勝手に切り換ってくれるべき性質のものを想定して
> います。

NotePC などで接続場所を変えた時の自動追従はできませんが、Emacs +
Mew を立ち上げた時に切り替えるならこんなので、起動時の
default-case を決定できます。当然、mew-config-alist は膨れ上がり
ますけど。

(let ((hostname (system-name)))
  (cond
   ((string= hostname "hoge")
    (setq mew-case "fuga")
    (add-hook 'mew-init-hook
	      (lambda ()
		(setq mew-case-default "fuga"))))
   ((string= hostname "foo")
    (setq mew-case "bar")
    (add-hook 'mew-init-hook
	      (lambda ()
		(setq mew-case-default "bar"))))
   (t
    (setq mew-case "default")
    (add-hook 'mew-init-hook
	      (lambda ()
		(setq mew-case-default "default"))))))

mew-case-default の設定をちょっと遅らすのがミソだったような気が
しますが、細かいところは忘れました。また、ぼくは同等のものを
~/.emacs にかいていますが、~/.mew.el でも大丈夫かもしれません。

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