(gnus-use-marks): Define gnus-use-marks.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4773a4d..65e3a9f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,7 @@
        * gnus-sum.el (gnus-summary-save-parts): Inhibit even more treatment
        hooks. 
        (gnus-update-read-articles): Speed up non-marks-using users.
+       (gnus-use-marks): Define gnus-use-marks.
 
 2008-04-28  Teodor Zlatanov  <tzz@lifelogs.com>
 

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 434a5b8..0af790f 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1208,6 +1208,12 @@ For example: ((1 . cn-gb-2312) (2 . big5))."
   :type 'boolean
   :group 'gnus-summary-marks)
 
+(defcustom gnus-use-marks t
+  "If non-nil, do not propagate marks to the backends."
+  :version "21.1"
+  :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)