[Emacs-diffs] /srv/bzr/emacs/trunk r111309: Merge changes made in Gnus master

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 111309
author: Gnus developers <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sun 2012-12-23 12:45:01 +0000
message:
  Merge changes made in Gnus master
  
  2012-12-23 Lars Ingebrigtsen <address@hidden>
  * gnus-int.el (gnus-backend-trace): Factor out into its own function for 
reuse.
    (gnus-open-server): Use it to add more tracing.
    (gnus-finish-retrieve-group-infos): Add backend tracing.
  
  2012-12-22 Philipp Haselwarter <address@hidden>
  * gnus-sync.el (gnus-sync-file-encrypt-to, gnus-sync-save):
    Set epa-file-encrypt-to from variable to avoid querying.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-int.el
  lisp/gnus/gnus-sync.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2012-12-14 04:26:47 +0000
+++ b/lisp/gnus/ChangeLog       2012-12-23 12:45:01 +0000
@@ -1,3 +1,15 @@
+2012-12-23  Lars Ingebrigtsen  <address@hidden>
+
+       * gnus-int.el (gnus-backend-trace): Factor out into its own function
+       for reuse.
+       (gnus-open-server): Use it to add more tracing.
+       (gnus-finish-retrieve-group-infos): Add backend tracing.
+
+2012-12-22  Philipp Haselwarter  <address@hidden>
+
+       * gnus-sync.el (gnus-sync-file-encrypt-to, gnus-sync-save): Set
+       epa-file-encrypt-to from variable to avoid querying.
+
 2012-12-14  Akinori MUSHA  <address@hidden>  (tiny change)
 
        * sieve-mode.el (sieve-font-lock-keywords):

=== modified file 'lisp/gnus/gnus-int.el'
--- a/lisp/gnus/gnus-int.el     2012-08-31 04:39:30 +0000
+++ b/lisp/gnus/gnus-int.el     2012-12-23 12:45:01 +0000
@@ -249,16 +249,18 @@
 
 (defvar gnus-backend-trace nil)
 
+(defun gnus-backend-trace (type form)
+  (with-current-buffer (get-buffer-create "*gnus trace*")
+    (buffer-disable-undo)
+      (goto-char (point-max))
+      (insert (format-time-string "%H:%M:%S")
+             (format " %s %S\n" type form))))
+
 (defun gnus-open-server (gnus-command-method)
   "Open a connection to GNUS-COMMAND-METHOD."
   (when (stringp gnus-command-method)
     (setq gnus-command-method (gnus-server-to-method gnus-command-method)))
-  (when gnus-backend-trace
-    (with-current-buffer (get-buffer-create "*gnus trace*")
-      (buffer-disable-undo)
-      (goto-char (point-max))
-      (insert (format-time-string "%H:%M:%S")
-             (format " %S\n" gnus-command-method))))
+  (gnus-backend-trace :opening gnus-command-method)
   (let ((elem (assoc gnus-command-method gnus-opened-servers))
        (server (gnus-method-to-server-name gnus-command-method)))
     ;; If this method was previously denied, we just return nil.
@@ -333,6 +335,7 @@
            (save-excursion
              (gnus-agent-possibly-synchronize-flags-server
               gnus-command-method)))
+         (gnus-backend-trace :opened gnus-command-method)
           result)))))
 
 (defun gnus-close-server (gnus-command-method)
@@ -353,9 +356,13 @@
   "Read and update infos from GNUS-COMMAND-METHOD."
   (when (stringp gnus-command-method)
     (setq gnus-command-method (gnus-server-to-method gnus-command-method)))
-  (funcall (gnus-get-function gnus-command-method 'finish-retrieve-group-infos)
-          (nth 1 gnus-command-method)
-          infos data))
+  (gnus-backend-trace :finishing gnus-command-method)
+  (prog1
+      (funcall (gnus-get-function gnus-command-method
+                                 'finish-retrieve-group-infos)
+              (nth 1 gnus-command-method)
+              infos data)
+    (gnus-backend-trace :finished gnus-command-method)))
 
 (defun gnus-retrieve-group-data-early (gnus-command-method infos)
   "Start early async retrieval of data from GNUS-COMMAND-METHOD."

=== modified file 'lisp/gnus/gnus-sync.el'
--- a/lisp/gnus/gnus-sync.el    2012-12-06 03:30:23 +0000
+++ b/lisp/gnus/gnus-sync.el    2012-12-23 12:45:01 +0000
@@ -138,6 +138,11 @@
 (defvar gnus-sync-newsrc-loader nil
   "Carrier for newsrc data")
 
+(defcustom gnus-sync-file-encrypt-to nil
+  "If non-nil, `epa-file-encrypt-to' is set from this for encrypting the Sync
+  file."
+  :group 'gnus-sync)
+
 (defcustom gnus-sync-lesync-name (system-name)
   "The LeSync name for this machine."
   :group 'gnus-sync
@@ -762,6 +767,9 @@
         (progn
           (let ((coding-system-for-write gnus-ding-file-coding-system)
                 (standard-output (current-buffer)))
+            (when gnus-sync-file-encrypt-to
+              (set (make-local-variable 'epa-file-encrypt-to)
+                   gnus-sync-file-encrypt-to))
             (princ (format ";; -*- mode:emacs-lisp; coding: %s; -*-\n"
                            gnus-ding-file-coding-system))
             (princ ";; Gnus sync data v. 0.0.1\n")