From dc24ae30c14dfb67d406ec2dca11f2d797bb69bd Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 30 Nov 1999 06:17:35 +0000 Subject: [PATCH] (gnus-picons-file-suffixes): Use `cons' instead of `push'; use `if' instead of `when'. --- lisp/gnus-picon.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) 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) -- 1.7.10.4