[Mew-dist 04303] Re: mew-1.93b26.tar.gz

[Kazu Yamamoto ( 山本和彦 )]

From: KOIE Hidetaka (鯉江英隆) <koie at example.com>
Subject: [Mew-dist 04285] Re: mew-1.93b26.tar.gz
Date: Wed, 25 Mar 1998 18:00:29 +0900

> マルチパートのときに S を2回押すと、二重にサインできてしまいます。

うーん。逃避がてら、積極的に禁止するようにしました。

--かず

Index: mew-attach.el
===================================================================
RCS file: /usr/local/cvsroot/Mew/mew/mew-attach.el,v
retrieving revision 1.17
diff -c -r1.17 mew-attach.el
*** mew-attach.el	1997/03/10 21:19:13	1.17
--- mew-attach.el	1998/03/26 08:18:19
***************
*** 630,674 ****
  (defun mew-attach-pgp-sign ()
    "Put the 'PS' mark to sign with PGP in attachments."
    (interactive)
!   (if (not (mew-attach-not-line0-1-dot))
!       (message "Can't PGP sign here")
!     (if (null (mew-which mew-prog-pgps exec-path))
! 	(message "PGP doesn't exist")
!       (let* ((nums (mew-attach-nums))
! 	     (syntax (mew-syntax-get-entry mew-encode-syntax nums))
! 	     (privacy (mew-syntax-get-privacy syntax)))
! 	(if (>= (length privacy) 2)
! 	    (message "Too many marks")
! 	  (mew-syntax-set-privacy 
! 	   syntax (append privacy (list (list mew-ct-mls mew-ct-pgs))))
! 	  (mew-encode-syntax-print mew-encode-syntax)
! 	  ))
!       )))
  
  (defun mew-attach-pgp-enc ()
    "Put the 'PE' mark to encrypt with PGP in attachment. 
  Input decryptors' addresses."
    (interactive)
!   (if (not (mew-attach-not-line0-1-dot))
!       (message "Can't PGP encrypt here")
!     (if (null (mew-which mew-prog-pgpe exec-path))
! 	(message "PGP doesn't exist")
!       (let* ((nums (mew-attach-nums))
! 	     (syntax (mew-syntax-get-entry mew-encode-syntax nums))
! 	     (privacy (mew-syntax-get-privacy syntax))
! 	     (towhom (car (mew-header-address-collect '("To:")))))
! 	(if (>= (length privacy) 2)
! 	    (message "Too many marks")
! 	  ;; ask towhom before set privacy for C-g
! 	  (if towhom
! 	      (setq towhom (mew-input-address2 "To (%s): " towhom))
! 	    (setq towhom (mew-input-address "To:")))
! 	  (mew-syntax-set-privacy 
! 	   syntax (append privacy (list (list mew-ct-mle mew-ct-pge))))
! 	  (mew-syntax-set-decrypters syntax towhom)
! 	  (mew-encode-syntax-print mew-encode-syntax)
! 	  ))
!       )))
  
  ;;
  ;; find commands
--- 630,688 ----
  (defun mew-attach-pgp-sign ()
    "Put the 'PS' mark to sign with PGP in attachments."
    (interactive)
!   (cond
!    ((not (mew-attach-not-line0-1-dot))
!     (message "Can't PGP sign here"))
!    ((null (mew-which mew-prog-pgps exec-path))
!     (message "PGP doesn't exist"))
!    (t
!     (let* ((nums (mew-attach-nums))
! 	   (syntax (mew-syntax-get-entry mew-encode-syntax nums))
! 	   (privacy (mew-syntax-get-privacy syntax))
! 	   (pgp-sign (list mew-ct-mls mew-ct-pgs)))
!       (cond
!        ((>= (length privacy) 2)
! 	(message "Too many marks"))
!        ((mew-member pgp-sign privacy)
! 	(message "Already marked."))
!        (t
! 	(mew-syntax-set-privacy 
! 	 syntax (append privacy (list pgp-sign)))
! 	(mew-encode-syntax-print mew-encode-syntax))
!        )))
!    ))
  
  (defun mew-attach-pgp-enc ()
    "Put the 'PE' mark to encrypt with PGP in attachment. 
  Input decryptors' addresses."
    (interactive)
!   (cond
!    ((not (mew-attach-not-line0-1-dot))
!     (message "Can't PGP encrypt here"))
!    ((null (mew-which mew-prog-pgpe exec-path))
!     (message "PGP doesn't exist"))
!    (t
!     (let* ((nums (mew-attach-nums))
! 	   (syntax (mew-syntax-get-entry mew-encode-syntax nums))
! 	   (privacy (mew-syntax-get-privacy syntax))
! 	   (towhom (car (mew-header-address-collect '("To:"))))
! 	   (pgp-enc (list mew-ct-mle mew-ct-pge)))
!       (cond
!        ((>= (length privacy) 2)
! 	(message "Too many marks"))
!        ((mew-member pgp-enc privacy)
! 	(message "Already marked."))
!        (t
! 	;; ask towhom before set privacy for C-g
! 	(if towhom
! 	    (setq towhom (mew-input-address2 "To (%s): " towhom))
! 	  (setq towhom (mew-input-address "To:")))
! 	(mew-syntax-set-privacy 
! 	 syntax (append privacy (list pgp-enc)))
! 	(mew-syntax-set-decrypters syntax towhom)
! 	(mew-encode-syntax-print mew-encode-syntax))
!        )))
!    ))
  
  ;;
  ;; find commands