From Christian Neukirchen <chneukirchen@yahoo.de>.
+2004-04-07 Jesper Harder <harder@ifa.au.dk>
+
+ * mm-util.el (mm-image-load-path): Handle nil in load-path.
+ From Christian Neukirchen <chneukirchen@yahoo.de>.
+
2004-04-06 Jesper Harder <harder@ifa.au.dk>
* gnus-cache.el (gnus-cache-save-buffers): Check if buffer is
(defun mm-image-load-path (&optional package)
(let (dir result)
(dolist (path load-path (nreverse result))
- (if (file-directory-p
- (setq dir (concat (file-name-directory
- (directory-file-name path))
- "etc/" (or package "gnus/"))))
- (push dir result))
+ (when (and path
+ (file-directory-p
+ (setq dir (concat (file-name-directory
+ (directory-file-name path))
+ "etc/" (or package "gnus/")))))
+ (push dir result))
(push path result))))
;; Fixme: This doesn't look useful where it's used.