From f8be37a68c80744b85e9bd7a81a54d1ad052f2ae Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 25 Jan 2006 23:19:20 +0000 Subject: [PATCH] (nnheader-image-load-path): Synch it up with mm-image-load-path in mm-util.el. --- ChangeLog | 5 +++++ lisp/nnheader.el | 11 ++++++----- 2 files changed, 11 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index e1db4f2..2604851 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2005-01-25 Katsumi Yamaoka + + * lisp/nnheader.el (nnheader-image-load-path): Synch it up with + mm-image-load-path in mm-util.el. + 2005-01-23 Katsumi Yamaoka * lisp/message.el (message-tool-bar-gnome): Comment diff --git a/lisp/nnheader.el b/lisp/nnheader.el index 193bcbf..f06f55d 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -156,11 +156,12 @@ This variable is a substitute for `mm-text-coding-system-for-write'.") (defun nnheader-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/images/" (or package "gnus/"))))) + (push dir result)) (push path result)))) (defalias 'mm-image-load-path 'nnheader-image-load-path) -- 1.7.10.4