[Mew-dist 09799] Re: disable-timeout

[Kazu Yamamoto ( 山本和彦 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [Mew-dist 09677] Re: disable-timeout
Date: Thu, 15 Jul 1999 16:17:27 +0900

> もうひとつ欲をいうと、Content-Type: application/pgp な Message
> を single part として扱って欲しいです。

結局自動的に復号化するのは止めました。このパッチを当てると、C-cC-p で 
app/pgp も一応 PGP に渡されるようになると思います。

--かず

-------------- next part --------------
Index: mew-pgp.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-pgp.el,v
retrieving revision 1.78
diff -c -r1.78 mew-pgp.el
*** mew-pgp.el	1999/07/16 03:33:47	1.78
--- mew-pgp.el	1999/07/21 05:17:05
***************
*** 604,609 ****
--- 604,619 ----
  ;; key distribution
  ;;
  
+ (defun mew-pgp-check-old-pgp ()
+   (goto-char (point-min))
+   (if (re-search-forward (concat "^" mew-pgp-encryption-begin) nil t)
+       'pgp-encryption
+     (goto-char (point-min))
+     (if (re-search-forward (concat "^" mew-pgp-signature-begin) nil t)
+ 	'pgp-signature
+       nil)))
+ 
+ 
  (defun mew-summary-decode-pgp ()
    "Decrypting/verifying old-fashioned PGP messages."
    (interactive)
***************
*** 618,629 ****
  	(widen)
  	(setq win (get-buffer-window (current-buffer)))
  	(setq start (window-start win))
! 	(goto-char (point-min))
! 	(if (re-search-forward (concat "^" mew-pgp-encryption-begin) nil t)
! 	    (setq type 'pgp-encryption)
! 	  (goto-char (point-min))
! 	  (if (re-search-forward (concat "^" mew-pgp-signature-begin) nil t)
! 	      (setq type 'pgp-signature)))
  	(if (null type)
  	    (message "No PGP message was found")
  	  (goto-char (mew-header-end))
--- 628,639 ----
  	(widen)
  	(setq win (get-buffer-window (current-buffer)))
  	(setq start (window-start win))
! 	(setq type (mew-pgp-check-old-pgp))
! 	(if (null type)
! 	    (save-excursion
! 	      (mew-set-buffer-tmp)
! 	      (insert-file-contents file)
! 	      (setq type (mew-pgp-check-old-pgp))))
  	(if (null type)
  	    (message "No PGP message was found")
  	  (goto-char (mew-header-end))