From 9e8ff9afd53908e4671f7ba9f1aefc7f363bbeb9 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 19 Jan 2002 14:19:45 +0000 Subject: [PATCH] The first argument of message is a format control string. --- elmo/ChangeLog | 5 +++++ elmo/elmo-util.el | 4 ++-- wl/ChangeLog | 9 +++++++++ wl/wl-draft.el | 2 +- wl/wl-expire.el | 2 +- wl/wl-mime.el | 2 +- wl/wl-mule.el | 4 ++-- wl/wl-summary.el | 4 ++-- 8 files changed, 23 insertions(+), 9 deletions(-) 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 + + * elmo-util.el (elmo-save-buffer): The first argument of message + is a format control string. + 2002-01-19 Hiroya Murata * 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 + + * 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 * 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 ? ) -- 1.7.10.4