11/03 に書いた wl-draft-mc-sign って関数 は, 実はぜんぜん必要ないことに 気づいた。恥。
WL user は, こんなことすると たぶん嬉しいです。ASCII armor を使う人は, ですけど。
(add-hook 'wl-summary-mode-hook 'mc-install-read-mode)
(add-hook 'wl-mail-setup-hook 'mc-install-write-mode)
(defun mc-wl-verify-signature ()
(interactive)
(save-window-excursion
(wl-summary-jump-to-current-message) (mc-verify)))
(defun mc-wl-decrypt-message ()
(interactive)
(save-window-excursion
(wl-summary-jump-to-current-message)
(let ((inhibit-read-only t)) (mc-decrypt-message))))
(eval-after-load "mailcrypt"
'(setq mc-modes-alist
(append
(quote
((wl-draft-mode (encrypt . mc-encrypt-message)
(sign . mc-sign-message))
(wl-summary-mode (decrypt . mc-wl-decrypt-message)
(verify . mc-wl-verify-signature))))
mc-modes-alist)))



![[Go Patriots]](http://roguelife.org/diary/img/gopats.gif)

![[Masubi]](http://roguelife.org/img/masubi.png)
tomoaki@tsumura.info