(when (and path
(file-directory-p
(setq dir (concat (file-name-directory
(directory-file-name path))
"etc/images/" (or package "gnus/")))))
(when (and path
(file-directory-p
(setq dir (concat (file-name-directory
(directory-file-name path))
"etc/images/" (or package "gnus/")))))