From: Teodor Zlatanov <tzz@lifelogs.com>
Date: Mon, 16 May 2011 22:05:15 +0000 (+0000)
Subject: gnus-sum.el (gnus-summary-hide-all-threads): Add update message every 1000 iterations.
X-Git-Url: http://git.hcoop.net/bpt/emacs.git/commitdiff_plain/e5946384189a9c0cc818687a497978182914f395?ds=sidebyside

gnus-sum.el (gnus-summary-hide-all-threads): Add update message every 1000 iterations.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 1a55b7fb99..57f74d40ab 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2011-05-16  Teodor Zlatanov  <tzz@lifelogs.com>
+
+	* gnus-sum.el (gnus-summary-hide-all-threads): Add update message every
+	1000 iterations.
+
 2011-05-16  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* nntp.el (nntp-open-connection): Check if process-type is available.
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 3cbb479e06..53c2e5e596 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -11533,8 +11533,12 @@ will not be hidden."
   (interactive)
   (save-excursion
     (goto-char (point-min))
-    (let ((end nil))
+    (let ((end nil)
+          (count 0))
       (while (not end)
+        (incf count)
+        (when (zerop (mod count 1000))
+          (message "Hiding all threads... %d" count))
 	(when (or (not predicate)
 		  (gnus-map-articles
 		   predicate (gnus-summary-article-children)))