(gnus-picons-file-suffixes): Use `cons' instead of `push';
authoryamaoka <yamaoka>
Tue, 30 Nov 1999 06:17:35 +0000 (06:17 +0000)
committeryamaoka <yamaoka>
Tue, 30 Nov 1999 06:17:35 +0000 (06:17 +0000)
use `if' instead of `when'.

lisp/gnus-picon.el

index 6025a0b..7176a96 100644 (file)
@@ -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)