/[emacs]/emacs/lisp/mh-e/mh-print.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-print.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by lute, Mon Jul 4 17:15:52 2005 UTC revision 1.7 by deego, Sun Sep 18 12:48:32 2005 UTC
# Line 64  Sensible choices are the functions `ps-s Line 64  Sensible choices are the functions `ps-s
64  ;; XXX - Default print buffer is bogus  ;; XXX - Default print buffer is bogus
65  (defun mh-ps-spool-buffer (buffer)  (defun mh-ps-spool-buffer (buffer)
66    "Send BUFFER to printer queue."    "Send BUFFER to printer queue."
67    (message (format "mh-ps-spool-buffer %s" buffer))    (message "mh-ps-spool-buffer %s" buffer)
68    (save-excursion    (save-excursion
69      (set-buffer buffer)      (set-buffer buffer)
70      (let ((ps-print-color-p mh-ps-print-color-option)      (let ((ps-print-color-p mh-ps-print-color-option)
# Line 85  Sensible choices are the functions `ps-s Line 85  Sensible choices are the functions `ps-s
85    "Print MSG.    "Print MSG.
86  First the message is decoded in BUFFER before the results are sent to the  First the message is decoded in BUFFER before the results are sent to the
87  printer."  printer."
88    (message (format "mh-ps-spool-a-msg msg %s buffer %s"    (message "mh-ps-spool-a-msg msg %s buffer %s"
89                     msg buffer))                     msg buffer)
90    (let ((mh-show-buffer mh-show-buffer)    (let ((mh-show-buffer mh-show-buffer)
91          (folder mh-current-folder)          (folder mh-current-folder)
92          ;; The following is commented out because          ;; The following is commented out because
# Line 113  printer." Line 113  printer."
113  Check the documentation of `mh-interactive-range' to see how RANGE is read in  Check the documentation of `mh-interactive-range' to see how RANGE is read in
114  interactive use."  interactive use."
115    (interactive (list (mh-interactive-range "Print")))    (interactive (list (mh-interactive-range "Print")))
116    (message (format "mh-ps-print-msg range %s keys %s"    (message "mh-ps-print-msg range %s keys %s"
117                      range (this-command-keys)))                      range (this-command-keys))
118    (mh-iterate-on-range msg range    (mh-iterate-on-range msg range
119      (let ((buffer (get-buffer-create mh-temp-buffer)))      (let ((buffer (get-buffer-create mh-temp-buffer)))
120        (unwind-protect        (unwind-protect
# Line 152  interactive use." Line 152  interactive use."
152  (defun mh-ps-print-msg-show (file)  (defun mh-ps-print-msg-show (file)
153    "Print current show buffer to FILE."    "Print current show buffer to FILE."
154    (interactive (list (mh-ps-print-preprint current-prefix-arg)))    (interactive (list (mh-ps-print-preprint current-prefix-arg)))
155    (message (format "mh-ps-print-msg-show file %s keys %s mh-show-buffer %s"    (message "mh-ps-print-msg-show file %s keys %s mh-show-buffer %s"
156                     file (this-command-keys) mh-show-buffer))                     file (this-command-keys mh-show-buffer))
157    (let ((msg (mh-get-msg-num t))    (let ((msg (mh-get-msg-num t))
158          (folder mh-current-folder)          (folder mh-current-folder)
159          (show-buffer mh-show-buffer)          (show-buffer mh-show-buffer)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26