[mew-dist 25172] Re: 既読メールの暗号化方法について

[KOIE Hidetaka ( 鯉江英隆 )]

かなり簡単なものを書きました。
CT: text/plain; charset=iso-2022-jp に決め打ちです。
当然のようにgpgコマンドも決め打ちです。

(defun mew-encrypt-mail-body ()
  (interactive)
  (save-excursion
    (mew-summary-find-file t)
    (goto-char (point-min))
    (search-forward-regexp "^$")
    (next-line)
    (let ((coding-system-for-read 'iso-2022-jp)
          (coding-system-for-write 'iso-2022-jp))
      (shell-command-on-region (point) (point-max) "gpg -q -e -r koie at example.com" t t "*gpg-err*"))
    (save-buffer 0)
    (kill-buffer (current-buffer))))
    
暗号化したいメールを表示して、サマリバッファで
M-x mew-encrypt-mail-body
を実行すると暗号化されます。
復号するには C-c C-zです。

無保証です。
(save-buffer 0)のところを(save-buffer)にすればバックアップファイルが残ります。

--
鯉江英隆 <hide at example.com>