Mercurial > emacs

changeset 105253:baa4e6ac9e46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Synch with Gnus trunk. 2009-09-22 Daiki Ueno <ueno@unixuser.org> * 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 <yamaoka@jpl.org> * 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 <asjo@koldfront.dk> * spam.el (spam-unregister-on-reregister): Add boolean variable. (spam-resolve-registrations-routine): Use it to unregister articles that change status.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Mon, 28 Sep 2009 12:09:01 +0000
parents 2d2ad7907c5e
children c31b6489ac68
files lisp/gnus/ChangeLog lisp/gnus/gnus-art.el lisp/gnus/mm-encode.el lisp/gnus/mml-smime.el lisp/gnus/mml1991.el lisp/gnus/mml2015.el lisp/gnus/spam.el
diffstat 7 files changed, 53 insertions(+), 22 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog	Mon Sep 28 12:02:53 2009 +0000
+++ b/lisp/gnus/ChangeLog	Mon Sep 28 12:09:01 2009 +0000
@@ -6,6 +6,14 @@
 	* nnir.el (gnus-summary-nnir-goto-thread, nnir-run-waissearch)
 	(nnir-run-swish++, nnir-run-swish-e): Fix typos in error messages.
 
+2009-09-22  Daiki Ueno  <ueno@unixuser.org>
+
+	* 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-18  Glenn Morris  <rgm@gnu.org>
 
 	* gnus-diary.el (gnus-diary-check-message):
@@ -14,6 +22,18 @@
 	* nndiary.el (nndiary-schedule):
 	Fix typos in condition-case handlers.
 
+2009-09-15  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* 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 Sjøgren  <asjo@koldfront.dk>
+
+	* spam.el (spam-unregister-on-reregister): Add boolean variable.
+	(spam-resolve-registrations-routine): Use it to unregister articles
+	that change status.
+
 2009-09-10  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* nnrss.el (nnrss-request-article): Remove binding of
--- a/lisp/gnus/gnus-art.el	Mon Sep 28 12:02:53 2009 +0000
+++ b/lisp/gnus/gnus-art.el	Mon Sep 28 12:09:01 2009 +0000
@@ -4862,15 +4862,9 @@
 	 ,gnus-summary-buffer no-highlight))
      t)
     (gnus-article-edit-done)
-    (gnus-summary-expand-window)
-    (gnus-summary-show-article)
+    (gnus-configure-windows 'article)
     (when (and current-id (integerp gnus-auto-select-part))
-      (gnus-article-jump-to-part
-       (if (text-property-any (point-min) (point-max)
-			      'gnus-part (+ current-id gnus-auto-select-part))
-	   (+ current-id gnus-auto-select-part)
-	 (with-current-buffer gnus-article-buffer
-	   (length gnus-article-mime-handle-alist)))))))
+      (gnus-article-jump-to-part (+ current-id gnus-auto-select-part)))))
 
 (defun gnus-mime-replace-part (file)
   "Replace MIME part under point with an external body."
--- a/lisp/gnus/mm-encode.el	Mon Sep 28 12:02:53 2009 +0000
+++ b/lisp/gnus/mm-encode.el	Mon Sep 28 12:09:01 2009 +0000
@@ -60,6 +60,24 @@
 			       (const base64))))
   :group 'mime)
 
