図 サンプル
Mew 6 の設定方法 |
(autoload 'mew "mew" nil t) (autoload 'mew-send "mew" nil t) (setq mew-use-suffix t)
(autoload 'mew "mew" nil t) (autoload 'mew-send "mew" nil t)Mewのelispファイルをloadするために必要と思います。
;(setq mew-mail-path "~/Mail2") (setq mew-signature-insert-last t) (setq mew-save-dir "~/mailtmp") (setq mew-use-cached-passwd t) (setq mew-use-suffix t) (setq mew-search-method 'est) (setq mew-use-thread-separator nil)
(setq mew-config-alist
'(("PROVIDER_1_POP" ; CASE名 POP3を使う例
("name" . "YAMADA TARO") ; 自分のリアルな名前
("user" . "yamada") ; メールアドレスの名前部分
("mail-domain" . "example1.com") ; メールアドレスのドメイン部分
("pop-server" . "pop.example1.com") ; POPサーバ名
("pop-port" . "pop3")
("pop-auth" . pass) ; use POP instead of APOP
("pop-user" . "yamada") ; POPサーバに対するアカウント名
("smtp-server" . "smtp.example1.com") ; SMTPサーバ名
("smtp-user" . "yamada") ; SMTPサーバに対するユーザ名
;("smtp-msgid-user" . "yamada") ; MSG ID 生成に使われる文字列
;("smtp-msgid-domain" . "example1.com"); MSG ID 生成に使われる文字列
;("dcc" . "yamada@example1.com"); 自分に複製を送りたいときに
("fcc" . nil)
("pop-size" . 0) ;受信メールサイズのlimit
)
("PROVIDER_2_APOP" ; APOPを使う例
("name" . "YAMADA TARO")
("user" . "yamada")
("pop-user" . "yamada")
("mail-domain" . "example2.com")
("pop-server" . "pop.example2.com")
("pop-port" . "pop3")
;("pop-auth" . pass) ; デフォルトはAPOP
("smtp-server" . "smtp.example2.com")
;("dcc" . "yamada@example2.com")
("fcc" . nil)
("pop-size" . 0)
)
("default" ; SMTPにサブミッションポート587(SSL無し)を使う例
("name" . "YAMADA TARO")
("user" . "yamada")
("pop-user" . "yamada")
("mail-domain" . "example3.com")
("pop-server" . "pop.example3.com")
("pop-port" . "pop3") ; see /etc/services
("smtp-server" . "smtp.example3.com")
;("prog-ssl" . "stunnel.exe")
("smtp-ssl" . nil) ; SSL無し
("smtp-ssl-port" . "587")
("smtp-port" . "587") ; サブミッションポート 587
("use-smtp-auth" . t) ; SMTP認証を行う
("smtp-auth-list" . ("DIGEST-MD5" "PLAIN" "LOGIN"))
;("dcc" . "yamada@example3.com")
("fcc" . nil)
("pop-size" . 0)
)
))
(eval-after-load "mew" '(load "mew-fake-cdp-sending" t))メール送信時、
(defun mew-summary-form-youbi ()
(let ((s (MEW-DATE)))
(if (>= (length s) 3) (setq s (substring s 0 3)))
(cond
((string= s "Mon") "月")
((string= s "Tue") "火")
((string= s "Wed") "水")
((string= s "Thu") "木")
((string= s "Fri") "金")
((string= s "Sat") "土")
((string= s "Sun") "日")
(t "??"))))
(setq mew-summary-form
'(type (5 date) (2 youbi) " " (-4 time) " "
(14 from) " " t (0 subj)))
(setq mew-summary-scan-width 78)
(setq mew-field-spec
'(("^Resent-\\(From\\|To\\|Cc\\|Date\\)" t mew-face-header-important mew-face-header-important)
("^\\(To\\|Apparently-To\\):$" t mew-face-header-important mew-face-header-to)
("^\\(Cc\\|Bcc\\):$" t mew-face-header-important mew-face-header-to)
("^From:$" t mew-face-header-from mew-face-header-from)
("^Sender:$" t mew-face-header-from mew-face-header-from)
("^Reply-To:$" t mew-face-header-from mew-face-header-from)
("^Subject:$" t mew-face-header-subject mew-face-header-subject)
("^Newsgroups:$" t mew-face-header-important mew-face-header-to)
("^Date:$" t mew-face-header-important mew-face-header-date)
("^Message-[Ii]d:$" t) ; Message-ID を表示するようにする
("^X-Mailer:$" t)
("^X-Mew:$" t)
("^\\(Received\\|Return-Path\\|Sender\\|Errors-To\\):$" nil)
("^\\(Posted\\|In-Reply-To\\|References\\|Precedence\\):$" nil)
("^Delivered-" nil)
("^List-" nil)
("^\\(Mime-Version\\|Lines\\):$" nil)
("^From$" nil)
("^Status:$" nil)
("^Precedence:$" nil)
("^X-" nil) ; X-* というヘッダは表示しないようにする
("^[A-Z]+:$" t) ; その他のヘッダがあれば表示するようにする
))
(setq mew-theme-file "~/.mew-theme.el")さて、「mew-face-header-important」というfaceの定義は、たとえば 次のようになっています。
(mew-setface-bold header-important :tty "cyan" :light "MediumBlue" :dark "white")「:light」「:dark」とあるのは、背景色に応じて異なる色を定義するためです。 Meadowのbackground color(背景色)が白の場合は、(白は明るいので)「:light」 に指定した色が使われます。Background colorが黒の場合は、(黒は暗いので) 「:dark」に指定した色が使われます。自分の環境に合わせてどちらかを 修正します。
(mew-setface header-subject :tty "yellow" :light "OrangeRed1" :dark "yellow") (mew-setface header-from :tty "yellow" :light "DeepPink2" :dark "SpringGreen") (mew-setface header-date :tty "green" :light "blue1" :dark "white") (mew-setface header-to :tty "magenta" :light "DarkViolet" :dark "while") ;ヘッダのキー デフォルト (mew-setface header-key :tty "green" :light "ForestGreen" :dark "white") (mew-setface-bold header-private) (mew-setface-bold header-important :tty "cyan" :light "MediumBlue" :dark "white") ;ヘッダの値 デフォルト (mew-setface header-marginal :light "black" :dark "white") (mew-setface-bold header-warning :tty "red" :light "red" :dark "red")同様にして、body-cite1〜5のfaceを変更すれば、 引用部分の色を変更することができます。
(setq mew-use-unread-mark t) (setq mew-unread-mark-list '((t t))) ; ←全フォルダ対象。
; 推測に使うタグ
(setq mew-refile-guess-key-list
'("X-ML-Name:" "Resent-To:" "Resent-Cc:" "Resent-Bcc:" "Resent-Dcc:" "To:" "Cc:" "Dcc:" "Bcc:" "Apparently-To:"))
; 推測規則
(setq mew-refile-guess-alist
'(("X-ML-Name:"
("neko-ml" . "+neko"))
("X-ML-Name:"
("inu-ml" . "+inu"))
("X-ML-Name:"
("game-ml" . "+game"))
; ("To:"
; ("wide@wide" . "+wide/wide")
; ("adam" . "+labo/adam"))
; ("Newsgroups:"
; ("^nifty\\.\\([^ ]+\\)" . "+Nifty/\\1"))
; ("From:"
; ("uucp" . "+adm/uucp")
; (".*" . "+misc"))
))
; 候補をひとつだけ提示
(setq mew-refile-ctrl-multi nil)
; 推測に、明示的規則のみ利用
(setq mew-refile-guess-control
'(mew-refile-guess-by-alist
mew-refile-ctrl-auto-boundary))
Last modified: Fri Dec 31 19:02:08 JST 2010