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