[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-print.el

[D . Goel]

Index: emacs/lisp/mh-e/mh-print.el
diff -c emacs/lisp/mh-e/mh-print.el:1.6 emacs/lisp/mh-e/mh-print.el:1.7
*** emacs/lisp/mh-e/mh-print.el:1.6     Mon Jul  4 17:15:52 2005
--- emacs/lisp/mh-e/mh-print.el Sun Sep 18 12:48:32 2005
***************
*** 64,70 ****
  ;; 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))
    (save-excursion
      (set-buffer buffer)
      (let ((ps-print-color-p mh-ps-print-color-option)
--- 64,70 ----
  ;; 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,92 ****
    "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))
    (let ((mh-show-buffer mh-show-buffer)
        (folder mh-current-folder)
          ;; The following is commented out because
--- 85,92 ----
    "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,120 ****
  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)))
    (mh-iterate-on-range msg range
      (let ((buffer (get-buffer-create mh-temp-buffer)))
        (unwind-protect
--- 113,120 ----
  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,159 ****
  (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))
    (let ((msg (mh-get-msg-num t))
          (folder mh-current-folder)
          (show-buffer mh-show-buffer)
--- 152,159 ----
  (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)