(gnus-inews-do-gcc): Ignore read-only groups.

(gnus-inews-do-gcc): Remove sleep.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 491dc15..ac4e373 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2004-05-16  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-msg.el (gnus-inews-do-gcc): Ignore read-only groups. 
+       (gnus-inews-do-gcc): Remove sleep.
+
        * gnus-art.el (gnus-mime-delete-part): Error message when no MIME
        part under point.
 

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index a098d06..e278c29 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1632,11 +1632,12 @@ this is a reply."
                     (concat "^" (regexp-quote mail-header-separator) "$")
                     nil t)
                (replace-match "" t t ))
-             (unless (setq group-art
-                           (gnus-request-accept-article group method t t))
+             (when (or (gnus-group-read-only-p group)
+                       (not (setq group-art
+                                  (gnus-request-accept-article
+                                   group method t t))))
                (gnus-message 1 "Couldn't store article in group %s: %s"
-                             group (gnus-status-message method))
-               (sit-for 2))
+                             group (gnus-status-message method)))
              (when (and group-art
                         ;; FIXME: Should gcc-mark-as-read work when
                         ;; Gnus is not running?