* lpath.el: Fbind find-coding-system.

* dgnushack.el (dgnushack-make-load): Remove redundant format call in message.
* pop3.el (pop3-movemail): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6f6a350..cc069bb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2003-05-12  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * lpath.el: Fbind find-coding-system.
+
+       * dgnushack.el (dgnushack-make-load): Remove redundant format call
+       in message.  Suggested by Yoichi NAKAYAMA <yoichi@geiin.org>.
+       * pop3.el (pop3-movemail): Ditto.
+
 2003-05-12  Colin Marquardt <c.marquardt@alcatel.de>  (tiny change)
 
        * gnus.el (gnus-agent): Docstring fix.

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 327b02c..0b88fd1 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -290,7 +290,7 @@ Modify to suit your needs."))
     (batch-update-autoloads)))
 
 (defun dgnushack-make-load ()
-  (message (format "Generating %s..." dgnushack-gnus-load-file))
+  (message "Generating %s..." dgnushack-gnus-load-file)
   (with-temp-file dgnushack-gnus-load-file
     (insert-file-contents dgnushack-cus-load-file)
     (delete-file dgnushack-cus-load-file)
@@ -348,7 +348,7 @@ Modify to suit your needs."))
        (search-forward "\n;;; Code:" nil t)
        (forward-line 1)
        (insert "\n(autoload 'custom-add-loads \"cus-load\")\n"))))
-  (message (format "Compiling %s..." dgnushack-gnus-load-file))
+  (message "Compiling %s..." dgnushack-gnus-load-file)
   (byte-compile-file dgnushack-gnus-load-file))
 
 ;;; dgnushack.el ends here

diff --git a/lisp/lpath.el b/lisp/lpath.el
index 50f0ec4..51f5eca 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -11,8 +11,8 @@
 
 (maybe-fbind '(Info-directory
               Info-menu bbdb-create-internal bbdb-records create-image
-              display-graphic-p display-time-event-handler find-image
-              image-size image-type-available-p insert-image
+              display-graphic-p display-time-event-handler find-coding-system
+              find-image image-size image-type-available-p insert-image
               make-mode-line-mouse-map make-temp-file open-ssl-stream
               propertize put-image replace-regexp-in-string
               rmail-msg-is-pruned rmail-msg-restore-non-pruned-header

diff --git a/lisp/pop3.el b/lisp/pop3.el
index 0b024ec..b192853 100644 (file)
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -85,8 +85,8 @@ Used for APOP authentication.")
     (setq message-count (car (pop3-stat process)))
     (unwind-protect
        (while (<= n message-count)
-         (message (format "Retrieving message %d of %d from %s..."
-                          n message-count pop3-mailhost))
+         (message "Retrieving message %d of %d from %s..."
+                  n message-count pop3-mailhost)
          (pop3-retr process n crashbuf)
          (save-excursion
            (set-buffer crashbuf)