[Mew-dist 07684] Re: cannot encrypt with PGP (Re: 1.94b8)

[Kyotaro HORIGUCHI]

ほりぐちです.

At Wed, 24 Feb 1999 15:09:17 +0900, Chifumi Hayashi (林　千史) <chifumi at example.com> wrote in <19990224150858B.chifumi at example.com>
> Emacs 20.2.1 / Mule 3.0 + pgp5
> Emacs 19.28.1 / Mule 2.3 + pgp2
> 
> ともに、C-cC-e や C-cC-b すると、ピッと鳴って進めません。

 Mew1.94b8/IM106/Meadow 1.01 / NT4.0 + pgp2 ではピッとはなりませ
んが動作もしていませんでした.


> Signaling: (error "")
>   signal(error (""))
>   error("")
>   mew-encode-multipart-encrypted("Multipart/Encrypted" "application/pgp-encrypted" nil ("chifumi at example.com"))

 PGPがエラーを返さなかった場合には mew-pgp-encrypt-check が "" を
返すようになっているのですが, それをチェックしている 
mew-encode-multipart-encrypted が non-nil でエラーチェックをして
いるのが原因のようです.

 mew-pgp-encrypt-check を尊重すると (ノーエラーは "" で示す)

============================================================
*** mew-encode.el.org	Wed Feb 24 17:04:50 1999
--- mew-encode.el	Wed Feb 24 17:05:54 1999
***************
*** 382,388 ****
  	      mew-ct-mle mew-temp-dir)))
      (setq file2 (nth 0 fc) cte2 (nth 1 fc) file3 (nth 2 fc) cte3 (nth 3 fc))
      (setq error (nth 4 fc))
!     (if error
  	(progn
  	  (if (file-exists-p file1) (delete-file file1))
  	  (if (file-exists-p file2) (delete-file file2))
--- 382,388 ----
  	      mew-ct-mle mew-temp-dir)))
      (setq file2 (nth 0 fc) cte2 (nth 1 fc) file3 (nth 2 fc) cte3 (nth 3 fc))
      (setq error (nth 4 fc))
!     (if (not (equal error ""))
  	(progn
  	  (if (file-exists-p file1) (delete-file file1))
  	  (if (file-exists-p file2) (delete-file file2))
============================================================

 mew-encode-multipart-encrypted を尊重すると(ノーエラーは nil で示す)

============================================================
*** mew-pgp.el.org	Wed Feb 24 17:06:42 1999
--- mew-pgp.el	Wed Feb 24 17:07:00 1999
***************
*** 240,246 ****
  ;;
  
  (defun mew-pgp-encrypt-check ()
!   (let ((ret ""))
      (goto-char (point-min))
      (if (search-forward (mew-pgp-get mew-pgp-msg-no-enckey) nil t)
  	(setq ret mew-pgp-result-pubkey)
--- 240,246 ----
  ;;
  
  (defun mew-pgp-encrypt-check ()
!   (let ((ret))
      (goto-char (point-min))
      (if (search-forward (mew-pgp-get mew-pgp-msg-no-enckey) nil t)
  	(setq ret mew-pgp-result-pubkey)
============================================================
-- 
ほりぐちきょうたろう.