comparison lisp/gnus/mml-smime.el @ 105253:baa4e6ac9e46

Synch with Gnus trunk. 2009-09-22 Daiki Ueno <[e-mail]> * mm-encode.el (mm-sign-option, mm-encrypt-option): New user option. * mml2015.el (mml2015-epg-sign, mml2015-epg-encrypt): Let users select keys from the menu if mm-{sign,encrypt}-option is 'guided. * mml-smime.el (mml-smime-epg-sign, mml-smime-epg-encrypt): Ditto. * mml1991.el (mml1991-epg-sign, mml1991-epg-encrypt): Ditto. 2009-09-15 Katsumi Yamaoka <[e-mail]> * gnus-art.el (gnus-article-edit-part): Work for the buffer configuration that provides the sole article window in a frame; position point correctly after deleting a part. 2009-09-14 Adam Sjogren <[e-mail]> * spam.el (spam-unregister-on-reregister): Add boolean variable. (spam-resolve-registrations-routine): Use it to unregister articles that change status.

105252:2d2ad7907c5e

	 signer-key
	 (signers
	  (or (message-options-get 'mml-smime-epg-signers)
	      (message-options-set
	      'mml-smime-epg-signers
	      (if mml-smime-verbose
		  (epa-select-keys context "\
Select keys for signing.
If no one is selected, default secret key is used.  "
				   mml-smime-signers t)
		(if mml-smime-signers

		    (split-string
		     (or (message-options-get 'message-recipients)
			 (message-options-set 'message-recipients
					      (read-string "Recipients: ")))
		     "[ \f\t\n\r\v,]+"))))
      (if mml-smime-verbose
	  (setq recipients
		(epa-select-keys context "\
Select recipients for encryption.
If no one is selected, symmetric encryption will be performed.  "
				 recipients))

105253:baa4e6ac9e46

	 signer-key
	 (signers
	  (or (message-options-get 'mml-smime-epg-signers)
	      (message-options-set
	      'mml-smime-epg-signers
	      (if (eq mm-sign-option 'guided)
		  (epa-select-keys context "\
Select keys for signing.
If no one is selected, default secret key is used.  "
				   mml-smime-signers t)
		(if mml-smime-signers

		    (split-string
		     (or (message-options-get 'message-recipients)
			 (message-options-set 'message-recipients
					      (read-string "Recipients: ")))
		     "[ \f\t\n\r\v,]+"))))
      (if (eq mm-encrypt-option 'guided)
	  (setq recipients
		(epa-select-keys context "\
Select recipients for encryption.
If no one is selected, symmetric encryption will be performed.  "
				 recipients))