X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-picon.el;h=7176a96670fd491759fa24b5cab5c2330ecc4b69;hb=dc24ae30c14dfb67d406ec2dca11f2d797bb69bd;hp=6025a0b27e42da256bf4d586a40b2a873dd8a034;hpb=60619e73bb60914e11e00b7317dba43a7cc17b29;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el
index 6025a0b..7176a96 100644
--- a/lisp/gnus-picon.el
+++ b/lisp/gnus-picon.el
@@ -94,13 +94,13 @@ Some people may want to add \"unknown\" to this list."
   :group 'picons)
 
 (defcustom gnus-picons-file-suffixes
-  (when (featurep 'x)
-    (let ((types (list "xbm")))
-      (when (featurep 'gif)
-	(push "gif" types))
-      (when (featurep 'xpm)
-	(push "xpm" types))
-      types))
+  (if (featurep 'x)
+      (let ((types (list "xbm")))
+	(if (featurep 'gif)
+	    (setq types (cons "gif" types)))
+	(if (featurep 'xpm)
+	    (setq types (cons "xpm" types)))
+	types))
   "*List of suffixes on picon file names to try."
   :type '(repeat string)
   :group 'picons)