Changes committed gnus/lisp (ChangeLog gnus-msg.el)

Modified: ChangeLog gnus-msg.el

gnus-msg.el (gnus-inews-do-gcc): Reduce to short group name when on
primary select method (for gnus-group-mark-article-as-read).


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1966 gnus/lisp/ChangeLog:7.1967
--- ChangeLog:7.1966	Mon Jan  5 23:09:39 2009
+++ ChangeLog	Tue Jan  6 16:25:17 2009
@@ -1,3 +1,8 @@
+2009-01-06  David Engster  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* mm-util.el (mm-ucs-to-char): New function.
Index: gnus-msg.el
diff -u gnus/lisp/gnus-msg.el:7.69 gnus/lisp/gnus-msg.el:7.70
--- gnus-msg.el:7.69	Fri Aug  8 13:10:55 2008
+++ gnus-msg.el	Tue Jan  6 16:25:17 2009
@@ -1677,6 +1677,8 @@
 				    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?