From: yoichi <yoichi>
Date: Sat, 19 Jan 2002 14:19:45 +0000 (+0000)
Subject: The first argument of message is a format control string.
X-Git-Tag: wl-2_9_6~39
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9e8ff9afd53908e4671f7ba9f1aefc7f363bbeb9;p=elisp%2Fwanderlust.git

The first argument of message is a format control string.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 9407d06..158c72c 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2002-01-19  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* elmo-util.el (elmo-save-buffer): The first argument of message
+	is a format control string.
+
 2002-01-19  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo.el (elmo-diff-new): Fixed (Adapted to doc-string of
diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index aced58d..18dc81d 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -125,7 +125,7 @@ File content is encoded with MIME-CHARSET."
 	    (encode-mime-charset-region (point-min) (point-max) mime-charset))
 	  (as-binary-output-file
 	   (write-region (point-min) (point-max) filename nil 'no-msg)))
-      (message (format "%s is not writable." filename)))))
+      (message "%s is not writable." filename))))
 
 (defun elmo-object-save (filename object &optional mime-charset)
   "Save OBJECT to the file specified by FILENAME.
@@ -431,7 +431,7 @@ Return value is a cons cell of (STRUCTURE . REST)"
 	    (write-region (point-min) (point-max)
 			  filename nil 'no-msg)
 	    (set-file-modes filename 384))
-	(message (format "%s is not writable." filename)))
+	(message "%s is not writable." filename))
       (kill-buffer tmp-buffer))))
 
 (defun elmo-get-passwd (key)
diff --git a/wl/ChangeLog b/wl/ChangeLog
index e279c47..f3b1e03 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,12 @@
+2002-01-19  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-draft.el (wl-draft-write-sendlog): The first argument of
+	message is a format control string.
+	* wl-expire.el (wl-expire-append-log): Ditto.
+	* wl-mime.el (wl-summary-burst-subr): Ditto.
+	* wl-mule.el (wl-face-spec-set-match-display): Ditto.
+	* wl-summary.el (wl-summary-edit-addresses-subr): Ditto.
+
 2002-01-19  Kenichi OKADA  <okada@opaopa.org>
 
 	* wl-vars.el (wl-message-buffer-prefetch-depth): Default is 3.
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index a2f2a9a..ffb9cc6 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -802,7 +802,7 @@ text was killed."
 	(if (file-writable-p filename)
 	    (write-region-as-binary (point-min) (point-max)
 				    filename t 'no-msg)
-	  (message (format "%s is not writable." filename)))))))
+	  (message "%s is not writable." filename))))))
 
 (defun wl-draft-get-header-delimiter (&optional delete)
   ;; If DELETE is non-nil, replace the header delimiter with a blank line
diff --git a/wl/wl-expire.el b/wl/wl-expire.el
index f3f20b3..165e07e 100644
--- a/wl/wl-expire.el
+++ b/wl/wl-expire.el
@@ -880,7 +880,7 @@ ex. +ml/wl/1999_11/, +ml/wl/1999_12/."
 	(if (file-writable-p filename)
 	    (write-region (point-min) (point-max)
 			  filename t 'no-msg)
-	  (message (format "%s is not writable." filename)))
+	  (message "%s is not writable." filename))
 	(kill-buffer tmp-buf)))))
 
 (require 'product)
diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 3dcfed6..3c5cd88 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -169,7 +169,7 @@ By setting following-method as yank-content."
 			   number))))
 	  ((and (eq (cdr (assq 'type content-type)) 'message)
 		(eq (cdr (assq 'subtype content-type)) 'rfc822))
-	   (message (format "Bursting...%s" (setq number (+ 1 number))))
+	   (message "Bursting...%s" (setq number (+ 1 number)))
 	   (setq entity
 		 (car (mime-entity-children message-entity)))
 	   (with-temp-buffer
diff --git a/wl/wl-mule.el b/wl/wl-mule.el
index e8540d3..1e3aee4 100644
--- a/wl/wl-mule.el
+++ b/wl/wl-mule.el
@@ -276,8 +276,8 @@ If FRAME is nil, the current FRAME is used."
 			    ((eq req 'background)
 			     (memq background options))
 			    (t
-			     (message (format "\
-Warning: Unknown req `%S' with options `%S'" req options))
+			     (message "\
+Warning: Unknown req `%S' with options `%S'" req options)
 			     nil))))
 	match)))))
 
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 645d932..74c637e 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1161,8 +1161,8 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
   ;; returns nil if there's no change.
   (if (elmo-get-hash-val (downcase the-email) wl-address-petname-hash)
       (let (char)
-	(message (format "'%s' already exists. (e)dit/(d)elete/(c)ancel?"
-			 the-email))
+	(message "'%s' already exists. (e)dit/(d)elete/(c)ancel?"
+		 the-email)
 	(while (not (or (eq (setq char (read-char)) ?\r)
 			(eq char ?\n)
 			(eq char ? )