[Mew-dist 2829] Re: SiteConfig

[Akihiro Motoki]

From: Yoshitsugu Nakagawa / 中川 義次 <yoshi at example.com>
Subject: [Mew-dist 2783] Re: SiteConfig
Date: Wed, 29 Oct 1997 01:32:18 +0900
Message-ID: <19971029013218I.yoshi at example.com>

> 異なる Domain 名をもつ複数の WS の間で /usr/local/lib/im/SiteConfig を共有し
> ている場合に、im や mew にそれほど詳しくない一般 user に負担をかけずに、
> それぞれの WS の FQDN を FromDomain, ToDomain の default 値として設定したい、
> という「管理者の悩み」を解決したいのです。
> 
> mew-config-guess-alist については、今教えていただいたばかりで十分理解していま
> せんが、上の問題の解決に mew-config-guess-alist がうまく使えるでしょうか?

mew-config-guess-alist は、特定の値を持ったヘッダが存在するときに
Config: ヘッダを推定して挿入くれるものだと思います。したがって、
中川さんの希望をみたすのは少し厳しいのではないでしょうか。

他にも解決方法があるでしょうが、次のような方法を思いついたので書いておきます。

SiteConfig に次のように書いておいた上で、
----------------------
case machineA
ToDomain=machineA.somewhere.org
FromDomain=machineA.somewhere.org
case machineB
ToDomain=machineB.somewhere.org
FromDomain=machineB.somewhere.org
----------------------

以下のように .emacs に書いておいて、直接 Config: (マシン名) を挿入しては
どうでしょうか。こうすれば、draftモードに入ると自動的に
Config: machine-a などと挿入されます。
----------------------
(defun insert-config ()
  (save-excursion
    (goto-char (point-min))
    (if (re-search-forward "^----$" nil t)
	(progn
	  (forward-line -1)
	  (insert (concat "Config: " (system-name)))))
    ))
(add-hook 'mew-draft-mode-hook
	(lambda () (insert-config)))
----------------------

(system-name) がFQDNを返す場合は、
(substring (system-name) 0 (string-match "\\." (system-name)))
などとして、短かいマシン名を取り出した方が楽かもしれませんが。。

＃思いつきで書いたので、うまく動くかは試していません。
＃動くのかな。
-- 
━━━━━━━………‥・・ ・ ・・　．
  元木 顕弘 / Akihiro Motoki      　　・
　E-mail: motoki at example.com  　・
  URL: http://www.hal.t.u-tokyo.ac.jp     ‘  ・・ ‥…━━☆