X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fsmiley-ems.el;h=dd1a18318175b3ce076f48133e055452c7e284e8;hb=b535250824738b447cf642a1988540c44449809c;hp=fd58d68862c3c499fad8168f699192c977fbd585;hpb=babe54cf5412efcfc7159935a3fb6d766ddf21f1;p=gnus

diff --git a/lisp/smiley-ems.el b/lisp/smiley-ems.el
index fd58d6886..dd1a18318 100644
--- 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)