[Emacs-diffs] emacs/lisp/gnus ChangeLog gnus-art.el mm-encode...

[Katsumi Yamaoka]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Katsumi Yamaoka <yamaoka>       09/09/28 12:09:04

Modified files:
        lisp/gnus      : ChangeLog gnus-art.el mm-encode.el mml-smime.el 
                         mml1991.el mml2015.el spam.el 

Log message:
        Synch with Gnus trunk.
        2009-09-22  Daiki Ueno  <address@hidden>
        
         * 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  <address@hidden>
        
         * 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  <address@hidden>
        
         * spam.el (spam-unregister-on-reregister): Add boolean variable.
         (spam-resolve-registrations-routine): Use it to unregister articles
         that change status.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&r1=1.831&r2=1.832
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/gnus-art.el?cvsroot=emacs&r1=1.186&r2=1.187
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/mm-encode.el?cvsroot=emacs&r1=1.23&r2=1.24
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/mml-smime.el?cvsroot=emacs&r1=1.19&r2=1.20
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/mml1991.el?cvsroot=emacs&r1=1.23&r2=1.24
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/mml2015.el?cvsroot=emacs&r1=1.28&r2=1.29
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/spam.el?cvsroot=emacs&r1=1.31&r2=1.32

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/ChangeLog,v
retrieving revision 1.831
retrieving revision 1.832
diff -u -b -r1.831 -r1.832
--- ChangeLog   23 Sep 2009 23:58:40 -0000      1.831
+++ ChangeLog   28 Sep 2009 12:09:01 -0000      1.832
@@ -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  <address@hidden>
+
+       * 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  <address@hidden>
 
        * 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  <address@hidden>
+
+       * 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  <address@hidden>
+
+       * 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  <address@hidden>
 
        * nnrss.el (nnrss-request-article): Remove binding of

Index: gnus-art.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gnus-art.el,v
retrieving revision 1.186
retrieving revision 1.187
diff -u -b -r1.186 -r1.187
--- gnus-art.el 23 Sep 2009 23:58:40 -0000      1.186
+++ gnus-art.el 28 Sep 2009 12:09:03 -0000      1.187
@@ -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."

Index: mm-encode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/mm-encode.el,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -b -r1.23 -r1.24
--- mm-encode.el        9 Sep 2009 09:28:44 -0000       1.23
+++ mm-encode.el        28 Sep 2009 12:09:03 -0000      1.24
@@ -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.
 

Index: mml-smime.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/mml-smime.el,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -b -r1.19 -r1.20
--- mml-smime.el        5 Jan 2009 03:22:10 -0000       1.19
+++ mml-smime.el        28 Sep 2009 12:09:03 -0000      1.20
@@ -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.

Index: mml1991.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/mml1991.el,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -b -r1.23 -r1.24
--- mml1991.el  9 Jan 2009 03:01:50 -0000       1.23
+++ mml1991.el  28 Sep 2009 12:09:03 -0000      1.24
@@ -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))

Index: mml2015.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/mml2015.el,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -b -r1.28 -r1.29
--- mml2015.el  5 Jan 2009 03:22:10 -0000       1.28
+++ mml2015.el  28 Sep 2009 12:09:03 -0000      1.29
@@ -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.  "

Index: spam.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/spam.el,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- spam.el     2 Sep 2009 03:04:18 -0000       1.31
+++ spam.el     28 Sep 2009 12:09:03 -0000      1.32
@@ -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