Mercurial > hg > xemacs-beta

diff lisp/gnus/gnus-picon.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 59463afc5666
children
line wrap: on
line diff
--- a/lisp/gnus/gnus-picon.el	Mon Aug 13 09:38:27 2007 +0200
+++ b/lisp/gnus/gnus-picon.el	Mon Aug 13 09:39:39 2007 +0200
@@ -342,11 +342,13 @@
 	  (setq gnus-group-annotations
 		(gnus-picons-display-pairs
 		 (gnus-picons-lookup-pairs (reverse (message-tokenize-header
-						     gnus-newsgroup-name "."))
+						     (gnus-group-real-name gnus-newsgroup-name) 
+						     "."))
 					   gnus-picons-news-directories)
 		 t "."))
 	(push (list 'gnus-group-annotations 'search nil
-		    (message-tokenize-header gnus-newsgroup-name ".")
+		    (message-tokenize-header 
+		     (gnus-group-real-name gnus-newsgroup-name) ".")
 		    (if (listp gnus-picons-news-directories)
 			gnus-picons-news-directories
 		      (list gnus-picons-news-directories))