From: Bill Wohler <wohler@newt.com>
Date: Tue, 1 Nov 2005 17:35:33 +0000 (+0000)
Subject: (mh-ps-spool-buffer, mh-ps-spool-a-msg)
X-Git-Tag: emacs-pretest-22.0.90~6134
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=93eece98583f6abb9644fe8920c8123d8ff00340;p=emacs.git

(mh-ps-spool-buffer, mh-ps-spool-a-msg)
(mh-ps-print-msg): Remove debugging messages. (mh-ps-print-msg-show,
mh-ps-print-msg-show)
(mh-ps-print-toggle-color, mh-ps-print-toggle-mime): Remove period
after message per conventions.
---

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 13d87f794e4..e8e9c1c9baa 100644
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,11 @@
+2005-11-01  Bill Wohler  <wohler@newt.com>
+
+	* mh-print.el (mh-ps-spool-buffer, mh-ps-spool-a-msg) 
+	(mh-ps-print-msg): Remove debugging messages.
+	(mh-ps-print-msg-show, mh-ps-print-msg-show) 
+	(mh-ps-print-toggle-color, mh-ps-print-toggle-mime): Remove period
+	after message per conventions.
+
 2005-10-30  Bill Wohler  <wohler@newt.com>
 
 	* mh-e.el (mh-scan-good-msg-regexp, mh-scan-deleted-msg-regexp) 
diff --git a/lisp/mh-e/mh-print.el b/lisp/mh-e/mh-print.el
index 9a1723f0b12..7190b87c853 100644
--- a/lisp/mh-e/mh-print.el
+++ b/lisp/mh-e/mh-print.el
@@ -64,7 +64,6 @@ 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 "mh-ps-spool-buffer %s" buffer)
   (save-excursion
     (set-buffer buffer)
     (let ((ps-print-color-p mh-ps-print-color-option)
@@ -85,8 +84,6 @@ 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 "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 +110,6 @@ printer."
 Check the documentation of `mh-interactive-range' to see how RANGE is read in
 interactive use."
   (interactive (list (mh-interactive-range "Print")))
-  (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 +147,6 @@ 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 "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)
@@ -164,8 +157,8 @@ interactive use."
 	      (progn
 		(mh-ps-spool-buffer show-buffer)
 		(ps-despool file))
-	    (message "Current message is not being shown(1).")))
-      (message "Current message is not being shown(2)."))))
+	    (message "Current message is not being shown(1)")))
+      (message "Current message is not being shown(2)"))))
 
 ;;;###mh-autoload
 (defun mh-ps-print-toggle-faces ()
@@ -185,13 +178,13 @@ interactive use."
  (if (eq mh-ps-print-color-option nil)
      (progn
        (setq mh-ps-print-color-option 'black-white)
-       (message "Colors will be printed as black & white."))
+       (message "Colors will be printed as black & white"))
    (if (eq mh-ps-print-color-option 'black-white)
        (progn
 	 (setq mh-ps-print-color-option t)
-	 (message "Colors will be printed."))
+	 (message "Colors will be printed"))
      (setq mh-ps-print-color-option nil)
-     (message "Colors will not be printed."))))
+     (message "Colors will not be printed"))))
 
 ;;; XXX: Check option 3. Documentation doesn't sound right.
 ;;;###mh-autoload
@@ -205,13 +198,13 @@ The available settings are:
   (if (eq mh-ps-print-mime nil)
       (progn
         (setq mh-ps-print-mime t)
-        (message "Inline parts will be printed, attachments will not be printed."))
+        (message "Inline parts will be printed, attachments will not be printed"))
     (if (eq mh-ps-print-mime t)
         (progn
           (setq mh-ps-print-mime 1)
-          (message "Both Inline parts and attachments will be printed."))
+          (message "Both Inline parts and attachments will be printed"))
       (setq mh-ps-print-mime nil)
-      (message "Neither inline parts nor attachments will be printed."))))
+      (message "Neither inline parts nor attachments will be printed"))))
 
 ;;; Old non-PS based printing
 ;;;###mh-autoload