gnus-5.4.55 - Patch for displaying group picons for foreign groups

gnus-5.4.55 - Patch for displaying group picons for foreign groups

[Danny Siu]

In gnus-5.4.55, the group picons didn't show up correctly for foreign groups
even if the picons exist.  The patch that fixes the problam is attached.  It
is based on gnus-5.4.55.

-- 
                                                                ^..^
 '/..\"                                                        ( oo )  )~
m( oo )m                                                         ,,  ,,
/=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\
|  Danny Dick-Fung Siu                http://www-leland.stanford.edu/~dsiu |
|  Reference System Group             http://www.csua.berkeley.edu/~dsiu   |
|  Adobe Systems Incorporated       E-Mail:<dsiu@alumni.eecs.berkeley.edu> |
|       "What do you expect from a         <dsiu@leland.stanford.edu>      |
|          Cal. Berkeley grad.?"           <dsiu@adobe.com>                |
\=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=/

diff -C5 lisp/ChangeLog lisp-new/ChangeLog
*** lisp/ChangeLog	Sun May 25 08:14:06 1997
--- lisp-new/ChangeLog	Tue May 27 15:07:03 1997
***************
*** 1,5 ****
--- 1,9 ----
+ Tue May 27 15:03:30 1997  Danny Siu  <dsiu@adobe.com>
+ 
+ 	* gnus-picon.el (gnus-group-display-picons): use gnus-group-real-name so that picons for foreign groups display correctly.
+ 
  Sun May 25 17:08:16 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
  
  	* gnus.el: Gnus v5.4.55 is released.
  
  Sun May 25 15:13:45 1997  Michael R. Cook  <mcook@cognex.com>
diff -C5 lisp/gnus-picon.el lisp-new/gnus-picon.el
*** lisp/gnus-picon.el	Sat May 17 22:37:34 1997
--- lisp-new/gnus-picon.el	Tue May 27 15:05:09 1997
***************
*** 340,354 ****
        (gnus-picons-prepare-for-annotations 'gnus-group-annotations)
        (if (null gnus-picons-piconsearch-url)
  	  (setq gnus-group-annotations
  		(gnus-picons-display-pairs
  		 (gnus-picons-lookup-pairs (reverse (message-tokenize-header
! 						     gnus-newsgroup-name "."))
  					   gnus-picons-news-directories)
  		 t "."))
  	(push (list 'gnus-group-annotations 'search nil
! 		    (message-tokenize-header gnus-newsgroup-name ".")
  		    (if (listp gnus-picons-news-directories)
  			gnus-picons-news-directories
  		      (list gnus-picons-news-directories))
  		    nil)
  	      gnus-picons-jobs-alist)
--- 340,356 ----
        (gnus-picons-prepare-for-annotations 'gnus-group-annotations)
        (if (null gnus-picons-piconsearch-url)
  	  (setq gnus-group-annotations
  		(gnus-picons-display-pairs
  		 (gnus-picons-lookup-pairs (reverse (message-tokenize-header
! 						     (gnus-group-real-name gnus-newsgroup-name) 
! 						     "."))
  					   gnus-picons-news-directories)
  		 t "."))
  	(push (list 'gnus-group-annotations 'search nil
! 		    (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))
  		    nil)
  	      gnus-picons-jobs-alist)