Wanderlust でリプライ時に、元メールの To によって From を切り替えるように
してみる。
(setq wl-user-mail-address-list
'("***@***.***.**.**" "***@***.******.**.**" "***@******.***"
"*********@*****.**.**" "******@*****.**.**" "***@******.**"))
(setq wl-template-alist
(mapcar #'(lambda (addr)
(list addr
(cons "From" (format "%s (%s)" addr user-full-name))))
wl-user-mail-address-list))
(setq wl-draft-config-alist
(mapcar
#'(lambda (addr)
`(reply
,(concat "^To: .*" addr)
(template . ,addr)))
wl-user-mail-address-list))
これで From を切り替える手間が激減か?
職場の方はほとんど SPAM が来ないのだけど、せっかくだから spam-stat.el を
使ってみた。
小関さんの昔の日記を参考に設定を行なう。でもって、.gnus のメール振り分けは以下のような感じに。
(setq spam-use-stat t
spam-use-BBDB t)
(setq spam-stat-split-fancy-spam-group "spam")
(require 'spam)
(modify-syntax-entry ?\- "w" nnmail-split-fancy-syntax-table)
(setq nnmail-cache-accepted-message-ids t
nnmail-message-id-cache-length 5000)
(add-hook 'nnmail-pre-get-new-mail-hook
#'(lambda ()
(setq nnmail-split-fancy
`(|
;; DUPLICATES!!
("gnus-warning" "duplicate of message" "duplicates")
;; Mailing-list 他
; ("x-quickml" "true"
; ("x-ml-name" "\\b\\(\\w+\\)" "QuickML.\\1"))
("x-ml-name" "\\b\\(\\w+\\)" "ML.\\1")
,(gnus-group-split-fancy "nnml\\+ari:")
;; 親メールと同じグループへ
(: nnmail-split-fancy-with-parent)
;; 私信
(: gnus-bbdb/split-mail "from\\|to\\|cc" 'group)
;; SPAM filter
(: spam-split)
;; default
"inbox"
))))