From Mark Plaksin.

(nnrss-verbose): New variable.
(nnrss-request-group): Make it say nnrss is requesting a group.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 941a7d6..fe52b4e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-02-19  Mark Plaksin  <happy@usg.edu>  (tiny change)
+
+       * nnrss.el (nnrss-verbose): New variable.
+       (nnrss-request-group): Make it say nnrss is requesting a group.
+
 2005-02-19  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-msg.el (gnus-copy-article-buffer): Quote decoded words

diff --git a/lisp/nnrss.el b/lisp/nnrss.el
index 6051be4..6e89786 100644 (file)
--- a/lisp/nnrss.el
+++ b/lisp/nnrss.el
@@ -66,6 +66,9 @@
 
 (defvar nnrss-use-local nil)
 
+(defvar nnrss-verbose t
+  "Write messages when requesting group.")
+
 (defvar nnrss-description-field 'X-Gnus-Description
   "Field name used for DESCRIPTION.
 To use the description in headers, put this name into `nnmail-extra-headers'.")
@@ -145,16 +148,21 @@ ARTICLE is the article number of the current headline.")
   'nov)
 
 (deffoo nnrss-request-group (group &optional server dont-check)
+  (if nnrss-verbose
+      (message (concat "nnrss requesting " group "...")))
   (setq group (nnrss-decode-group-name group))
   (nnrss-possibly-change-group group server)
-  (if dont-check
-      t
-    (nnrss-check-group group server)
-    (nnheader-report 'nnrss "Opened group %s" group)
-    (nnheader-insert
-     "211 %d %d %d %s\n" nnrss-group-max nnrss-group-min nnrss-group-max
-     (prin1-to-string group)
-     t)))
+  (prog1
+      (if dont-check
+         t
+       (nnrss-check-group group server)
+       (nnheader-report 'nnrss "Opened group %s" group)
+       (nnheader-insert
+        "211 %d %d %d %s\n" nnrss-group-max nnrss-group-min nnrss-group-max
+        (prin1-to-string group)
+        t))
+    (when nnrss-verbose
+      (message (concat "nnrss done with " group ".")))))
 
 (deffoo nnrss-close-group (group &optional server)
   t)