From: Danny Siu <dsiu@Adobe.COM>
Cc: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
Subject: gnus-5.4.55 - Patch for displaying group picons for foreign groups
Date: 27 May 1997 15:26:30 -0700 [thread overview]
Message-ID: <yj9g1v8sga1.fsf@adobe.com> (raw)
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)
reply other threads:[~1997-05-27 22:26 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=yj9g1v8sga1.fsf@adobe.com \
--to=dsiu@adobe.com \
--cc=larsi@ifi.uio.no \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).