diff options
| author | Deepak Goel <deego@gnufans.org> | 2005-09-18 12:48:32 +0000 |
|---|---|---|
| committer | Deepak Goel <deego@gnufans.org> | 2005-09-18 12:48:32 +0000 |
| commit | 47570699e45fc013ac0a14138e9f6be9f60a5bca (patch) | |
| tree | af19c7e02fcc5137c6b8de8934ec9dee07dbbb65 /lisp/mh-e/mh-print.el | |
| parent | c4fbd74054d0015c7c7884c3657a0fe2f7c335e5 (diff) | |
| download | emacs-47570699e45fc013ac0a14138e9f6be9f60a5bca.tar.gz | |
message format spec fixes, commit 14, this should be final commit
Diffstat (limited to 'lisp/mh-e/mh-print.el')
| -rw-r--r-- | lisp/mh-e/mh-print.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/mh-e/mh-print.el b/lisp/mh-e/mh-print.el index 814c5e42174..6b2e8a3474e 100644 --- a/lisp/mh-e/mh-print.el +++ b/lisp/mh-e/mh-print.el @@ -64,7 +64,7 @@ Sensible choices are the functions `ps-spool-buffer' and ;; XXX - Default print buffer is bogus (defun mh-ps-spool-buffer (buffer) "Send BUFFER to printer queue." - (message (format "mh-ps-spool-buffer %s" buffer)) + (message "mh-ps-spool-buffer %s" buffer) (save-excursion (set-buffer buffer) (let ((ps-print-color-p mh-ps-print-color-option) @@ -85,8 +85,8 @@ Sensible choices are the functions `ps-spool-buffer' and "Print MSG. First the message is decoded in BUFFER before the results are sent to the printer." - (message (format "mh-ps-spool-a-msg msg %s buffer %s" - msg buffer)) + (message "mh-ps-spool-a-msg msg %s buffer %s" + msg buffer) (let ((mh-show-buffer mh-show-buffer) (folder mh-current-folder) ;; The following is commented out because @@ -113,8 +113,8 @@ printer." Check the documentation of `mh-interactive-range' to see how RANGE is read in interactive use." (interactive (list (mh-interactive-range "Print"))) - (message (format "mh-ps-print-msg range %s keys %s" - range (this-command-keys))) + (message "mh-ps-print-msg range %s keys %s" + range (this-command-keys)) (mh-iterate-on-range msg range (let ((buffer (get-buffer-create mh-temp-buffer))) (unwind-protect @@ -152,8 +152,8 @@ interactive use." (defun mh-ps-print-msg-show (file) "Print current show buffer to FILE." (interactive (list (mh-ps-print-preprint current-prefix-arg))) - (message (format "mh-ps-print-msg-show file %s keys %s mh-show-buffer %s" - file (this-command-keys) mh-show-buffer)) + (message "mh-ps-print-msg-show file %s keys %s mh-show-buffer %s" + file (this-command-keys mh-show-buffer)) (let ((msg (mh-get-msg-num t)) (folder mh-current-folder) (show-buffer mh-show-buffer) |