Changes committed gnus/lisp (ChangeLog gnus-sum.el)

Modified: ChangeLog gnus-sum.el

(gnus-summary-save-parts): Inhibit even more treatment
hooks. 
(gnus-update-read-articles): Speed up non-marks-using users.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1840 gnus/lisp/ChangeLog:7.1841
--- ChangeLog:7.1840	Mon Apr 28 18:44:02 2008
+++ ChangeLog	Thu May  1 16:22:39 2008
@@ -1,3 +1,9 @@
+2008-05-01  Lars Magne Ingebrigtsen  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* mail-source.el (mail-source-set-1, mail-source-bind): Moved
Index: gnus-sum.el
diff -u gnus/lisp/gnus-sum.el:7.221 gnus/lisp/gnus-sum.el:7.222
--- gnus-sum.el:7.221	Thu Apr 24 06:19:20 2008
+++ gnus-sum.el	Thu May  1 16:22:39 2008
@@ -11818,6 +11818,10 @@
 	 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 @@
 	(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)