Add new variable gnus-use-backend-marks, and start reading marks again.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6a46db0..d5c800b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-23  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-start.el (gnus-use-backend-marks): New variable.
+       (gnus-get-unread-articles-in-group): Use it.
+
        * gnus-sum.el (gnus-summary-local-variables): Prepare for list/range
        makeover.
 

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 8bbadc8..d5880e8 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -380,6 +380,13 @@ disc."
   :group 'gnus-newsrc
   :type 'boolean)
 
+(defcustom gnus-use-backend-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."
+  :group 'gnus-newsrc
+  :type 'boolean)
+
 (defcustom gnus-check-bogus-groups-hook nil
   "A hook run after removing bogus groups."
   :group 'gnus-start-server
@@ -1578,6 +1585,13 @@ If SCAN, request a scan of that group as well."
                              (gnus-info-group info)))))
       (gnus-activate-group (gnus-info-group info) nil t))
 
+    ;; Allow backends to update marks, 
+    (when gnus-use-backend-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/texi/ChangeLog b/texi/ChangeLog
index 1677b30..17022dd 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,7 @@
+2010-09-23  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus.texi (Startup Variables): Mention gnus-use-backend-marks.
+
 2010-09-21  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus.texi (Expunging mailboxes): Update name of the expunging

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 202b57d..7f20f96 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1646,6 +1646,12 @@ If non-@code{nil}, play the Gnus jingle at startup.
 Jingle to be played if the above variable is non-@code{nil}.  The
 default is @samp{Tuxedomoon.Jingle4.au}.
 
+@item gnus-use-backend-marks
+@vindex gnus-use-backend-marks
+If non-@code{nil}, Gnus will store article marks both in the
+@file{.newsrc.eld} file and in the backends.  This will slow down
+group operation some.
+
 @end table