~/.wl(setq wl-user-mail-address-list
(list "johndoe@foo.example.com"
"john-doe@gmail.example.com"))
;; メッセージ送信時ではなく編集開始前に wl-draft-config 適用
(add-hook 'wl-mail-setup-hook 'wl-draft-config-exec)
(remove-hook 'wl-draft-send-hook 'wl-draft-config-exec)
;; 好みで
(setq wl-message-ignored-field-list
'("^X-Google"
"^X-Gm"
"^ARC"
"^DKIM"
"^Received"
"^X-Received"
"^X-No-Auto-Attachment"
"^Return-Path"
"^Authentication-Results"
"^X-SG"
"^X-Feedback"
"^In-Reply-To"
"^References"
"^Message-Id"
"^X-Virus-Status"
"^X-Forwarded-Message-Id"
"^X-MS"
"^Thread-Index"
"^x-forefront"
"^x-microsoft"
"^X-Qmail"
"^Message-ID"
"^X-odins"
"^X-Brightmail"
"^X-cloud-security"
"^X-KLMS-"))
;; 警告を黙らせる為のダミー: 以下の垢毎テンプレートで上書きされます
(setq wl-from "johndoe@foo.example.com")
;; 垢抽出、適用
(setq wl-draft-config-alist
'(((string-match "johndoe@foo\\.example\\.com" wl-draft-parent-folder)
(template . "foo"))
((string-match "john-doe@gmail\\.example\\.com" wl-draft-parent-folder)
(template . "bar"))))
;; 垢別送信サーバー設定: 上の "foo", "bar" と対応
(setq wl-template-alist
'(("foo" ;; plaintext dumb server example
(wl-from . "johndoe@foo.example.com")
("From" . wl-from)
("Fcc" . "%Sent:johndoe/clear@imap.foo.example.com:143!") ;; need to manually copy message to sent folder
(bottom . "
--
John Doe") ;; signature
(wl-smtp-posting-server . "smtp.foo.example.com"))
("bar" ;; GMail (remove example)
(wl-from . "john-doe@gmail.example.com")
("From" . wl-from)
(wl-smtp-posting-server . "smtp.gmail.example.com")
(wl-smtp-posting-port . 465)
(wl-smtp-posting-user . "john-doe@gmail.example.com")
(wl-smtp-authenticate-type . "plain")
(wl-smtp-authenticate-type . ssl))
(setq wl-draft-reply-use-address-with-full-name nil)
(setq wl-draft-always-delete-myself t)
(setq wl-draft-reply-without-argument-list
'(("From" . (("From") ("Cc") nil))))
;; 重要: これをしないと添付ファイルなどを送信する時メッセージが大量に分割されて送信されてしまう!
(setq mime-edit-split-message nil)
(setq mime-view-type-subtype-score-alist
'(((text . plain) . 4)
((text . enriched) . 3)
((text . html) . 2)
((text . richtext) . 1)))
(setq elmo-message-fetch-confirm nil)
(setq wl-fcc-force-as-read t)
;; UA に ASCII 以外の文字を使わない
(setq wl-generate-mailer-string-function
'wl-generate-user-agent-string-1)
~/.foldersfoo {
%Inbox:johndoe/clear@imap.foo.example.com:143
%Sent:johndoe/clear@imap.foo.example.com:143
}
bar {
%Inbox:"john-doe@gmail.example.com"/clear@imap.gmail.example.com:993!
%"[Gmail]/Sent Mail":"john-doe@gmail.example.com"/clear@imap.gmail.example.com:993!
}
M-x wl 直後には、~/.foldersで指定した一覧が表示されるフォルダモードになっています。
SPC/RETScqフォルダを開くと、メールが一覧表示されているサマリモードになります。
sSPCBScwAfTlq