From 366570801a03b6ba74a824c9779767e55792a925 Mon Sep 17 00:00:00 2001 From: David Engster Date: Tue, 6 Jan 2009 15:25:17 +0000 Subject: [PATCH] gnus-msg.el (gnus-inews-do-gcc): Reduce to short group name when on primary select method (for gnus-group-mark-article-as-read). --- lisp/ChangeLog | 5 +++++ lisp/gnus-msg.el | 2 ++ 2 files changed, 7 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 98690fcb0..fe58ca1db 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-01-06 David Engster + + * 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 * mm-util.el (mm-ucs-to-char): New function. diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 555b6a049..822665dd9 100644 --- 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? -- 2.25.1