+(defcustom mm-sign-option nil
+  "Option how to create signed parts.
+nil, use the default keys without asking;
+`guided', let you select signing keys from the menu."
+  :version "23.1"
+  :type '(choice (item guided)
+		 (item :tag "default" nil))
+  :group 'mime-security)
+
+(defcustom mm-encrypt-option nil
+  "Option how to create encrypted parts.
+nil, use the default keys without asking;
+`guided', let you select recipients' keys from the menu."
+  :version "23.1"
+  :type '(choice (item guided)
+		 (item :tag "default" nil))
+  :group 'mime-security)
+
 (defvar mm-use-ultra-safe-encoding nil
   "If non-nil, use encodings aimed at Procrustean bed survival.
 
--- a/lisp/gnus/mml-smime.el	Mon Sep 28 12:02:53 2009 +0000
+++ b/lisp/gnus/mml-smime.el	Mon Sep 28 12:09:01 2009 +0000
@@ -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-encrypt-option 'guided)
 	  (setq recipients
 		(epa-select-keys context "\
 Select recipients for encryption.
--- a/lisp/gnus/mml1991.el	Mon Sep 28 12:02:53 2009 +0000
+++ b/lisp/gnus/mml1991.el	Mon Sep 28 12:09:01 2009 +0000
@@ -34,6 +34,7 @@
   (require 'cl)
   (require 'mm-util))
 
+(require 'mm-encode)
 (require 'mml-sec)
 
 (defvar mc-pgp-always-sign)
@@ -368,7 +369,7 @@
 (defun mml1991-epg-sign (cont)
   (let ((context (epg-make-context))
 	headers cte signers signature)
-    (if mml1991-verbose
+    (if (eq mm-sign-option 'guided)
 	(setq signers (epa-select-keys context "Select keys for signing.
 If no one is selected, default secret key is used.  "
 				       mml1991-signers t))
@@ -448,7 +449,7 @@
 			       (or (epg-expand-group config recipient)
 				   (list recipient)))
 			     recipients))))
-    (if mml1991-verbose
+    (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.  "
@@ -466,7 +467,7 @@
 				 mml1991-signers)))
 	  (error "mml1991-signers not set")))
     (when sign
-      (if mml1991-verbose
+      (if (eq mm-sign-option 'guided)
 	  (setq signers (epa-select-keys context "Select keys for signing.
 If no one is selected, default secret key is used.  "
 					 mml1991-signers t))
--- a/lisp/gnus/mml2015.el	Mon Sep 28 12:02:53 2009 +0000
+++ b/lisp/gnus/mml2015.el	Mon Sep 28 12:09:01 2009 +0000
@@ -1187,7 +1187,7 @@
 	  (or (message-options-get 'mml2015-epg-signers)
 	      (message-options-set
 	       'mml2015-epg-signers
-	       (if mml2015-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.  "
@@ -1269,7 +1269,7 @@
 	(unless mml2015-signers
 	  (error "mml2015-signers not set"))
 	(setq recipients (nconc recipients mml2015-signers)))
-      (if mml2015-verbose
+      (if (eq mm-encrypt-option 'guided)
 	  (setq recipients
 		(epa-select-keys context "\
 Select recipients for encryption.
@@ -1297,7 +1297,7 @@
 	    (or (message-options-get 'mml2015-epg-signers)
 		(message-options-set
 		 'mml2015-epg-signers
-		 (if mml2015-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.  "
--- a/lisp/gnus/spam.el	Mon Sep 28 12:02:53 2009 +0000
+++ b/lisp/gnus/spam.el	Mon Sep 28 12:09:01 2009 +0000
@@ -660,12 +660,12 @@
   :type 'string
   :group 'spam-crm114)
 
-(defcustom spam-crm114-spam-strong-switch "--UNKNOWN"
+(defcustom spam-crm114-spam-strong-switch "--unlearn"
   "The switch that CRM114 Mailfilter uses to unregister ham messages."
   :type 'string
   :group 'spam-crm114)
 
-(defcustom spam-crm114-ham-strong-switch "--UNKNOWN"
+(defcustom spam-crm114-ham-strong-switch "--unlearn"
   "The switch that CRM114 Mailfilter uses to unregister spam messages."
   :type 'string
   :group 'spam-crm114)
@@ -1152,10 +1152,8 @@
 				  'spam-check-crm114
 				  'spam-crm114-register-ham-routine
 				  'spam-crm114-register-spam-routine
-				  ;; does CRM114 Mailfilter support unregistration?
-				  nil
-				  nil)
-
+				  'spam-crm114-unregister-ham-routine
+				  'spam-crm114-unregister-spam-routine)
 ;;}}}
 
 ;;{{{ scoring and summary formatting