Changes committed gnus/lisp (ChangeLog mml-smime.el)

Modified: ChangeLog mml-smime.el

* mml-smime.el (mml-smime-epg-sign, mml-smime-epg-encrypt): Ditto.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.2020 gnus/lisp/ChangeLog:7.2021
--- ChangeLog:7.2020	Tue Sep 15 12:19:16 2009
+++ ChangeLog	Tue Sep 22 22:55:26 2009
@@ -1,3 +1,10 @@
+2009-09-22  Daiki Ueno  <[email protected]>
+
+	* mm-decode.el (mm-sign-option): New user option.
+	* mml2015.el (mml2015-epg-sign, mml2015-epg-encrypt): Let users select
+	signing keys if mm-sign-option is 'guided.
+	* mml-smime.el (mml-smime-epg-sign, mml-smime-epg-encrypt): Ditto.
+
 2009-09-15  Katsumi Yamaoka  <[email protected]>
 
 	* gnus-art.el (gnus-article-edit-part): Work for the buffer
Index: mml-smime.el
diff -u gnus/lisp/mml-smime.el:7.24 gnus/lisp/mml-smime.el:7.25
--- mml-smime.el:7.24	Thu Jan 22 08:02:16 2009
+++ mml-smime.el	Tue Sep 22 22:55:26 2009
@@ -381,7 +381,7 @@
 	  (or (message-options-get 'mml-smime-epg-signers)
 	      (message-options-set
 	      'mml-smime-epg-signers
-	      (if mml-smime-verbose
+	      (if (eq mm-sign-option 'guided)
 		  (epa-select-keys context "\
 Select keys for signing.
 If no one is selected, default secret key is used.  "
@@ -462,7 +462,7 @@
 			 (message-options-set 'message-recipients
 					      (read-string "Recipients: ")))
 		     "[ \f\t\n\r\v,]+"))))
-      (if mml-smime-verbose
+      (if (eq mm-sign-option 'guided)
 	  (setq recipients
 		(epa-select-keys context "\
 Select recipients for encryption.