(gnus-summary-save-parts): Inhibit even more treatment

hooks.
(gnus-update-read-articles): Speed up non-marks-using users.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a9d0a06..4773a4d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-05-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-sum.el (gnus-summary-save-parts): Inhibit even more treatment
+       hooks. 
+       (gnus-update-read-articles): Speed up non-marks-using users.
+
 2008-04-28  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * mail-source.el (mail-source-set-1, mail-source-bind): Moved

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 6b9f9c6..434a5b8 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -11818,6 +11818,10 @@ If REVERSE, save parts that do not match TYPE."
         current-prefix-arg))
   (gnus-summary-iterate n
     (let ((gnus-display-mime-function nil)
+         gnus-article-prepare-hook
+         gnus-article-decode-hook
+         gnus-display-mime-function
+         gnus-break-pages
          (gnus-inhibit-treatment t))
       (gnus-summary-select-article))
     (with-current-buffer gnus-article-buffer
@@ -12151,7 +12155,8 @@ UNREAD is a sorted list."
        (save-excursion
          (let (setmarkundo)
            ;; Propagate the read marks to the backend.
-           (when (gnus-check-backend-function 'request-set-mark group)
+           (when (and gnus-use-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))))
                (when (or add del)