From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Sun, 24 Oct 2010 04:23:38 +0000 (+0200)
Subject: (gnus-agent-fetch-group): Don't download stuff if the group isn't covered by the... 
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=2b72972b6b44de79095f37e55af4165a21cdd7c9

(gnus-agent-fetch-group): Don't download stuff if the group isn't covered by the agent.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dd07ebded..6b880ade0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-24  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* gnus-agent.el (gnus-agent-fetch-group): Don't download stuff if the
+	group isn't covered by the agent.
+
 2010-10-22  Andrew Cohen  <cohen@andy.bu.edu>
 
 	* nnir.el (nnir-method-default-engines): new variable.
diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 7fdd5b4ea..359703723 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -801,12 +801,13 @@ be a select method."
   (setq group (or group gnus-newsgroup-name))
   (unless group
     (error "No group on the current line"))
-
-  (gnus-agent-while-plugged
-    (let ((gnus-command-method (gnus-find-method-for-group group)))
-      (gnus-agent-with-fetch
-        (gnus-agent-fetch-group-1 group gnus-command-method)
-        (gnus-message 5 "Fetching %s...done" group)))))
+  (if (not (gnus-agent-group-covered-p group))
+      (message "%s isn't covered by the agent" group)
+    (gnus-agent-while-plugged
+      (let ((gnus-command-method (gnus-find-method-for-group group)))
+	(gnus-agent-with-fetch
+	  (gnus-agent-fetch-group-1 group gnus-command-method)
+	  (gnus-message 5 "Fetching %s...done" group))))))
 
 (defun gnus-agent-add-group (category arg)
   "Add the current group to an agent category."