Mercurial > emacs
annotate lisp/mh-e/mh-print.el @ 108172:c9d0b6bfe74e
Replace some xmenu cpp with autoconf.
* configure.in (TOOLKIT_LIBW) [HAVE_GTK]: Set to $GTK_LIBS.
(OLDXMENU, LIBXMENU): New output variables.
* src/Makefile.in (OLDXMENU, LIBXMENU) [HAVE_MENUS]:
Set with configure, not cpp.
(LIBW): Remove, replace with $TOOLKIT_LIBW.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 29 Apr 2010 18:50:17 -0700 |
parents | 1d1d5d9bd884 |
children | 376148b31b5e |
rev | line source |
---|---|
56676 | 1 ;;; mh-print.el --- MH-E printing support |
2 | |
106815 | 3 ;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 |
101478
0f9f0c19bc0a
Follow Glenn's lead and update format of Copyright.
Bill Wohler <wohler@newt.com>
parents:
100908
diff
changeset
|
4 ;; Free Software Foundation, Inc. |
56676 | 5 |
6 ;; Author: Jeffrey C Honig <jch@honig.net> | |
7 ;; Maintainer: Bill Wohler <wohler@newt.com> | |
8 ;; Keywords: mail | |
9 ;; See: mh-e.el | |
10 | |
11 ;; This file is part of GNU Emacs. | |
12 | |
94663
90c9ebd43589
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79713
diff
changeset
|
13 ;; GNU Emacs is free software: you can redistribute it and/or modify |
56676 | 14 ;; it under the terms of the GNU General Public License as published by |
94663
90c9ebd43589
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79713
diff
changeset
|
15 ;; the Free Software Foundation, either version 3 of the License, or |
90c9ebd43589
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79713
diff
changeset
|
16 ;; (at your option) any later version. |
56676 | 17 |
18 ;; GNU Emacs is distributed in the hope that it will be useful, | |
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 ;; GNU General Public License for more details. | |
22 | |
23 ;; You should have received a copy of the GNU General Public License | |
94663
90c9ebd43589
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79713
diff
changeset
|
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
56676 | 25 |
26 ;;; Commentary: | |
27 | |
28 ;;; Change Log: | |
29 | |
30 ;;; Code: | |
31 | |
68465 | 32 (require 'mh-e) |
33 (require 'mh-scan) | |
34 | |
56676 | 35 (require 'ps-print) |
36 | |
67246
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
37 (defvar mh-ps-print-color-option ps-print-color-p |
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
38 "Specify how buffer's text color is printed. |
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
39 |
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
40 Valid values are: |
56676 | 41 |
67246
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
42 nil - Do not print colors. |
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
43 t - Print colors. |
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
44 black-white - Print colors on black/white printer. |
68465 | 45 See also `ps-black-white-faces'. |
67246
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
46 |
67758
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
47 Any other value is treated as t. This variable is initialized |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
48 from `ps-print-color-p'.") |
56676 | 49 |
50 (defvar mh-ps-print-func 'ps-spool-buffer-with-faces | |
51 "Function to use to spool a buffer. | |
67246
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
52 |
56676 | 53 Sensible choices are the functions `ps-spool-buffer' and |
54 `ps-spool-buffer-with-faces'.") | |
55 | |
56 ;;;###mh-autoload | |
57 (defun mh-ps-print-msg (range) | |
67313
2ae99b10dd40
* mh-comp.el (mh-forward): Went over all uses of the word "RANGE" in
Bill Wohler <wohler@newt.com>
parents:
67246
diff
changeset
|
58 "Print RANGE\\<mh-folder-mode-map>. |
56676 | 59 |
67758
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
60 Check the documentation of `mh-interactive-range' to see how RANGE is |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
61 read in interactive use. |
67246
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
62 |
67758
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
63 This command will print inline text attachments but will not decrypt |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
64 messages. However, when a message is displayed in an MH-Show buffer, |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
65 then that buffer is used verbatim for printing with the caveat that |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
66 only text attachments, if opened inline, are printed. Therefore, |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
67 encrypted messages can be printed by showing and decrypting them |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
68 first. |
67246
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
69 |
67758
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
70 MH-E uses the \"ps-print\" package to do the printing, so you can |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
71 customize the printing further by going to the `ps-print' |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
72 customization group. This command does not use the options |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
73 `mh-lpr-command-format' or `mh-print-background-flag'. See also the |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
74 commands \\[mh-ps-print-toggle-color] and |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
75 \\[mh-ps-print-toggle-faces]." |
67246
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
76 (interactive (list (mh-interactive-range "Print"))) |
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
77 (mh-ps-print-range range nil)) |
56676 | 78 |
68465 | 79 (defun mh-ps-print-range (range file) |
80 "Print RANGE to FILE. | |
81 | |
82 This is the function that actually does the work. | |
83 If FILE is nil, then the messages are spooled to the printer." | |
84 (mh-iterate-on-range msg range | |
85 (unwind-protect | |
86 (mh-ps-spool-msg msg)) | |
87 (mh-notate msg mh-note-printed mh-cmd-note)) | |
88 (ps-despool file)) | |
89 | |
90 (defun mh-ps-spool-msg (msg) | |
91 "Spool MSG." | |
92 (let* ((folder mh-current-folder) | |
93 (buffer (mh-in-show-buffer (mh-show-buffer) | |
94 (if (not (equal (mh-msg-filename msg folder) | |
95 buffer-file-name)) | |
96 (get-buffer-create mh-temp-buffer))))) | |
97 (unwind-protect | |
98 (save-excursion | |
99 (if buffer | |
100 (let ((mh-show-buffer buffer)) | |
101 (mh-display-msg msg folder))) | |
102 (mh-ps-spool-buffer (if buffer buffer mh-show-buffer))) | |
103 (if buffer | |
104 (kill-buffer buffer))))) | |
105 | |
106 (defun mh-ps-spool-buffer (buffer) | |
107 "Spool BUFFER." | |
105867
00c0adbb54a9
* mh-thread.el (mh-thread-set-tables):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
101478
diff
changeset
|
108 (with-current-buffer buffer |
68465 | 109 (let ((ps-print-color-p mh-ps-print-color-option) |
110 (ps-left-header | |
111 (list | |
112 (concat "(" (mh-get-header-field "Subject:") ")") | |
113 (concat "(" (mh-get-header-field "From:") ")"))) | |
114 (ps-right-header | |
115 (list | |
116 "/pagenumberstring load" | |
117 (concat "(" (mh-get-header-field "Date:") ")")))) | |
118 (funcall mh-ps-print-func)))) | |
119 | |
56676 | 120 ;;;###mh-autoload |
67246
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
121 (defun mh-ps-print-msg-file (range file) |
67313
2ae99b10dd40
* mh-comp.el (mh-forward): Went over all uses of the word "RANGE" in
Bill Wohler <wohler@newt.com>
parents:
67246
diff
changeset
|
122 "Print RANGE to FILE\\<mh-folder-mode-map>. |
67246
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
123 |
67758
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
124 Check the documentation of `mh-interactive-range' to see how RANGE is |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
125 read in interactive use. |
67246
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
126 |
67758
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
127 This command will print inline text attachments but will not decrypt |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
128 messages. However, when a message is displayed in an MH-Show buffer, |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
129 then that buffer is used verbatim for printing with the caveat that |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
130 only text attachments, if opened inline, are printed. Therefore, |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
131 encrypted messages can be printed by showing and decrypting them |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
132 first. |
67246
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
133 |
67758
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
134 MH-E uses the \"ps-print\" package to do the printing, so you can |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
135 customize the printing further by going to the `ps-print' |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
136 customization group. This command does not use the options |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
137 `mh-lpr-command-format' or `mh-print-background-flag'. See also the |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
138 commands \\[mh-ps-print-toggle-color] and |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
139 \\[mh-ps-print-toggle-faces]." |
67246
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
140 (interactive (list (mh-interactive-range "Print") (mh-ps-print-preprint 1))) |
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
141 (mh-ps-print-range range file)) |
56676 | 142 |
68465 | 143 (defun mh-ps-print-preprint (prefix-arg) |
144 "Provide a better default file name for `ps-print-preprint'. | |
145 Pass along the PREFIX-ARG to it." | |
146 (let ((buffer-file-name (format "mh-%s" (substring (buffer-name) 1)))) | |
147 (ps-print-preprint prefix-arg))) | |
148 | |
56676 | 149 ;;;###mh-autoload |
150 (defun mh-ps-print-toggle-faces () | |
67246
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
151 "Toggle whether printing is done with faces or not. |
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
152 |
67758
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
153 When faces are enabled, the printed message will look very |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
154 similar to the message in the MH-Show buffer." |
56676 | 155 (interactive) |
156 (if (eq mh-ps-print-func 'ps-spool-buffer-with-faces) | |
157 (progn | |
158 (setq mh-ps-print-func 'ps-spool-buffer) | |
159 (message "Printing without faces")) | |
160 (setq mh-ps-print-func 'ps-spool-buffer-with-faces) | |
161 (message "Printing with faces"))) | |
162 | |
163 ;;;###mh-autoload | |
164 (defun mh-ps-print-toggle-color () | |
67246
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
165 "Toggle whether color is used in printing messages. |
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
166 |
67758
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
167 Colors are emulated on black-and-white printers with shades of |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
168 gray. This might produce illegible output, even if your screen |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
169 colors only use shades of gray. If this is the case, try using |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
170 this command to toggle between color, no color, and a black and |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
171 white representation of the colors and see which works best. You |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
172 change this setting permanently by customizing the option |
67246
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
173 `ps-print-color-p'." |
56676 | 174 (interactive) |
175 (if (eq mh-ps-print-color-option nil) | |
176 (progn | |
177 (setq mh-ps-print-color-option 'black-white) | |
66615
8a6d017601ce
(mh-ps-spool-buffer, mh-ps-spool-a-msg)
Bill Wohler <wohler@newt.com>
parents:
65980
diff
changeset
|
178 (message "Colors will be printed as black & white")) |
56676 | 179 (if (eq mh-ps-print-color-option 'black-white) |
180 (progn | |
68465 | 181 (setq mh-ps-print-color-option t) |
182 (message "Colors will be printed")) | |
56676 | 183 (setq mh-ps-print-color-option nil) |
66615
8a6d017601ce
(mh-ps-spool-buffer, mh-ps-spool-a-msg)
Bill Wohler <wohler@newt.com>
parents:
65980
diff
changeset
|
184 (message "Colors will not be printed")))) |
56676 | 185 |
67681 | 186 ;; Old non-PS based printing |
56676 | 187 ;;;###mh-autoload |
188 (defun mh-print-msg (range) | |
67313
2ae99b10dd40
* mh-comp.el (mh-forward): Went over all uses of the word "RANGE" in
Bill Wohler <wohler@newt.com>
parents:
67246
diff
changeset
|
189 "Print RANGE the old fashioned way\\<mh-folder-mode-map>. |
67246
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
190 |
67758
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
191 The message is formatted with \"mhl\" (see option |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
192 `mh-mhl-format-file') and printed with the \"lpr\" command (see |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
193 option `mh-lpr-command-format'). |
56676 | 194 |
67758
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
195 Check the documentation of `mh-interactive-range' to see how |
6b063593fdad
Follow Emacs coding conventions. Use default setting of
Bill Wohler <wohler@newt.com>
parents:
67681
diff
changeset
|
196 RANGE is read in interactive use. |
56676 | 197 |
67246
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
198 Consider using \\[mh-ps-print-msg] instead." |
56676 | 199 (interactive (list (mh-interactive-range "Print"))) |
200 (message "Printing...") | |
201 (let (msgs) | |
202 ;; Gather message numbers and add them to "printed" sequence. | |
203 (mh-iterate-on-range msg range | |
204 (mh-add-msgs-to-seq msg 'printed t) | |
205 (mh-notate nil mh-note-printed mh-cmd-note) | |
206 (push msg msgs)) | |
207 (setq msgs (nreverse msgs)) | |
208 ;; Print scan listing if we have more than one message. | |
209 (if (> (length msgs) 1) | |
210 (let* ((msgs-string | |
211 (mapconcat 'identity (mh-list-to-string | |
212 (mh-coalesce-msg-list msgs)) " ")) | |
213 (lpr-command | |
214 (format mh-lpr-command-format | |
215 (cond ((listp range) | |
216 (format "Folder: %s, Messages: %s" | |
217 mh-current-folder msgs-string)) | |
218 ((symbolp range) | |
219 (format "Folder: %s, Sequence: %s" | |
220 mh-current-folder range))))) | |
221 (scan-command | |
222 (format "scan %s | %s" msgs-string lpr-command))) | |
223 (if mh-print-background-flag | |
224 (mh-exec-cmd-daemon shell-file-name nil "-c" scan-command) | |
225 (call-process shell-file-name nil nil nil "-c" scan-command)))) | |
226 ;; Print the messages | |
227 (dolist (msg msgs) | |
228 (let* ((mhl-command (format "%s %s %s" | |
229 (expand-file-name "mhl" mh-lib-progs) | |
67246
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
230 (if mh-mhl-format-file |
bce5c0d2041c
* mh-comp.el (mh-letter-mode): Use mh-highlight-citation-style instead
Bill Wohler <wohler@newt.com>
parents:
66615
diff
changeset
|
231 (format " -form %s" mh-mhl-format-file) |
56676 | 232 "") |
233 (mh-msg-filename msg))) | |
234 (lpr-command | |
235 (format mh-lpr-command-format | |
236 (format "%s/%s" mh-current-folder msg))) | |
237 (print-command | |
238 (format "%s | %s" mhl-command lpr-command))) | |
239 (if mh-print-background-flag | |
240 (mh-exec-cmd-daemon shell-file-name nil "-c" print-command) | |
241 (call-process shell-file-name nil nil nil "-c" print-command))))) | |
242 (message "Printing...done")) | |
243 | |
244 (provide 'mh-print) | |
245 | |
67681 | 246 ;; Local Variables: |
247 ;; indent-tabs-mode: nil | |
248 ;; sentence-end-double-space: nil | |
249 ;; End: | |
56676 | 250 |
56677 | 251 ;; arch-tag: 8d84d50b-2a49-4d0d-b51e-ba9c9b6fc679 |
56676 | 252 ;;; mh-print.el ends here |