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

[m-iizuka at example.com]

度々すみません。下記なかなか良い解決方法と思い、

	Mew 3.3 on Emacs21.3/Mule5.0(sakaki) on Fedora Core1

の.mew.elに追加し、inboxでM-x mew-encrypt-mail-bodyすると、

save-excursion: Wrong number of arguments: #[(arg) "�& 	�U�& ���m)� ����c�)�6 �	!��6 t�2 ������6 �	!���" [next-line-add-newlines arg abbrev-mode 1 nil "
" line-move (line-move arg) (((beginning-of-buffer end-of-buffer) (ding)))] 3 1340587 "p"], 0

となり、save-excursionの引き数エラーとなりますが(化けているのは何故か
分かりませんがemacs/fc1 native utf-8の所をja_JP.eucjpで無理矢理設定さ
せているせいかもしれません)、mew3.3で動作するのでしょうか？

From: KOIE Hidetaka <hide at example.com> (鯉江英隆)

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

// 飯塚