(gnus-inews-do-gcc): Make sure the obsolete variable

 gnus-inews-mark-gcc-as-read exists.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e9b06d5..fc7e962 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-24  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-msg.el (gnus-inews-do-gcc): Make sure the obsolete variable
+       gnus-inews-mark-gcc-as-read exists.
+
 2003-04-23  Simon Josefsson  <jas@extundo.com>
 
        * gnus-sieve.el (gnus-sieve-generate): Rewrite regexp search so it

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 0571056..df7b80b 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1694,7 +1694,9 @@ this is a reply."
                         ;; Gnus is not running?
                         (gnus-alive-p)
                         (or gnus-gcc-mark-as-read
-                            gnus-inews-mark-gcc-as-read))
+                            (and
+                             (boundp 'gnus-inews-mark-gcc-as-read)
+                             (symbol-value 'gnus-inews-mark-gcc-as-read))))
                (gnus-group-mark-article-read group (cdr group-art)))
              (kill-buffer (current-buffer)))))))))