From: yoichi <yoichi>
Date: Sun, 11 May 2003 09:39:57 +0000 (+0000)
Subject: * mime-w3.el (mime-preview-text/html): Protect 1st arg of `message'.
X-Git-Tag: emiko-1_14-epg-branchpoint~38
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dd3aa1393088932448fcc03161eb04fab4545a3e;p=elisp%2Fsemi.git

* mime-w3.el (mime-preview-text/html): Protect 1st arg of `message'.
* mime-play.el (mime-mailcap-method-sentinel): Ditto.
(mime-view-message/external-anon-ftp): Ditto.
(mime-view-message/external-url): Ditto.
---

diff --git a/ChangeLog b/ChangeLog
index ed75ec9..94b7797 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2003-05-11  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* mime-w3.el (mime-preview-text/html): Protect 1st arg of `message'.
+	* mime-play.el (mime-mailcap-method-sentinel): Ditto.
+	(mime-view-message/external-anon-ftp): Ditto.
+	(mime-view-message/external-url): Ditto.
+
 2003-05-02  Daiki Ueno  <ueno@unixuser.org>
 
 	* mime-play.el (mime-activate-mailcap-method): Check the existance
diff --git a/mime-play.el b/mime-play.el
index ecbca96..fe35b1f 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -171,7 +171,7 @@ specified, play as it.  Default MODE is \"play\"."
     (if (file-exists-p file)
 	(delete-file file)))
   (remove-alist 'mime-mailcap-method-filename-alist process)
-  (message (format "%s %s" process event)))
+  (message "%s %s" process event))
 
 (defvar mime-echo-window-is-shared-with-bbdb
   (module-installed-p 'bbdb)
@@ -455,7 +455,7 @@ It is registered to variable `mime-preview-quitting-method-alist'."
 	 (directory (cdr (assoc "directory" cal)))
 	 (name (cdr (assoc "name" cal)))
 	 (pathname (concat "/anonymous@" site ":" directory)))
-    (message (concat "Accessing " (expand-file-name name pathname) "..."))
+    (message "%s" (concat "Accessing " (expand-file-name name pathname) "..."))
     (funcall mime-raw-dired-function pathname)
     (goto-char (point-min))
     (search-forward name)))
@@ -464,7 +464,7 @@ It is registered to variable `mime-preview-quitting-method-alist'."
 
 (defun mime-view-message/external-url (entity cal)
   (let ((url (cdr (assoc "url" cal))))
-    (message (concat "Accessing " url "..."))
+    (message "%s" (concat "Accessing " url "..."))
     (funcall mime-raw-browse-url-function url)))
 
 
diff --git a/mime-w3.el b/mime-w3.el
index 2279b65..ea5646a 100644
--- a/mime-w3.el
+++ b/mime-w3.el
@@ -59,7 +59,7 @@
        (run-hooks 'mime-text-decode-hook)
        (condition-case err
 	   (w3-region p (point-max))
-	 (error (message (format "%s" err))))
+	 (error (message "%s" err)))
        (mime-put-keymap-region p (point-max) w3-mode-map)))))
 
 (defun url-cid (url &optional proxy-info)