[Emacs-commit] emacs/lisp/mh-e mh-utils.el mh-letter.el mh-fol...

[Bill Wohler]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         
Changes by:     Bill Wohler <address@hidden>    06/03/05 20:11:53

Modified files:
        lisp/mh-e      : mh-utils.el mh-letter.el mh-folder.el ChangeLog 

Log message:
        * 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.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-utils.el.diff?tr1=1.59&tr2=1.60&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-letter.el.diff?tr1=1.8&tr2=1.9&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-folder.el.diff?tr1=1.7&tr2=1.8&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/ChangeLog.diff?tr1=1.172&tr2=1.173&r1=text&r2=text

Patches:
Index: emacs/lisp/mh-e/ChangeLog
diff -u emacs/lisp/mh-e/ChangeLog:1.172 emacs/lisp/mh-e/ChangeLog:1.173
--- emacs/lisp/mh-e/ChangeLog:1.172     Sat Mar  4 21:23:21 2006
+++ emacs/lisp/mh-e/ChangeLog   Sun Mar  5 20:11:53 2006
@@ -1,3 +1,12 @@
+2006-03-05  Bill Wohler  <address@hidden>
+
+       * 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  <address@hidden>
 
        * mh-compat.el (mh-image-load-path-for-library): Move here from
Index: emacs/lisp/mh-e/mh-folder.el
diff -u emacs/lisp/mh-e/mh-folder.el:1.7 emacs/lisp/mh-e/mh-folder.el:1.8
--- emacs/lisp/mh-e/mh-folder.el:1.7    Fri Mar  3 20:50:50 2006
+++ emacs/lisp/mh-e/mh-folder.el        Sun Mar  5 20:11:53 2006
@@ -591,8 +591,7 @@
 \\{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)
Index: emacs/lisp/mh-e/mh-letter.el
diff -u emacs/lisp/mh-e/mh-letter.el:1.8 emacs/lisp/mh-e/mh-letter.el:1.9
--- emacs/lisp/mh-e/mh-letter.el:1.8    Fri Mar  3 20:50:50 2006
+++ emacs/lisp/mh-e/mh-letter.el        Sun Mar  5 20:11:53 2006
@@ -313,8 +313,7 @@
   (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)
Index: emacs/lisp/mh-e/mh-utils.el
diff -u emacs/lisp/mh-e/mh-utils.el:1.59 emacs/lisp/mh-e/mh-utils.el:1.60
--- emacs/lisp/mh-e/mh-utils.el:1.59    Sat Mar  4 21:23:21 2006
+++ emacs/lisp/mh-e/mh-utils.el Sun Mar  5 20:11:53 2006
@@ -131,8 +131,7 @@
 (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