[mew-dist 23658] Re: Text/Plainだけをアタッチしたメールを暗号化

[Kazu Yamamoto ( 山本和彦 )]

遅くなりました。

From: Koyama Mituru <mkoya at example.com>
Subject: [mew-dist 23616] Text/Plainだけをアタッチしたメールを暗号化

> とすると、自分自身の鍵だけで暗号化されて、相手の鍵では暗号化されま
> せん。

これで直るでしょうか？

--かず

Index: mew-encode.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-encode.el,v
retrieving revision 1.69
diff -c -r1.69 mew-encode.el
*** mew-encode.el	2003/05/13 10:18:36	1.69
--- mew-encode.el	2003/05/21 07:43:13
***************
*** 686,692 ****
  
  (defun mew-encode-make-multi ()
    ;; Just after the header
!   (let (beg path multip buffered privacy first ct)
      (if (mew-encode-syntax-have-one-part)
  	;; A user may want to do any MIME stuff to the body
  	(progn
--- 686,692 ----
  
  (defun mew-encode-make-multi ()
    ;; Just after the header
!   (let (beg path multip buffered privacy decrypters first ct)
      (if (mew-encode-syntax-have-one-part)
  	;; A user may want to do any MIME stuff to the body
  	(progn
***************
*** 720,727 ****
  	    (setq path (expand-file-name
  			(mew-syntax-get-file mew-encode-syntax) path))
  	    (setq privacy (mew-syntax-get-privacy mew-encode-syntax))
  	    (setq mew-encode-syntax (mew-syntax-get-part mew-encode-syntax))
! 	    (mew-syntax-set-privacy mew-encode-syntax privacy)))))
      (if multip
  	(mew-encode-multipart mew-encode-syntax path 0 buffered)
        (mew-encode-singlepart mew-encode-syntax path nil nil 'cover))))
--- 720,729 ----
  	    (setq path (expand-file-name
  			(mew-syntax-get-file mew-encode-syntax) path))
  	    (setq privacy (mew-syntax-get-privacy mew-encode-syntax))
+ 	    (setq decrypters (mew-syntax-get-decrypters mew-encode-syntax))
  	    (setq mew-encode-syntax (mew-syntax-get-part mew-encode-syntax))
! 	    (mew-syntax-set-privacy mew-encode-syntax privacy)
! 	    (mew-syntax-set-decrypters mew-encode-syntax decrypters)))))
      (if multip
  	(mew-encode-multipart mew-encode-syntax path 0 buffered)
        (mew-encode-singlepart mew-encode-syntax path nil nil 'cover))))