* picon case sensitivity
@ 2002-01-14 16:47 Karl Kleinpaste
0 siblings, 0 replies; only message in thread
From: Karl Kleinpaste @ 2002-01-14 16:47 UTC (permalink / raw)
[-- Attachment #1: Type: text/plain, Size: 359 bytes --]
When mail goes out as "User@DOM.AIN" rather than "user@dom.ain",
gnus-picon-find-image fails to find picons simply because everything
in the picon database is lowercase. This patch makes
gnus-picon-find-face squash everything to lowercase before invoking
-find-image, so that e.g. dmaze@MIT.EDU coughs up 3 nice picons just
the way that dmaze@mit.edu does.
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: downcase picon directories --]
[-- Type: text/x-patch, Size: 561 bytes --]
--- lisp/gnus-picon.el.~1~ Mon Jan 14 11:45:43 2002
+++ lisp/gnus-picon.el Mon Jan 14 11:46:32 2002
@@ -108,10 +108,11 @@
base (expand-file-name directory database))
(while address
(when (setq result (gnus-picon-find-image
- (concat base "/" (mapconcat 'identity
- (reverse address)
- "/")
- "/" user "/")))
+ (concat base "/" (downcase
+ (mapconcat 'identity
+ (reverse address)
+ "/"))
+ "/" (downcase user) "/")))
(throw 'found result))
(if exact
(setq address nil)
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2002-01-14 16:47 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2002-01-14 16:47 picon case sensitivity Karl Kleinpaste
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).