[gnus git] branch master updated: m0-5-193-gf6b3b0d =1= * gnus-sync.el (gnus-sync-file-encrypt-to, gnus-sync-save): Set epa-file-encrypt-to from variable to avoid querying.

       via  f6b3b0de025000f0b82be224ba8f35c2eff716e8 (commit)
      from  8b2203e2f87cfe404826cafa1e632f88d49b9e6c (commit)


- Log -----------------------------------------------------------------
commit f6b3b0de025000f0b82be224ba8f35c2eff716e8
Author: Ted Zlatanov <[email protected]>
Date:   Sat Dec 22 15:02:32 2012 -0500

    * gnus-sync.el (gnus-sync-file-encrypt-to, gnus-sync-save): Set epa-file-encrypt-to from variable to avoid querying.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fe20468..048a660 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-12-22  Philipp Haselwarter <[email protected]>
+
+	* 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  <[email protected]>  (tiny change)
 
 	* sieve-mode.el (sieve-font-lock-keywords):
diff --git a/lisp/gnus-sync.el b/lisp/gnus-sync.el
index 8584e94..547efc0 100644
--- a/lisp/gnus-sync.el
+++ b/lisp/gnus-sync.el
@@ -150,6 +150,11 @@ and `gnus-topic-alist'.  Also see `gnus-variable-list'."
 (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
@@ -775,6 +780,9 @@ With a prefix, FORCE is set and all groups will be saved."
         (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")

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog    |    5 +++++
 lisp/gnus-sync.el |    8 ++++++++
 2 files changed, 13 insertions(+), 0 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project