From dd3aa1393088932448fcc03161eb04fab4545a3e Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 11 May 2003 09:39:57 +0000 Subject: [PATCH] * 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. --- ChangeLog | 7 +++++++ mime-play.el | 6 +++--- mime-w3.el | 2 +- 3 files changed, 11 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index ed75ec9..94b7797 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2003-05-11 Yoichi NAKAYAMA + + * 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 * 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) -- 1.7.10.4