[gnus git] branch master updated: m0-3-8-gd30ad4e =1= Remove gnus-propagate-marks, which is no longer needed.

       via  d30ad4e7f9924a45d2c428420a7ea71e36d94a60 (commit)
      from  82ceb2e2b84646404255585f076eec83e9dfdb85 (commit)


- Log -----------------------------------------------------------------
commit d30ad4e7f9924a45d2c428420a7ea71e36d94a60
Author: Lars Ingebrigtsen <[email protected]>
Date:   Thu Feb 16 06:23:19 2012 +0100

    Remove gnus-propagate-marks, which is no longer needed.
    
    The backends don't store marks any more.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f048616..43b4a38 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-02-16  Lars Ingebrigtsen  <[email protected]>
+
+	* gnus-sum.el (gnus-propagate-marks): Remove.
+
 2012-02-15  Lars Ingebrigtsen  <[email protected]>
 
 	* imap.el: Remove.
diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 948c236..428c213 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1504,8 +1504,6 @@ backend check whether the group actually exists."
 	     ;; Return the new active info.
 	     active)))))
 
-(defvar gnus-propagate-marks)		; gnus-sum
-
 (defun gnus-get-unread-articles-in-group (info active &optional update)
   (when (and info active)
     ;; Allow the backend to update the info in the group.
@@ -1515,13 +1513,6 @@ backend check whether the group actually exists."
 			      (gnus-info-group info)))))
       (gnus-activate-group (gnus-info-group info) nil t))
 
-    ;; Allow backends to update marks,
-    (when gnus-propagate-marks
-      (let ((method (inline (gnus-find-method-for-group
-			     (gnus-info-group info)))))
-	(when (gnus-check-backend-function 'request-marks (car method))
-	  (gnus-request-marks info method))))
-
     (let* ((range (gnus-info-read info))
 	   (num 0))
 
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 3e19b7b..7033573 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1243,13 +1243,6 @@ For example: ((1 . cn-gb-2312) (2 . big5))."
   :type 'boolean
   :group 'gnus-summary-marks)
 
-(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."
-  :type 'boolean
-  :group 'gnus-summary-marks)
-
 (defcustom gnus-alter-articles-to-read-function nil
   "Function to be called to alter the list of articles to be selected."
   :type '(choice (const nil) function)
@@ -6294,10 +6287,9 @@ The resulting hash table is returned, or nil if no Xrefs were found."
 	 (info (nth 2 entry))
 	 (active (gnus-active group))
 	 (set-marks
-	  (or gnus-propagate-marks
 	      (gnus-method-option-p
 	       (gnus-find-method-for-group group)
-	       'server-marks)))
+	   'server-marks))
 	 range)
     (if (not entry)
 	;; Group that Gnus doesn't know exists, but still allow the
@@ -10096,10 +10088,9 @@ ACTION can be either `move' (the default), `crosspost' or `copy'."
 		   to-group 'expire (list to-article) info))
 
 		(when (and to-marks
-			   (or gnus-propagate-marks
 			       (gnus-method-option-p
 				(gnus-find-method-for-group to-group)
-				'server-marks)))
+			    'server-marks))
 		  (gnus-request-set-mark
 		   to-group (list (list (list to-article) 'add to-marks)))))
 
@@ -12581,10 +12572,9 @@ UNREAD is a sorted list."
 	(save-excursion
 	  (let (setmarkundo)
 	    ;; Propagate the read marks to the backend.
-	    (when (and (or gnus-propagate-marks
-			   (gnus-method-option-p
+	    (when (and (gnus-method-option-p
 			    (gnus-find-method-for-group group)
-			    'server-marks))
+			'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))))
diff --git a/texi/ChangeLog b/texi/ChangeLog
index eda6ed7..b6343f6 100644
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,8 @@
+2012-02-16  Lars Ingebrigtsen  <[email protected]>
+
+	* gnus.texi (Various Summary Stuff): Remove mention of
+	`gnus-propagate-marks'.
+
 2012-02-15  Lars Ingebrigtsen  <[email protected]>
 
 	* gnus.texi: Remove mentions of nnml/nnfolder/nntp backend marks, which
diff --git a/texi/gnus.texi b/texi/gnus.texi
index fcb5b23..cc2fedc 100644
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -10810,11 +10810,6 @@ buffers.  For example:
 
 Also @pxref{Group Parameters}.
 
-@vindex gnus-propagate-marks
-@item gnus-propagate-marks
-If non-@code{nil}, propagate marks to the backends for possible
-storing.
-
 @end table
 
 

-----------------------------------------------------------------------
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     |    4 ++++
 lisp/gnus-start.el |    9 ---------
 lisp/gnus-sum.el   |   28 +++++++++-------------------
 texi/ChangeLog     |    5 +++++
 texi/gnus.texi     |    5 -----
 5 files changed, 18 insertions(+), 33 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