-(defun gnus-picons-lookup-internal (addrs dir)
- (setq dir (expand-file-name dir gnus-picons-database))
- (gnus-picons-try-face (dolist (part (reverse addrs) dir)
- (setq dir (expand-file-name part dir)))))
+(defun gnus-picons-lookup-internal (addrs directory)
+ (let ((dbs gnus-picons-database)
+ result db dir)
+ (unless (listp dbs)
+ (setq dbs (list dbs)))
+ (while (and (not result)
+ (setq db (pop dbs)))
+ (setq dir (expand-file-name directory gnus-picons-database))
+ (setq result
+ (gnus-picons-try-face
+ (dolist (part (reverse addrs) dir)
+ (setq dir (expand-file-name part dir))))))
+ result))