- と、いうところで、今日は .xemacs.el の中にあるmewに関する設定の部分を記録しておく。なお、バックアップから掘り出してきたファイルなので、中には機能していない記述もあるかもしれない。しかも、メルアド等伏せ字だが、あしからず。
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Mew 1.95 - Messaging in the Emacs World
;; メールリーダー Mew
;; M-x mew で起動します
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; XEmacs 版 Mew のアイコンのありか
(setq mew-icon-directory "/usr/lib/xemacs/site-packages/etc/mew")
;; 返信時の引用フォーマットの指定
(setq mew-cite-fields '("From:" "Subject:" "Date:" "Message-ID:"))
(setq mew-cite-format "From: %s\nSubject: %s\nDate: %s\nMessage-ID: %s\n\n")
;;(setq mew-cite-prefix-function 'mew-cite-prefix-username)
;; 起動時にメールを取りにいかないようにする
(setq mew-auto-get nil)
;; From: に余計なもの (localhost 名等) が付いたりする場合は，
;; xxxx の部分にドメイン名を指定します
(setq mew-mail-domain-list '("***.email.ne.jp"))
;; From ヘッダの "" で囲まれた文字も MIME デコードする
(setq mew-decode-quoted t)
;; スレッド表示を行う
;(setq mew-prog-imls-arg-list '("--thread=yes"))
;; 自分に Bcc をつけない
(setq mew-mail-address-list
'("****@***.email.ne.jp"
"****@**.dion.ne.jp"
"timon@safe-mail.ne.jp"))
;; Reply-To ヘッダがある場合そのアドレスにだけ返信
(setq mew-replyto-to-list '("Reply-To:"))
(setq mew-replyto-cc-list nil)
;; ドラフトを用意する時に定型文を自動的に挿入する
;(add-hook 'mew-draft-mode-hook
; (function
; (lambda()
; (let ((p (point)))
; (goto-char (point-max))
; (insert-file "~/Mail/teikei")
; (goto-char p)))))
;; 引用(返信)時でも定型文を一番上に挿入する
;(add-hook 'mew-before-cite-hook
; (lambda() (goto-char (point-max))))
;; 印刷コマンド設定
(setq mew-print-command-format "mpage -2 -P")
(defun mew-print-region (begin end)
(interactive "r")
(shell-command-on-region begin end mew-print-command-format))
(defun mew-print-buffer ()
(interactive)
(mew-print-region (point-min) (point-max)))
(setq mew-print-function (function mew-print-buffer))
;;; URL をマウス中クリックでブラウザ起動する様にする
(setq browse-url-browser-function 'browse-url-netscape)
(autoload 'browse-url-at-mouse "browse-url"
"Ask a WWW browser to load a URL clicked with the mouse." t)
(add-hook 'mew-message-mode-hook
(function
(lambda()
(local-set-key [mouse-2] 'browse-url-at-mouse)
)))
;;; らくらく整理整頓
;;; マッチするヘッダ、その値、リファイル先のフォルダを書いておくと、
;;; 簡単に振り分けができます
(setq mew-refile-guess-alist
'(("Reply-To:"
("uzou@aquarius10" . "+ml/uzou")
("kawabegawa@cup" . "+ml/kawabegawa")
("k3ml@ml-a2" . "+ml/kawabegawa")
("g-brain@iijnet" . "+ml/g-brain")
)
("To:"
("dmail@dpj.or.jp" . "+news/dp-mail")
("zdwire-readers@zdnet" . "+news/zdwire")
("ark-qa@cafe.justsystem" . "+news/ark")
("biztech@bizsche1.nikkeibp" . "+news/nikkei")
)
("From:"
("@cool.ne.jp" . "+news/cool")
("notify@clubaa.com" . "+0others")
("linux@bizsche.nikkeibp.co.jp" . "+news/nikkei")
("mail@nikkeibyte.com" . "+news/nikkei")
("store@adobe.co" . "+news/adobe")
("mktg@realnet.co" . "+news/real")
("news-master@trading.rakuten" . "+news/rakuten")
("admins@safe-mail" . "+from/safe-mail")
("emips@infovision" . "+news/e-MIPS")
("civics@geocities" . "+news/GeoCities")
("newbanner@valueclick.ne.jp" . "+news/ValueClick")
("eflashcard@hungryforwords" . "+news/eflashcard")
("newsmaster@borland" . "+news/borland")
("news@hotwired" . "+news/hotwired")
("***r-kjm@asahi-net" . "+from/rika-chan")
("gendaiclub@kcs" . "+news/shosai")
)
))
;; Toolbarに追加
(setq toolbar-mail-commands-alist (quote ((mew . mew) )))
(setq toolbar-mail-reader (quote mew))
;;; URL をマウス中クリックでブラウザ起動する様にする
(setq browse-url-browser-function 'browse-url-netscape)
(autoload 'browse-url-at-mouse "browse-url"
"Ask a WWW browser to load a URL clicked with the mouse." t)
(add-hook 'mew-message-mode-hook
(function
(lambda()
(local-set-key [mouse-2] 'browse-url-at-mouse)
)))
;; その他いろいろ(by junokubo)
(setq mew-fcc "+Backup")
(setq mew-prog-pgp "gpg")
(setq mew-prog-gpg "gpg-emacs")
;;;(setq mew-debug t)
(setq mew-config-alist
'(("ocn-ml"
("smtp-server" . "****.***.ne.jp")
("user" . "j***")
("mail-domain". "d1.dion.ne.jp")
("msgid-domain". "d1.dion.ne.jp")
)
("ml"
("user" . "j***")
("msgid-domain" . "d1.dion.ne.jp")
("mail-domain" . "d1.dion.ne.jp")
)
("default"
("Address". "*****@***.email.ne.jp")
("user". "okubo")
("mail-domain". "***.email.ne.jp")
("msgid-domain". "**.email.ne.jp")
("Name". "Jun_Okubo")
("pop-server". "pop.******net.or.jp")
("pop-auth". pass)
("pop-user". "***j-ookb")
("pop-size". 0)
("pop-delete". nil)
("smtp-server"."mail.*****net.or.jp")
)
))
