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 1a55b7fb995996c4eb5d62e6cfb611617ea6799a..57f74d40abfd1b3ba24a79005d4bee42ed2719ac 100644 (file)
--- 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 3cbb479e068e6cfdec1b4b447a82a648939d9b90..53c2e5e596f6fa9a56a211551ae0015c346f6a02 100644 (file)
--- 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)))