[Emacs-diffs] /srv/bzr/emacs/emacs-24 r110982: * gnus-sync.el (gnus-sync-newsrc-offsets): Restore definition.

[Andreas Schwab]

------------------------------------------------------------
revno: 110982
committer: Andreas Schwab <address@hidden>
branch nick: emacs
timestamp: Sun 2012-12-02 11:55:08 +0100
message:
  * gnus-sync.el (gnus-sync-newsrc-offsets): Restore definition.
  (gnus-sync-save): Use correct format for gnus-sync-newsrc-loader.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-sync.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2012-11-16 09:44:35 +0000
+++ b/lisp/gnus/ChangeLog       2012-12-02 10:55:08 +0000
@@ -1,3 +1,8 @@
+2012-12-02  Andreas Schwab  <address@hidden>
+
+       * gnus-sync.el (gnus-sync-newsrc-offsets): Restore definition.
+       (gnus-sync-save): Use correct format for gnus-sync-newsrc-loader.
+
 2012-11-16  Jan Tatarik  <address@hidden>
 
        * gnus-score.el (gnus-score-body):

=== modified file 'lisp/gnus/gnus-sync.el'
--- a/lisp/gnus/gnus-sync.el    2012-10-06 20:30:26 +0000
+++ b/lisp/gnus/gnus-sync.el    2012-12-02 10:55:08 +0000
@@ -109,6 +109,12 @@
   :group 'gnus-sync
   :type '(repeat regexp))
 
+(defcustom gnus-sync-newsrc-offsets '(2 3)
+  "List of per-group data to be synchronized."
+  :group 'gnus-sync
+  :type '(set (const :tag "Read ranges" 2)
+              (const :tag "Marks" 3)))
+
 (defcustom gnus-sync-global-vars nil
   "List of global variables to be synchronized.
 You may want to sync `gnus-newsrc-last-checked-date' but pretty
@@ -743,7 +749,15 @@
     ;; entry in gnus-newsrc-alist whose group matches any of the
     ;; gnus-sync-newsrc-groups
     ;; TODO: keep the old contents for groups we don't have!
-    (let ((gnus-sync-newsrc-loader (gnus-sync-newsrc-loader-builder)))
+    (let ((gnus-sync-newsrc-loader
+          (loop for entry in (cdr gnus-newsrc-alist)
+                when (gnus-grep-in-list
+                      (car entry)     ;the group name
+                      gnus-sync-newsrc-groups)
+                collect (cons (car entry)
+                              (mapcar (lambda (offset)
+                                        (cons offset (nth offset entry)))
+                                      gnus-sync-newsrc-offsets)))))
       (with-temp-file gnus-sync-backend
         (progn
           (let ((coding-system-for-write gnus-ding-file-coding-system)