From: yamaoka <yamaoka>
Date: Tue, 30 Nov 1999 06:17:35 +0000 (+0000)
Subject: (gnus-picons-file-suffixes): Use `cons' instead of `push';
X-Git-Tag: t-gnus-6_13_3-07~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dc24ae30c14dfb67d406ec2dca11f2d797bb69bd;p=elisp%2Fgnus.git-

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

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)