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

[gnus] / lisp / gnus-picon.el

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: