Synch with Oort Gnus (Translating gnus-ja.texi is incompleted).

[elisp/gnus.git-] / lisp / smiley-ems.el

diff --git a/lisp/smiley-ems.el b/lisp/smiley-ems.el
index 7ebd1ab..f2c28f0 100644 (file)
--- a/lisp/smiley-ems.el
+++ b/lisp/smiley-ems.el
@@ -70,7 +70,9 @@ rgexp to replace with IMAGE.  IMAGE is the name of a PBM file in
 (defvar smiley-cached-regexp-alist nil)
 
 (defun smiley-update-cache ()
-  (dolist (elt smiley-regexp-alist)
+  (dolist (elt (if (symbolp smiley-regexp-alist)
+                  (symbol-value smiley-regexp-alist)
+                smiley-regexp-alist))
     (let* ((data-directory smiley-data-directory)
           (image (find-image (list (list :type 'pbm
                                          :file (nth 2 elt)