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

Hideyuki SHIRAI (白井秀行) <[email protected]> Fri, 09 Apr 2010 08:40:32 +0900 (JST)

Newsgroups	gmane.mail.mew.general.japanese
Organization	Resident at Meadowy farm.
Message-ID	<[email protected]>


From: Ryuji Suzuki <[email protected]> 
Subject: [mew-dist 29197] Re: mew.el
Message-ID: <[email protected]>
Date: Thu, 08 Apr 2010 18:49:19 -0400 (EDT)

> SMTPSMTP/IMAP
> IMAPFrom
> 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:[email protected])