[gnus git] branch master updated: n0-17-467-ged0bb7b =1= Minor gnus-sync.el fixes.

       via  ed0bb7bdd7d1fc8df888a5e5988878d060037c74 (commit)
      from  f742b37b11f557ed8ddfd9dd65517ed6d4a06422 (commit)


- Log -----------------------------------------------------------------
commit ed0bb7bdd7d1fc8df888a5e5988878d060037c74
Author: Ted Zlatanov <[email protected]>
Date:   Fri Jan 6 20:40:01 2012 -0500

    Minor gnus-sync.el fixes.
    
    * gnus-sync.el (gnus-sync-newsrc-groups): Quote normally.
    (gnus-sync-lesync-pre-save-group-entry): Remove invalid invlists.
    (gnus-sync-lesync-normalize-group-entry): Ignore a few more keys.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bce0dfe..2bc78be 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2012-01-07  Teodor Zlatanov  <[email protected]>
+
+	* gnus-sync.el (gnus-sync-newsrc-groups): Quote normally.
+	(gnus-sync-lesync-pre-save-group-entry): Remove invalid invlists.
+	(gnus-sync-lesync-normalize-group-entry): Ignore a few more keys.
+
 2012-01-07  Lars Magne Ingebrigtsen  <[email protected]>
 
 	* gnus-sum.el (gnus-summary-read-group): Document more parameters
diff --git a/lisp/gnus-sync.el b/lisp/gnus-sync.el
index 7f99f3b..57c834a 100644
--- a/lisp/gnus-sync.el
+++ b/lisp/gnus-sync.el
@@ -105,7 +105,7 @@
   :version "24.1"
   :group 'gnus)
 
-(defcustom gnus-sync-newsrc-groups `("nntp" "nnrss")
+(defcustom gnus-sync-newsrc-groups '("nntp" "nnrss")
   "List of groups to be synchronized in the gnus-newsrc-alist.
 The group names are matched, they don't have to be fully
 qualified.  Typically you would choose all of these.  That's the
@@ -488,10 +488,22 @@ Updates `gnus-sync-lesync-props-hash'."
       ;; the read marks
       ,(cons 'read (gnus-sync-range2invlist (nth 2 nentry)))
       ;; the other marks
-      ,@(mapcar (lambda (mark-entry)
+      ,@(delq nil (mapcar (lambda (mark-entry)
+                            (gnus-message 12 "%s: prep param %s in %s"
+                                          loc
+                                          (car mark-entry)
+                                          (nth 3 nentry))
+                            (if (listp (cdr mark-entry))
                   (cons (car mark-entry)
-                        (gnus-sync-range2invlist (cdr mark-entry))))
-                (nth 3 nentry)))))
+                                      (gnus-sync-range2invlist
+                                       (cdr mark-entry)))
+                              (progn    ; else this is not a list
+                                (gnus-message 9 "%s: non-list param %s in %s"
+                                              loc
+                                              (car mark-entry)
+                                              (nth 3 nentry))
+                                nil)))
+                          (nth 3 nentry))))))
 
 (defun gnus-sync-lesync-post-save-group-entry (url entry)
   (let* ((loc "gnus-sync-lesync-post-save-group-entry")
@@ -666,8 +678,8 @@ unwanted groups via the LeSync URL."
         (cond
          ((eq k 'read)
           (push (cons k (gnus-sync-invlist2range val)) ret))
-         ;; we already know the name
-         ((eq k '_id)
+         ;; we ignore these parameters
+         ((member k '(_id subscribe-all _deleted_conflicts))
           nil)
          ((eq k '_rev)
           (push (cons 'rev val) ret))

-----------------------------------------------------------------------
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    |    6 ++++++
 lisp/gnus-sync.el |   26 +++++++++++++++++++-------
 2 files changed, 25 insertions(+), 7 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