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

[Takashi Masuda ( 増田貴士 )]

増田です。

On Fri, 09 Apr 2010 08:40:32 +0900 (JST)
Hideyuki SHIRAI (白井秀行) <shirai at example.com> wrote:

> default-case を決定できます。当然、mew-config-alist は膨れ上がり
> ますけど。

私も似たようなことをやってました。
あと、以前こんなこともやってました。

(1) 以下の関数を ~/.emacs に定義。

;; mew-lisp-load() を自分用に改造
(defun my-lisp-load (filename)
  "Load lisp from FILENAME"
  (let ((fullname (expand-file-name filename "~/.spec"))
        lisp)
    (when (file-readable-p fullname)
      (with-temp-buffer
        (progn
          (insert-file-contents fullname)
          (setq lisp 
                (condition-case nil
                    (read (current-buffer))
                  (error ()))))))
    lisp))

(2) ~/.mew.el にはこのように書きます。

   (setq mew-hogehoge (my-lisp-load "mew-hogehoge"))

(3) サイト A とサイト B に ~/.spec/mew-hogehoge という
    ファイルを作成。mew-hogehoge に設定したい値を書く。

   (("hoge"
     (aaa . AAA)
     (bbb . BBB))
    ("hugahuga"
     (xxx . XXX)
     (yyy . YYY)))

--
Takashi Masuda <masutaka at example.com>