X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-picon.el;h=e52752341accc5117fe86495c3631c3c30478a51;hb=f49b6e4dfa0b6b8d88e12de4161c30613bc4410c;hp=6025a0b27e42da256bf4d586a40b2a873dd8a034;hpb=d767002b10ad35ddc43ec4f597d0634e53785134;p=elisp%2Fgnus.git-
diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el
index 6025a0b..e527523 100644
--- a/lisp/gnus-picon.el
+++ b/lisp/gnus-picon.el
@@ -26,6 +26,7 @@
;;; Code:
(eval-when-compile (require 'cl))
+
(require 'gnus)
;; (require 'xpm)
(require 'annotations)
@@ -97,9 +98,9 @@ Some people may want to add \"unknown\" to this list."
(when (featurep 'x)
(let ((types (list "xbm")))
(when (featurep 'gif)
- (push "gif" types))
+ (setq types (cons "gif" types)))
(when (featurep 'xpm)
- (push "xpm" types))
+ (setq types (cons "xpm" types)))
types))
"*List of suffixes on picon file names to try."
:type '(repeat string)
@@ -524,8 +525,8 @@ none, and whose CDR is the corresponding element of DOMAINS."
(defun gnus-picons-parse-value (name)
(goto-char (point-min))
(if (re-search-forward (concat ""
- (regexp-quote name)
- " *= * *\\([^ <][^<]*\\) *")
+ (regexp-quote name)
+ " *= * *\\([^ <][^<]*\\) *")
nil t)
(buffer-substring (match-beginning 1) (match-end 1))))
@@ -696,8 +697,8 @@ none, and whose CDR is the corresponding element of DOMAINS."
(defun gnus-picons-network-search (user addrs dbs sym-ann right-p marker)
(let* ((host (mapconcat 'identity addrs "."))
(key (list (or user "unknown") host (if user
- gnus-picons-user-directories
- dbs)))
+ gnus-picons-user-directories
+ dbs)))
(cache (assoc key gnus-picons-url-alist)))
(if (null cache)
(gnus-picons-url-retrieve