2010年4月 9日

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

白井です。

From: Ryuji Suzuki <rs@xxxxx> さん曰く
Subject: [mew-dist 29197] Re: 共通のmew.elファイルの設定をホスト毎にカスタマイズする方法
Message-ID: <20100408.184919.151192805.lifebook-4234377@xxxxx>
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@xxxxx)

投稿者 xml-rpc : 2010年4月 9日 08:40
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/94912
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。