The first argument of message is a format control string.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 9407d06..158c72c 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 ? )