Lines Matching defs:print
1 ;;; mh-print.el --- MH-E printing support
36 (require 'ps-print)
38 (defvar mh-ps-print-color-option ps-print-color-p
43 nil - Do not print colors.
49 from `ps-print-color-p'.")
51 (defvar mh-ps-print-func 'ps-spool-buffer-with-faces
58 (defun mh-ps-print-msg (range)
64 This command will print inline text attachments but will not decrypt
71 MH-E uses the \"ps-print\" package to do the printing, so you can
72 customize the printing further by going to the `ps-print'
74 `mh-lpr-command-format' or `mh-print-background-flag'. See also the
75 commands \\[mh-ps-print-toggle-color] and
76 \\[mh-ps-print-toggle-faces]."
78 (mh-ps-print-range range nil))
80 (defun mh-ps-print-range (range file)
111 (let ((ps-print-color-p mh-ps-print-color-option)
120 (funcall mh-ps-print-func))))
123 (defun mh-ps-print-msg-file (range file)
129 This command will print inline text attachments but will not decrypt
136 MH-E uses the \"ps-print\" package to do the printing, so you can
137 customize the printing further by going to the `ps-print'
139 `mh-lpr-command-format' or `mh-print-background-flag'. See also the
140 commands \\[mh-ps-print-toggle-color] and
141 \\[mh-ps-print-toggle-faces]."
142 (interactive (list (mh-interactive-range "Print") (mh-ps-print-preprint 1)))
143 (mh-ps-print-range range file))
145 (defun mh-ps-print-preprint (prefix-arg)
146 "Provide a better default file name for `ps-print-preprint'.
149 (ps-print-preprint prefix-arg)))
152 (defun mh-ps-print-toggle-faces ()
158 (if (eq mh-ps-print-func 'ps-spool-buffer-with-faces)
160 (setq mh-ps-print-func 'ps-spool-buffer)
162 (setq mh-ps-print-func 'ps-spool-buffer-with-faces)
166 (defun mh-ps-print-toggle-color ()
175 `ps-print-color-p'."
177 (if (eq mh-ps-print-color-option nil)
179 (setq mh-ps-print-color-option 'black-white)
181 (if (eq mh-ps-print-color-option 'black-white)
183 (setq mh-ps-print-color-option t)
185 (setq mh-ps-print-color-option nil)
190 (defun mh-print-msg (range)
200 Consider using \\[mh-ps-print-msg] instead."
225 (if mh-print-background-flag
239 (print-command
241 (if mh-print-background-flag
242 (mh-exec-cmd-daemon shell-file-name nil "-c" print-command)
243 (call-process shell-file-name nil nil nil "-c" print-command)))))
246 (provide 'mh-print)
254 ;;; mh-print.el ends here