Mewを設定する
１．dot.emacs の編集
;; Mew
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)(if (boundp 'read-mail-command)
(setq read-mail-command 'mew))
(autoload 'mew-user-agent-compose "mew" nil t)
(if (boundp 'mail-user-agent)
(setq mail-user-agent 'mew-user-agent))
(if (fboundp 'define-mail-user-agent)
(define-mail-user-agent
'mew-user-agent
'mew-user-agent-compose
'mew-draft-send-message
'mew-draft-kill
'mew-send-hook))
２．dot.mew.el の作成および編集
;; 起動時に自動的にメールをとりにいかないよう設定
(setq mew-auto-get nil);; パスワードをキャッシュする設定
(setq mew-use-cached-passwd t);; パスワードのキャッシュの生存期間
(setq mew-passwd-lifetime 30);; 重複メールには削除マークをつける
(setq mew-scan-form-mark-delete t);; マルチパートメールの受信上限サイズ
;;(setq mew-file-max-size 1000000);; スレッド表示時に罫線を表示
(setq mew-use-fancy-thread t);; スレッド間にセパレータを表示
(setq mew-use-thread-separator t);;; ML と From: の双方にメールをださないように
(setq mew-replyto-to-list '("Mail-Followup-To:" "Reply-To:"))
(setq mew-replyto-cc-list nil);; signatureはメールの末尾に付ける
(setq mew-signature-insert-last t);; サーバの設定
(setq mew-config-alist
'(
;;; 常用アカウント(default) OPTiM設定
("default"
("name" . "適当にユーザー名１)")
("user" . "@マークより前")
("mail-domain" . "@マークより後ろ")
("smtp-server" . "smtpサーバーを指定")
("pop-server" . "popサーバーを指定")
("pop-user" . "popユーザーアカウントを指定")
;; もしSignature専用のファイルを作るなら、そのファイル名を
("signature-file" . "シグネチャファイルを指定")
;; メールは受信してもサーバに残す。残さないときはnilの換わりにｔを
("pop-delete" . nil)
;; POP3 で受信
("pop-auth" . pass)
;; メールの上限サイズ。0 の場合は上限なし。
("pop-size" . 0))
;;; sub account 1.
("sub account 1"
("name" . "サブアカウント名称")
("user" . "@マークより前")
("mail-domain" . "@マークより後ろ")
("smtp-server" . "smtpサーバーを指定")
("pop-server" . "popサーバーを指定)
("pop-user" . "popユーザーアカウントを指定")
;; もしSignature専用のファイルを作るなら、そのファイル名を
("signature-file" . "シグネチャファイルを指定")
;; 受信したメールをサーバに残す。
("pop-delete" . nil)
;; POP3 で受信
("pop-auth" . pass)
;; メールの上限サイズ。0 の場合は上限なし。
("pop-size" . 0))
;;; sub account 2.
("sub account 2"
("name" . "サブアカウント名称")
("user" . "@マークより前")
("mail-domain" . "@マークより後ろ")
("smtp-server" . "smtpサーバーを指定")
("pop-server" . "popサーバーを指定")
("pop-user" . "popユーザーアカウントを指定")
;; もしSignature専用のファイルを作るなら、そのファイル名を
("signature-file" . "シグネチャファイルを指定")
;; 受信したメールをサーバに残す。
("pop-delete" . nil)
;; POP3 で受信
("pop-auth" . pass)
;; メールの上限サイズ。0 の場合は上限なし。
("pop-size" . 0))
))
;; 振り分けの設定
;;(setq mew-refile-guess-alist
;; '(
;; ("Reply-To:"
;; ("hoge@ml.or.jp" . "+hoge")
;; ("linux-zaurus@quickml.com" . "+linazau")
;; )
;; ("To:"
;; ("fuga.com" . "+fuga")
;; )))
たぶんこれでOK.
