05/12/14 20:33:43
>>329
Becky って良く知らないけど, To に自分のアドレスがなかったら印を付ければ
良いのかな? であれば, こんな感じでどうでしょう.
(動かしての確認はしていません)
(defun wl-summary-line-indirect ()
(if (catch 'found
(dolist (to (elmo-message-entity-field wl-message-entity 'to))
(when (wl-address-user-mail-address-p to)
(throw 'found t))))
""
"i"))
(setq wl-summary-line-format-spec-alist
(cons '(?i (wl-summary-line-indirect))
wl-summary-line-format-spec-alist))