From a6a6ecda590574bb7103423287a6af63442d0d98 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 30 Dec 2001 06:47:49 +0000 Subject: [PATCH] * gnus-picon.el (gnus-picon-create-glyph): Cache glyphs. --- lisp/ChangeLog | 2 ++ lisp/gnus-picon.el | 4 +++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b70d9a46a..53ef3e448 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2001-12-30 Lars Magne Ingebrigtsen + * 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 548ea579b..c1bcffda2 100644 --- 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: -- 2.25.1