(gnus-picons-file-suffixes): Use `cons' instead of `push';

[elisp/gnus.git-] / lisp / gnus-picon.el

diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el
index 6025a0b..7176a96 100644 (file)
--- 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)