(defsubst gnus-picon-split-address (address)
(setq address (split-string address "@"))
- (if (cdr address)
- (cons (car address) (split-string (nth 1 address) "\\."))
- (split-string (car address) "\\.")))
+ (if (stringp (cadr address))
+ (cons (car address) (split-string (cadr address) "\\."))
+ (if (stringp (car address))
+ (split-string (car address) "\\."))))
(defun gnus-picon-find-face (address directories &optional exact)
(let* ((databases gnus-picon-databases)
(dolist (address addresses)
(setq address (car address)
first t)
- (when (stringp address)
- (setq spec (gnus-picon-split-address address))
+ (when (and (stringp address)
+ (setq spec (gnus-picon-split-address address)))
(when (setq file (gnus-picon-find-face
address gnus-picon-user-directories))
(setcar spec (gnus-picon-create-glyph file)))