HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/mh-e/mh-print.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require mh-e mh-scan ps-print] 2)
#@326 Specify how buffer's text color is printed.

Valid values are:

   nil         - Do not print colors.
   t           - Print colors.
   black-white - Print colors on black/white printer.
                 See also `ps-black-white-faces'.

Any other value is treated as t. This variable is initialized
from `ps-print-color-p'.
(defvar mh-ps-print-color-option ps-print-color-p (#$ . 497))
#@124 Function to use to spool a buffer.

Sensible choices are the functions `ps-spool-buffer' and
`ps-spool-buffer-with-faces'.
(defvar mh-ps-print-func 'ps-spool-buffer-with-faces (#$ . 891))
#@795 Print RANGE\<mh-folder-mode-map>.

Check the documentation of `mh-interactive-range' to see how RANGE is
read in interactive use.

This command will print inline text attachments but will not decrypt
messages. However, when a message is displayed in an MH-Show buffer,
then that buffer is used verbatim for printing with the caveat that
only text attachments, if opened inline, are printed. Therefore,
encrypted messages can be printed by showing and decrypting them
first.

MH-E uses the "ps-print" package to do the printing, so you can
customize the printing further by going to the `ps-print'
customization group. This command does not use the options
`mh-lpr-command-format' or `mh-print-background-flag'. See also the
commands \[mh-ps-print-toggle-color] and
\[mh-ps-print-toggle-faces].
(defalias 'mh-ps-print-msg #[(range) "\301\302\"\207" [range mh-ps-print-range nil] 3 (#$ . 1086) (list (mh-interactive-range "Print"))])
#@135 Print RANGE to FILE.

This is the function that actually does the work.
If FILE is nil, then the messages are spooled to the printer.
(defalias 'mh-ps-print-range #[(range file) "\247\203 \306\307\211#\203\355\310\216\311	!\210)\312	\n#\210)\202\355:\203f@\247\203fA\247\203f\212@b\210\313 \210`AX\203bm\204b\314\f!\203\\\315\307!\316\216\311	!\210)\312	\n#\210)\317y\210\2029)\202\355\203u9\203u\320!\202\202;\203\201\321
\"\202\202\322 \211\323\211\203\256@\211\324\307#\210*A\211\204\221*\212eb\210\313 \210`dX\203\354m\204\354\314\f!\203\346\315\307!\325\"\203\345\326\216\311	!\210)\312	\n#\210))\317y\210\202\266+\327!\207" [range msg mh-note-printed mh-cmd-note mh-scan-valid-regexp mh-current-folder mh-goto-msg t #[nil "\300\207" [nil] 1] mh-ps-spool-msg mh-notate beginning-of-line looking-at mh-get-msg-num #[nil "\300\207" [nil] 1] 1 mh-seq-to-msgs mh-translate-range make-hash-table nil puthash gethash #[nil "\300\207" [nil] 1] ps-despool #1=#:seq-hash-table #2=#:msgs --dolist-tail-- #3=#:v #4=#:v v file] 5 (#$ . 2026)])
#@12 Spool MSG.
(defalias 'mh-ps-spool-msg #[(msg) "\306 \307!\210\f\203\310p!\210\311\216\312
	\"\232?\205\"\313!*\314\216\212\2036\315
	\"\210)\316\203A\202B!,\207" [mh-current-folder folder mh-in-show-buffer-saved-window mh-show-buffer mh-bury-show-buffer-flag msg selected-window switch-to-buffer-other-window bury-buffer #[nil "\301!\207" [mh-in-show-buffer-saved-window select-window] 2] mh-msg-filename get-buffer-create #[nil "\205\301!\207" [buffer kill-buffer] 2] mh-display-msg mh-ps-spool-buffer buffer-file-name mh-temp-buffer buffer] 3 (#$ . 3146)])
#@15 Spool BUFFER.
(defalias 'mh-ps-spool-buffer #[(buffer) "rq\210	\306\307\310!\311Q\306\307\312!\311QD\313\306\307\314!\311QD
 ,\207" [buffer mh-ps-print-color-option ps-right-header ps-left-header ps-print-color-p mh-ps-print-func "(" mh-get-header-field "Subject:" ")" "From:" "/pagenumberstring load" "Date:"] 6 (#$ . 3742)])
#@803 Print RANGE to FILE\<mh-folder-mode-map>.

Check the documentation of `mh-interactive-range' to see how RANGE is
read in interactive use.

This command will print inline text attachments but will not decrypt
messages. However, when a message is displayed in an MH-Show buffer,
then that buffer is used verbatim for printing with the caveat that
only text attachments, if opened inline, are printed. Therefore,
encrypted messages can be printed by showing and decrypting them
first.

MH-E uses the "ps-print" package to do the printing, so you can
customize the printing further by going to the `ps-print'
customization group. This command does not use the options
`mh-lpr-command-format' or `mh-print-background-flag'. See also the
commands \[mh-ps-print-toggle-color] and
\[mh-ps-print-toggle-faces].
(defalias 'mh-ps-print-msg-file #[(range file) "\302	\"\207" [range file mh-ps-print-range] 3 (#$ . 4080) (list (mh-interactive-range "Print") (mh-ps-print-preprint 1))])
#@94 Provide a better default file name for `ps-print-preprint'.
Pass along the prefix ARG to it.
(defalias 'mh-ps-print-preprint #[(arg) "\302\303\304 \305\306O\"\307	!)\207" [buffer-file-name arg format "mh-%s" buffer-name 1 nil ps-print-preprint] 5 (#$ . 5060)])
#@158 Toggle whether printing is done with faces or not.

When faces are enabled, the printed message will look very
similar to the message in the MH-Show buffer.
(defalias 'mh-ps-print-toggle-faces #[nil "\301=\203\f\302\303\304!\207\301\303\305!\207" [mh-ps-print-func ps-spool-buffer-with-faces ps-spool-buffer message "Printing without faces" "Printing with faces"] 2 (#$ . 5329) nil])
#@449 Toggle whether color is used in printing messages.

Colors are emulated on black-and-white printers with shades of
gray. This might produce illegible output, even if your screen
colors only use shades of gray. If this is the case, try using
this command to toggle between color, no color, and a black and
white representation of the colors and see which works best. You
change this setting permanently by customizing the option
`ps-print-color-p'.
(defalias 'mh-ps-print-toggle-color #[nil "\301=\203\f\302\303\304!\207\302=\203\305\303\306!\207\301\303\307!\207" [mh-ps-print-color-option nil black-white message "Colors will be printed as black & white" t "Colors will be printed" "Colors will not be printed"] 2 (#$ . 5724) nil])
#@341 Print RANGE the old fashioned way\<mh-folder-mode-map>.

The message is formatted with "mhl" (see option
`mh-mhl-format-file') and printed with the "lpr" command (see
option `mh-lpr-command-format').

Check the documentation of `mh-interactive-range' to see how
RANGE is read in interactive use.

Consider using \[mh-ps-print-msg] instead.
(defalias 'mh-print-msg #[(range) "\306\307!\210\310	\247\203)\311	\312\211#\203\375	\313\n\314\312#\210\315\310\f#\210\nB)\202\375	:\203r	@\247\203r	A\247\203r\212	@b\210\316 \210`	AX\203nm\204n\317
!\203h\320\312!\313\n\314\312#\210\315\310\f#\210\nB)\321y\210\202B)\202\375	\203\201	9\203\201\322	!\202\217	;\203\216\323,	\"\202\217	\324 -\211.\310\211/\203\273/@\2110-1\3250\3121#\210*/A\211/\204\236*\212eb\210\316 \210`dX\203\374m\204\374\317
!\203\366\320\312!2\3262-\"\203\3652\313\n\314\312#\210\315\310\f#\210\nB))\321y\210\202\303+\237\211G\321V\203Y\327\330\331\332!!\333#3\3344	<\203$\334\335,3#\202/	9\205/\334\336,	#\"5\334\33735#67\203L\3408\310\3416$\210\202X\3428\310\211\211\3416&\210+\310\211/\203\275/@\334\343\344\3459\":\203z\334\346:\"\202{\347\350\n!$;\3344\334\351,\n#\"5\334\352;5#<7\203\247\3408\310\341<$\210\202\263\3428\310\211\211\341<&\210+/A\211/\204b+\306\353!\207" [msgs range msg mh-note-printed mh-cmd-note mh-scan-valid-regexp message "Printing..." nil mh-goto-msg t mh-add-msgs-to-seq printed mh-notate beginning-of-line looking-at mh-get-msg-num 1 mh-seq-to-msgs mh-translate-range make-hash-table puthash gethash mapconcat identity mh-list-to-string mh-coalesce-msg-list " " format "Folder: %s, Messages: %s" "Folder: %s, Sequence: %s" "scan %s | %s" mh-exec-cmd-daemon "-c" call-process "%s %s %s" expand-file-name "mhl" " -form %s" "" mh-msg-filename "%s/%s" "%s | %s" "Printing...done" mh-current-folder #1=#:seq-hash-table #2=#:msgs --dolist-tail-- #3=#:v #4=#:v v msgs-string mh-lpr-command-format lpr-command scan-command mh-print-background-flag shell-file-name mh-lib-progs mh-mhl-format-file mhl-command print-command] 8 (#$ . 6472) (list (mh-interactive-range "Print"))])
(provide 'mh-print)