Y.A.S.D.

WLUG のほうで, SEMI-PGPGPG/mailcrypt を使って ASCII Armor 形式で PGP sign/verify する方法の話が出たので, できるようにしてみる。 とりあえず PGP5.0 だと こんな感じかな。

(mc-setversion "5.0")

(defadvice mc-pgp50-sign-parser
  (before set-coding-system activate)
  (set-process-coding-system proc 'iso-2022-jp 'iso-2022-jp))

(defadvice mc-pgp50-verify-parser
  (before set-coding-system activate)
  (set-process-coding-system proc 'iso-2022-jp 'iso-2022-jp))

(autoload 'mc-sign-region "mc-toplev" nil t)

(defun wl-draft-mc-sign ()
  (interactive)
  (save-excursion
    (mail-text) (mc-sign-region 1 (point) (point-max))))

(define-key wl-draft-mode-map "C-cC-bs" 'wl-draft-mc-sign)

Key-bind は適当...。

Posted by つむら @ 01:04 AM JST (General) [ Comments [0] ]