[Mew-dist 09624] Re: 1.94b40

[Kazu Yamamoto ( 山本和彦 )]

From: Yoshinori ARAI / 荒井美憲 <yoshi at example.com>
Subject: [Mew-dist 09623] Re: 1.94b40
Date: Wed, 14 Jul 1999 15:48:06 +0900

>  試してみましたが、2通目でC-cC-mした後に返ってきません。
>  pgpから返ってこないようです。

確認ですが、b39 では動いていて、b40 で刺さるようになったのですよね？

(1) 以下の設定をすると刺さらなくなりますか？

	(setq mew-connection-type2 nil) 

(2) (1) がダメな場合、以下のパッチを当てて、Emacs を際起動して下さい。
そして、C-cC-m で PGP が刺さる状況を作り、C-g とかコマンドラインの 
kill で、刺さった状態から抜けて下さい。その時点での、
mew-pgp-string-list の値を送ってもらえませんか？ 値は、PGP が表示した
文字列のリストです。

--かず

-------------- next part --------------
Index: mew-pgp.el
===================================================================
RCS file: /home/kazu/cvsroot/Mew/mew/mew-pgp.el,v
retrieving revision 1.70
diff -c -r1.70 mew-pgp.el
*** mew-pgp.el	1999/07/14 05:07:37	1.70
--- mew-pgp.el	1999/07/14 06:55:02
***************
*** 105,110 ****
--- 105,111 ----
  ;;
  
  (defvar mew-pgp-string nil)
+ (defvar mew-pgp-string-list nil)
  (defvar mew-pgp-running nil)
  (defvar mew-pgp-failure nil)
  
***************
*** 331,336 ****
--- 332,338 ----
    (message "PGP decrypting ... ")
    (setq mew-pgp-running 'decrypting)
    (setq mew-pgp-string nil)
+   (setq mew-pgp-string-list nil)
    (setq mew-pgp-decrypt-msg nil)
    (setq mew-pgp-failure nil)
    (let ((process-connection-type mew-connection-type2)
***************
*** 374,379 ****
--- 376,382 ----
    (message "PGP signing ... ")
    (setq mew-pgp-running 'signing)
    (setq mew-pgp-string nil)
+   (setq mew-pgp-string-list nil)
    (setq mew-pgp-sign-msg nil)
    (setq mew-pgp-failure nil)
    (let ((process-connection-type mew-connection-type2)
***************
*** 450,455 ****
--- 453,459 ----
  (defun mew-pgp-process-filter1 (process string)
    ;; sign or decrypt, not verify
    (setq mew-pgp-string (concat mew-pgp-string string))
+   (setq mew-pgp-string-list (cons string mew-pgp-string-list))
    (cond
     ;; no secret key or no secring for decrypt
     ((string-match (mew-pgp-get mew-pgp-msg-no-seckey-or-secring) string)
***************
*** 484,489 ****
--- 488,494 ----
  
  (defun mew-pgp-process-filter2 (process string)
    (setq mew-pgp-string (concat mew-pgp-string string))
+   (setq mew-pgp-string-list (cons string mew-pgp-string-list))
    (cond
     ;; re-enter pass phrase
     ((string-match (mew-pgp-get mew-pgp-msg-reenter-pass) string)
***************
*** 522,527 ****
--- 527,533 ----
  (defun mew-pgp-process-filter3 (process string)
    ;; ending or error
    (setq mew-pgp-string (concat mew-pgp-string string))
+   (setq mew-pgp-string-list (cons string mew-pgp-string-list))
    ;; string may contain old "Enter"
    (cond
     ;; just in case