gnus-msg.el (gnus-inews-do-gcc): Reduce to short group name when on

primary select method (for gnus-group-mark-article-as-read).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 98690fc..fe58ca1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-01-06  David Engster  <dengste@eml.cc>
+
+       * gnus-msg.el (gnus-inews-do-gcc): Reduce to short group name when on
+       primary select method (for gnus-group-mark-article-as-read).
+
 2009-01-05  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * mm-util.el (mm-ucs-to-char): New function.

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 555b6a0..822665d 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1677,6 +1677,8 @@ this is a reply."
                                    group method t t))))
                (gnus-message 1 "Couldn't store article in group %s: %s"
                              group (gnus-status-message method)))
+             (when (gnus-native-method-p method)
+               (setq group (gnus-group-short-name group)))
              (when (and group-art
                         ;; FIXME: Should gcc-mark-as-read work when
                         ;; Gnus is not running?