[gnus git] branch master updated: n0-13-73-ged1566c =2= * gnus-sum.el (gnus-update-read-articles): Fix typo. ; Default to not propagating marks to all backends except nnimap.

       via  ed1566cafd82664af9264dc39946306d234d33bb (commit)
       via  e5c3a3810539df6764a3fed0893c40aae3377e34 (commit)
      from  4d989747fbb1b5011f15c9ddc1d642fa0681c08e (commit)


- Log -----------------------------------------------------------------
commit ed1566cafd82664af9264dc39946306d234d33bb
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Sat Mar 5 11:46:54 2011 +0100

    * gnus-sum.el (gnus-update-read-articles): Fix typo.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 13494e9..4ccf696 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2011-03-05  Lars Magne Ingebrigtsen  <[email protected]>
 
+	* gnus-sum.el (gnus-update-read-articles): Fix typo.
+
 	* gnus.el (gnus-valid-select-methods): Mark nnimap as a backend that
 	really have server-side marks.
 
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 6d4e0c7..a8786e3 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -12437,8 +12437,8 @@ UNREAD is a sorted list."
 	    ;; Propagate the read marks to the backend.
 	    (when (and (or gnus-propagate-marks
 			   (gnus-method-option-p
-			    'server-marks
-			    (gnus-find-method-for-group group)))
+			    (gnus-find-method-for-group group)
+			    'server-marks))
 		       (gnus-check-backend-function 'request-set-mark group))
 	      (let ((del (gnus-remove-from-range (gnus-info-read info) read))
 		    (add (gnus-remove-from-range read (gnus-info-read info))))

commit e5c3a3810539df6764a3fed0893c40aae3377e34
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Sat Mar 5 11:34:32 2011 +0100

    Default to not propagating marks to all backends except nnimap.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d1bafc1..13494e9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2011-03-05  Lars Magne Ingebrigtsen  <[email protected]>
+
+	* gnus.el (gnus-valid-select-methods): Mark nnimap as a backend that
+	really have server-side marks.
+
+	* gnus-sum.el (gnus-propagate-marks): Change default back to nil again,
+	since most backends do not usefully have server-side marks.
+	(gnus-update-read-articles): Propagate marks to all backends that
+	really have server-side marks.
+
 2011-03-05  Antoine Levitt  <[email protected]>
 
 	* message.el (message-cite-reply-position, message-cite-style): New
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index abe6367..6d4e0c7 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1234,7 +1234,7 @@ For example: ((1 . cn-gb-2312) (2 . big5))."
   :type 'boolean
   :group 'gnus-summary-marks)
 
-(defcustom gnus-propagate-marks t
+(defcustom gnus-propagate-marks nil
   "If non-nil, Gnus will store and retrieve marks from the backends.
 This means that marks will be stored both in .newsrc.eld and in
 the backend, and will slow operation down somewhat."
@@ -12435,7 +12435,10 @@ UNREAD is a sorted list."
 	(save-excursion
 	  (let (setmarkundo)
 	    ;; Propagate the read marks to the backend.
-	    (when (and gnus-propagate-marks
+	    (when (and (or gnus-propagate-marks
+			   (gnus-method-option-p
+			    'server-marks
+			    (gnus-find-method-for-group group)))
 		       (gnus-check-backend-function 'request-set-mark group))
 	      (let ((del (gnus-remove-from-range (gnus-info-read info) read))
 		    (add (gnus-remove-from-range read (gnus-info-read info))))
diff --git a/lisp/gnus.el b/lisp/gnus.el
index b8d8874..d11fd84 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1606,7 +1606,8 @@ slower."
     ("nnweb" none)
     ("nnrss" none)
     ("nnagent" post-mail)
-    ("nnimap" post-mail address prompt-address physical-address respool)
+    ("nnimap" post-mail address prompt-address physical-address respool
+     server-marks)
     ("nnmaildir" mail respool address)
     ("nnnil" none))
   "*An alist of valid select methods.

-----------------------------------------------------------------------
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   |   12 ++++++++++++
 lisp/gnus-sum.el |    7 +++++--
 lisp/gnus.el     |    3 ++-
 3 files changed, 19 insertions(+), 3 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