Y.A.S.D.

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)))

Posted by つむら @ 12:54 PM JST (General) [ Comments [0] ]