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) |
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 |
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 |
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) |