From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 16 Feb 2012 05:23:19 +0000 (+0100)
Subject: Remove gnus-propagate-marks, which is no longer needed.
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=d30ad4e7f9924a45d2c428420a7ea71e36d94a60

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 f0486166e..43b4a380b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-02-16  Lars Ingebrigtsen  <larsi@gnus.org>
+
+	* gnus-sum.el (gnus-propagate-marks): Remove.
+
 2012-02-15  Lars Ingebrigtsen  <larsi@gnus.org>
 
 	* imap.el: Remove.
diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 948c23625..428c213c4 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 3e19b7bf6..703357320 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)))
+	  (gnus-method-option-p
+	   (gnus-find-method-for-group group)
+	   '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)))
+			   (gnus-method-option-p
+			    (gnus-find-method-for-group to-group)
+			    '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
-			    (gnus-find-method-for-group group)
-			    'server-marks))
+	    (when (and (gnus-method-option-p
+			(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))))
diff --git a/texi/ChangeLog b/texi/ChangeLog
index eda6ed7d8..b6343f60f 100644
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,8 @@
+2012-02-16  Lars Ingebrigtsen  <larsi@gnus.org>
+
+	* gnus.texi (Various Summary Stuff): Remove mention of
+	`gnus-propagate-marks'.
+
 2012-02-15  Lars Ingebrigtsen  <larsi@gnus.org>
 
 	* gnus.texi: Remove mentions of nnml/nnfolder/nntp backend marks, which
diff --git a/texi/gnus.texi b/texi/gnus.texi
index fcb5b2365..cc2fedcd1 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