* mh-folder.el (mh-folder-mode): Drop 'load-path argument when calling

mh-image-load-path-for-library since this is the default.

* mh-letter.el (mh-letter-mode): Ditto.

* mh-utils.el (mh-logo-display): Ditto.

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index f3214b676859f42279498969eaf32dfb4d14b2b0..9d0c1d4dbc676e8023ade682bfaa7023e6bd140b 100644 (file)
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,12 @@
+2006-03-05  Bill Wohler  <wohler@newt.com>
+
+       * mh-folder.el (mh-folder-mode): Drop 'load-path argument when
+       calling mh-image-load-path-for-library since this is the default.
+
+       * mh-letter.el (mh-letter-mode): Ditto.
+
+       * mh-utils.el (mh-logo-display): Ditto.
+
 2006-03-04  Bill Wohler  <wohler@newt.com>
 
        * mh-compat.el (mh-image-load-path-for-library): Move here from

diff --git a/lisp/mh-e/mh-folder.el b/lisp/mh-e/mh-folder.el
index dcf88670f90064db80d6acbd17b16b7d0aa0f9d8..f8e37a93cf83449e8879555083f138a7fbeaf498 100644 (file)
--- a/lisp/mh-e/mh-folder.el
+++ b/lisp/mh-e/mh-folder.el
@@ -591,8 +591,7 @@ perform the operation on all messages in that region.
 \\{mh-folder-mode-map}"
   (mh-do-in-gnu-emacs
     (unless mh-folder-buttons-init-flag
-      (let ((load-path (mh-image-load-path-for-library
-                        "mh-e" "mh-logo.xpm" 'load-path))
+      (let ((load-path (mh-image-load-path-for-library "mh-e" "mh-logo.xpm"))
             (image-load-path (mh-image-load-path-for-library
                               "mh-e" "mh-logo.xpm" 'image-load-path)))
         (mh-tool-bar-folder-buttons-init)

diff --git a/lisp/mh-e/mh-letter.el b/lisp/mh-e/mh-letter.el
index 11aef2b51df6c4710082852cefc4f7f0b2da4603..9d28ee4ec95d8e3dfe53ab18f4debb91b7642a9a 100644 (file)
--- a/lisp/mh-e/mh-letter.el
+++ b/lisp/mh-e/mh-letter.el
@@ -313,8 +313,7 @@ order).
   (make-local-variable 'mh-sent-from-msg)
   (mh-do-in-gnu-emacs
     (unless mh-letter-buttons-init-flag
-      (let ((load-path (mh-image-load-path-for-library
-                        "mh-e" "mh-logo.xpm" 'load-path))
+      (let ((load-path (mh-image-load-path-for-library "mh-e" "mh-logo.xpm"))
             (image-load-path (mh-image-load-path-for-library
                               "mh-e" "mh-logo.xpm" 'image-load-path)))
         (mh-tool-bar-letter-buttons-init)

diff --git a/lisp/mh-e/mh-utils.el b/lisp/mh-e/mh-utils.el
index 5a3e00aef405e1399fd94226ffa460eaa9b62db9..c45c214e9f0999f7abb4b58f330686f8da010a9d 100644 (file)
--- a/lisp/mh-e/mh-utils.el
+++ b/lisp/mh-e/mh-utils.el
@@ -131,8 +131,7 @@ Ignores case when searching for OLD."
 (defun mh-logo-display ()
   "Modify mode line to display MH-E logo."
   (mh-do-in-gnu-emacs
-    (let ((load-path (mh-image-load-path-for-library
-                      "mh-e" "mh-logo.xpm" 'load-path))
+    (let ((load-path (mh-image-load-path-for-library "mh-e" "mh-logo.xpm"))
           (image-load-path (mh-image-load-path-for-library
                             "mh-e" "mh-logo.xpm" 'image-load-path)))
       (add-text-properties