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

[m-iizuka at example.com]

度々すみません、下記.mew.elに追加しましたが、

   save-excursion: Wrong number of arguments: #[(arg) (..文字化けstr..)
     [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の引き数が異なるようです。

     Mew3.3/Emacs21.3/Mule5.0(SAKAKI)/FC1/LANG ja_JP.eucjp

で動作するのでしょうか？それとも最新Mew4 αが必要でしょうか？

From: KOIE Hidetaka <hide at example.com> (鯉江英隆)
Subject: [mew-dist 25172] Re: 既読メールの暗号化方法について
Date: Fri, 20 Aug 2004 21:11:09 +0900 (JST)
Message-ID: <20040820.211109.55831290.koie 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))))

// 飯塚