(gnus-agent-fetch-headers): Don't message if we're not downloading anything.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dfacf5e..dfd7a34 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-03-29  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-agent.el (gnus-agent-fetch-headers): Don't message if we're not
+       downloading anything.
+
        * gnus.el (gnus-splash-svg-color-symbols): Removed superfluous `and'.
 
 2011-03-29  Adam Sjøgren  <asjo@koldfront.dk>

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 989488c..52fbe9d 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1925,9 +1925,10 @@ article numbers will be returned."
             (setq articles (gnus-list-range-intersection
                             articles (list (cons low high)))))))
 
-      (gnus-message
-       10 "gnus-agent-fetch-headers: undownloaded articles are '%s'"
-       (gnus-compress-sequence articles t))
+      (when articles
+       (gnus-message
+        10 "gnus-agent-fetch-headers: undownloaded articles are '%s'"
+        (gnus-compress-sequence articles t)))
 
       (with-current-buffer nntp-server-buffer
         (if articles