(gnus-inews-do-gcc): Don't try to mark GCC's as read

if Gnus isn't alive.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d7e4576..2d6df1d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-12  Jesper Harder  <harder@ifa.au.dk>
+
+       * gnus-msg.el (gnus-inews-do-gcc): Don't try to mark GCC's as read
+       if Gnus isn't alive.
+
 2002-01-11  Kevin Greiner  <kgreiner@xpediantsolutions.com>
 
        * gnus-agent.el (gnus-agent-fetch-group-1): Remove downloadable

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 3af3bee..eca83e5 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1612,6 +1612,7 @@ this is a reply."
                              group (gnus-status-message method))
                (sit-for 2))
              (when (and group-art
+                        (gnus-alive-p)
                         (or gnus-gcc-mark-as-read
                             gnus-inews-mark-gcc-as-read))
                (gnus-group-mark-article-read group (cdr group-art)))