* gnus-picon.el (gnus-picon-create-glyph): Cache glyphs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b70d9a4..53ef3e4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2001-12-30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-picon.el (gnus-picon-create-glyph): Cache glyphs.
+
        * gnus-art.el (gnus-treat-newsgroups-picon): New variable. 
 
        * gnus-picon.el (gnus-treat-newsgroups-picon): New function.

diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el
index 548ea57..c1bcffd 100644 (file)
--- a/lisp/gnus-picon.el
+++ b/lisp/gnus-picon.el
@@ -142,7 +142,9 @@ GLYPH can be either a glyph or a string."
     (gnus-put-image glyph)))
 
 (defun gnus-picon-create-glyph (file)
-  (gnus-create-image file))
+  (or (cdr (assoc file gnus-picon-glyph-alist))
+      (cdar (push (cons file (gnus-create-image file))
+                 gnus-picon-glyph-alist))))
 
 ;;; Functions that does picon transformations: