X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-agent.el;h=9b6de8e9ce73d0d3360e6fb94e3da46d1a326a8e;hb=cddb4672a1b8d0b3fb03dd1c5cad4b01f9fab219;hp=eb6f0f014fbb3ada2021f5487266e3b242dda5c0;hpb=dde2712bedc3af46c63d6249660f76b6d66a975c;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index eb6f0f0..9b6de8e 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -363,11 +363,15 @@ be a select method."
 (defun gnus-agent-fetch-groups (n)
   "Put all new articles in the current groups into the Agent."
   (interactive "P")
+  (unless gnus-plugged
+    (error "Groups can't be fetched when Gnus is unplugged"))
   (gnus-group-iterate n 'gnus-agent-fetch-group))
 
 (defun gnus-agent-fetch-group (group)
   "Put all new articles in GROUP into the Agent."
   (interactive (list (gnus-group-group-name)))
+  (unless gnus-plugged
+    (error "Groups can't be fetched when Gnus is unplugged"))
   (unless group
     (error "No group on the current line"))
   (let ((gnus-command-method (gnus-find-method-for-group group)))