[Mew-dist 12158] Re: 1.95b20

[Kazu Yamamoto ( 山本和彦 )]

From: Chifumi Hayashi (林　千史) <chifumi at example.com>
Subject: [Mew-dist 12155] Re: 1.95b20

> pgp 暗号化や署名のやり方は変わったのでしょうか?

バグです。(_ _)

> Draft buffer で C-cC-b や C-cC-s や C-cC-e をしても、pgp 関係の処理が
> 空振りするようで、+queue には普通のメールしかできません。
> pgp5 でも gpg でも同じです。

このパッチで直ると思います。

--かず
-------------- next part --------------
Index: mew-encode.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-encode.el,v
retrieving revision 1.159
diff -c -r1.159 mew-encode.el
*** mew-encode.el	2000/01/27 00:32:34	1.159
--- mew-encode.el	2000/01/27 02:15:36
***************
*** 247,267 ****
    (if (or (mew-syntax-get-privacy mew-encode-syntax) ;; specified
  	  ;; encryption previously failed, so bypass.
  	  (and (null privacy) mew-draft-privacy-error))
!       (let (type)
! 	(cond
! 	 (privacy
! 	  (setq type privacy))
! 	 (mew-draft-protect-privacy-type
! 	  (setq type mew-draft-protect-privacy-type))
! 	 ((and mew-protect-privacy-encrypted mew-draft-encrypted-p)
! 	  (setq type mew-protect-privacy-encrypted-type))
! 	 (mew-protect-privacy-always
! 	  (setq type mew-protect-privacy-always-type)))
! 	(mew-syntax-set-privacy
! 	 mew-encode-syntax
! 	 (mew-pcdb-ct (mew-pcdb-by-service type)))
! 	;; mew-draft-recipients are ignored when signing
! 	(mew-syntax-set-decrypters mew-encode-syntax mew-draft-recipients))))
  
  (defun mew-encode-make-header (&optional addsep)
    (if (mew-header-existp mew-mv:)
--- 247,268 ----
    (if (or (mew-syntax-get-privacy mew-encode-syntax) ;; specified
  	  ;; encryption previously failed, so bypass.
  	  (and (null privacy) mew-draft-privacy-error))
!       ()
!     (let (type)
!       (cond
!        (privacy
! 	(setq type privacy))
!        (mew-draft-protect-privacy-type
! 	(setq type mew-draft-protect-privacy-type))
!        ((and mew-protect-privacy-encrypted mew-draft-encrypted-p)
! 	(setq type mew-protect-privacy-encrypted-type))
!        (mew-protect-privacy-always
! 	(setq type mew-protect-privacy-always-type)))
!       (mew-syntax-set-privacy
!        mew-encode-syntax
!        (mew-pcdb-ct (mew-pcdb-by-service type)))
!       ;; mew-draft-recipients are ignored when signing
!       (mew-syntax-set-decrypters mew-encode-syntax mew-draft-recipients))))
  
  (defun mew-encode-make-header (&optional addsep)
    (if (mew-header-existp mew-mv:)