;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (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 (#$ . 173)) #@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 (#$ . 567)) #@807 Print RANGE\. 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]. (fn RANGE) (defalias 'mh-ps-print-msg #[257 "\300\301\"\207" [mh-ps-print-range nil] 4 (#$ . 762) (byte-code "\300\301!C\207" [mh-interactive-range "Print"] 2)]) #@152 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. (fn RANGE FILE) (defalias 'mh-ps-print-range #[514 "\247\203\304\305\211#\203\315\306\216\307!\210)\310 #\210\202\315:\203b@\247\203bA\247\203b\212@b\210\311 \210`AX\203^m\204^\312\n!\203X\313\305!\314\216\307!\210)\310 #\266\315y\210\2026)\202\315\203q9\203q\316!\202~;\203}\317 \"\202~\320 \211\203\224\211@\321\305#\210A\266\202\202\201\210\212eb\210\311 \210`dX\203\312m\204\312\312\n!\203\304\313\305!\322\"\203\303\323\216\307!\210)\310 #\210\210\315y\210\202\234)\266\324!\207" [mh-note-printed mh-cmd-note mh-scan-valid-regexp mh-current-folder mh-goto-msg t #[0 "\300\207" [nil] 1] mh-ps-spool-msg mh-notate beginning-of-line looking-at mh-get-msg-num #[0 "\300\207" [nil] 1] 1 mh-seq-to-msgs mh-translate-range make-hash-table puthash gethash #[0 "\300\207" [nil] 1] ps-despool] 10 (#$ . 1727)]) #@22 Spool MSG. (fn MSG) (defalias 'mh-ps-spool-msg #[257 "\305 \306 !\210\n\203\307p!\210\310\311\"\216\312\" \232?\205!\313\f!)\262\310\314\"\216\212\211\2036\211\315\"\210)\316\203?\202@ !*\207" [mh-current-folder mh-show-buffer mh-bury-show-buffer-flag buffer-file-name mh-temp-buffer selected-window switch-to-buffer-other-window bury-buffer make-closure #[0 "\301\300!\207" [V0 select-window] 2] mh-msg-filename get-buffer-create #[0 "\300\205\301\300!\207" [V0 kill-buffer] 2] mh-display-msg mh-ps-spool-buffer] 6 (#$ . 2729)]) #@28 Spool BUFFER. (fn BUFFER) (defalias 'mh-ps-spool-buffer #[257 "r\211q\210\305\306\307!\310Q\305\306\311!\310QD\312\305\306\313!\310QD\f ,\207" [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:"] 7 (#$ . 3285)]) #@820 Print RANGE to FILE\. 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]. (fn RANGE FILE) (defalias 'mh-ps-print-msg-file #[514 "\300\"\207" [mh-ps-print-range] 5 (#$ . 3628) (byte-code "\300\301!\302\303!D\207" [mh-interactive-range "Print" mh-ps-print-preprint 1] 3)]) #@104 Provide a better default file name for `ps-print-preprint'. Pass along the prefix ARG to it. (fn ARG) (defalias 'mh-ps-print-preprint #[257 "\301\302\303 \304\305O\"\306!)\207" [buffer-file-name format "mh-%s" buffer-name 1 nil ps-print-preprint] 6 (#$ . 4637)]) #@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 #[0 "\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 (#$ . 4910) 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 #[0 "\204\n\301\302\303!\207\301=\203\304\302\305!\207\306\302\307!\207" [mh-ps-print-color-option black-white message "Colors will be printed as black & white" t "Colors will be printed" nil "Colors will not be printed"] 2 (#$ . 5303) nil]) #@353 Print RANGE the old fashioned way\. 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. (fn RANGE) (defalias 'mh-print-msg #[257 "\306\307!\210\310\247\203%\311\312\211#\203\334\313\314\312#\210\315\310 #\210C\262\202\334:\203m@\247\203mA\247\203m\212@b\210\316 \210`AX\203im\204i\317\n!\203c\320\312!\313\314\312#\210\315\310 #\210\211B\266\202\321y\210\202>)\202\334\203|9\203|\322!\202\211;\203\210\323 \"\202\211\324 \211\203\237\211@\325\312#\210A\266\202\202\214\210\212eb\210\316 \210`dX\203\331m\204\331\317\n!\203\323\320\312!\326\"\203\322\313\314\312#\210\315\310 #\210\211B\262\210\321y\210\202\247)\266\211\237\262\211G\321V\2030\327\330\331\332!!\333#\334\f<\203\377\334\335 #\202\n9\205\n\334\336 #\"\334\337 #,\203!\340-\310\341$\210\202-\342-\310\211\211\341&\210)\266\211\211\203\205\211@\334\343\344\345.\"/\203K\334\346/\"\202L\347\350!$\334\f\334\351 #\"\334\352 #,\203o\340-\310\341$\210\202{\342-\310\211\211\341&\210)\266A\266\202\2021\266\306\353!\207" [mh-note-printed mh-cmd-note mh-scan-valid-regexp mh-current-folder mh-lpr-command-format lpr-command 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-print-background-flag shell-file-name mh-lib-progs mh-mhl-format-file] 13 (#$ . 6044) (byte-code "\300\301!C\207" [mh-interactive-range "Print"] 2)]) (provide 'mh-print)