emacs: lisp/mh-e/mh-print.el comparison

comparison lisp/mh-e/mh-print.el @ 90261:7beb78bc1f8e

Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-97 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 616-696) - Add lisp/mh-e/.arch-inventory - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: lisp/smerge-mode.el: Add 'tools' to file keywords. - lisp/gnus/ChangeLog: Remove duplicate entry * gnus--rel--5.10 (patch 147-181) - Update from CVS - Merge from emacs--cvs-trunk--0 - Update from CVS: lisp/mml.el (mml-preview): Doc fix. - Update from CVS: texi/message.texi: Fix default values. - Update from CVS: texi/gnus.texi (RSS): Addition.

author	Miles Bader <miles@gnu.org>
date	Mon, 16 Jan 2006 08:37:27 +0000
parents	5e2d3828e89f 5012e59a73c7
children	7432ca837c8d

comparison

equal deleted inserted replaced

-:0ca0d9181b5e
+:7beb78bc1f8e
 ;;; mh-print.el --- MH-E printing support
-;; Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc.
+;; Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
 ;; Author: Jeffrey C Honig <jch@honig.net>
 ;; Maintainer: Bill Wohler <wohler@newt.com>
 ;; Keywords: mail
 ;; See: mh-e.el
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
 ;; Boston, MA 02110-1301, USA.
 ;;; Commentary:
-;;	Pp	Print to lpr              |   Default inline settings
-;;      Pf      Print to file             |   Generate a postscript file
-;;	Ps	Print show buffer         |   Fails if no show buffer
-;;
-;;	PA	Toggle inline/attachments
-;;	PC	Toggle color
-;;	PF	Toggle faces
 ;;; Change Log:
 ;;; Code:
+;;(message "> mh-print")
 (eval-when-compile (require 'mh-acros))
 (mh-require-cl)
 (require 'ps-print)
+(require 'mh-buffers)
 (require 'mh-utils)
 (require 'mh-funcs)
 (eval-when-compile (require 'mh-seq))
+;;(message "< mh-print")
-(defvar mh-ps-print-mime nil
-"Control printing of MIME parts.
-The three possible states are:
-1. nil to not print inline parts
-2. t to print inline parts
-3. non-zero to print inline parts and attachments")
 (defvar mh-ps-print-color-option ps-print-color-p
-"MH-E's version of `\\[ps-print-color-p]'.")
+"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-func 'ps-spool-buffer-with-faces
 "Function to use to spool a buffer.
 Sensible choices are the functions `ps-spool-buffer' and
 `ps-spool-buffer-with-faces'.")
-;; XXX - If buffer is already being displayed, use that buffer
-;; XXX - What about showing MIME content?
-;; XXX - Default print buffer is bogus
 (defun mh-ps-spool-buffer (buffer)
-"Send BUFFER to printer queue."
+"Spool BUFFER."
-(message "mh-ps-spool-buffer %s" buffer)
 (save-excursion
 (set-buffer buffer)
 (let ((ps-print-color-p mh-ps-print-color-option)
 (ps-left-header
 (list
-	(concat "("
+(concat "(" (mh-get-header-field "Subject:") ")")
-		(mh-get-header-field "Subject:") ")")
+(concat "(" (mh-get-header-field "From:") ")")))
-	(concat "("
+(ps-right-header
-		(mh-get-header-field "From:") ")")))
+(list
-(ps-right-header
+"/pagenumberstring load"
-(list
+(concat "(" (mh-get-header-field "Date:") ")"))))
-	"/pagenumberstring load"
+(funcall mh-ps-print-func))))
-	(concat "("
-		(mh-get-header-field "Date:") ")"))))
+(defun mh-ps-spool-msg (msg)
-(funcall mh-ps-print-func))))
+"Spool MSG."
+(let* ((folder mh-current-folder)
-(defun mh-ps-spool-a-msg (msg buffer)
+(buffer (mh-in-show-buffer (mh-show-buffer)
-"Print MSG.
+(if (not (equal (mh-msg-filename msg folder)
-First the message is decoded in BUFFER before the results are sent to the
+buffer-file-name))
-printer."
+(get-buffer-create mh-temp-buffer)))))
-(message "mh-ps-spool-a-msg msg %s buffer %s"
-		   msg buffer)
-(let ((mh-show-buffer mh-show-buffer)
-	(folder mh-current-folder)
-;; The following is commented out because
-;; `clean-message-header-flag' isn't used anywhere. I
-;; commented rather than deleted in case somebody had some
-;; future plans for it. --SY.
-	;(clean-message-header-flag mh-clean-message-header-flag)
-)
 (unwind-protect
-	(progn
+(save-excursion
-	  (setq mh-show-buffer buffer)
+(if buffer
-	  (save-excursion
+(let ((mh-show-buffer buffer))
-	    ;;
+(mh-display-msg msg folder)))
-	    ;; XXX - Use setting of mh-ps-print-mime
+(mh-ps-spool-buffer (if buffer buffer mh-show-buffer)))
-	    ;;
+(if buffer
-	    (mh-display-msg msg folder)
+(kill-buffer buffer)))))
-	    (mh-ps-spool-buffer mh-show-buffer)
-(kill-buffer mh-show-buffer))))))
+(defun mh-ps-print-range (range file)
+"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."
+(mh-iterate-on-range msg range
+(unwind-protect
+(mh-ps-spool-msg msg))
+(mh-notate msg mh-note-printed mh-cmd-note))
+(ps-despool file))
+(defun mh-ps-print-preprint (prefix-arg)
+"Provide a better default file name for `ps-print-preprint'.
+Pass along the PREFIX-ARG to it."
+(let ((buffer-file-name (format "mh-%s" (substring (buffer-name) 1))))
+(ps-print-preprint prefix-arg)))
 ;;;###mh-autoload
 (defun mh-ps-print-msg (range)
-"Print the messages in RANGE.
+"Print RANGE\\<mh-folder-mode-map>.
-Check the documentation of `mh-interactive-range' to see how RANGE is read in
+Check the documentation of `mh-interactive-range' to see how RANGE is
-interactive use."
+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]."
 (interactive (list (mh-interactive-range "Print")))
-(message "mh-ps-print-msg range %s keys %s"
+(mh-ps-print-range range nil))
-		    range (this-command-keys))
-(mh-iterate-on-range msg range
+;;;###mh-autoload
-(let ((buffer (get-buffer-create mh-temp-buffer)))
+(defun mh-ps-print-msg-file (range file)
-(unwind-protect
+"Print RANGE to FILE\\<mh-folder-mode-map>.
-	  (mh-ps-spool-a-msg msg buffer)
-	(kill-buffer buffer)))
+Check the documentation of `mh-interactive-range' to see how RANGE is
-(mh-notate nil mh-note-printed mh-cmd-note))
+read in interactive use.
-(ps-despool nil))
+This command will print inline text attachments but will not decrypt
-(defun mh-ps-print-preprint (prefix-arg)
+messages. However, when a message is displayed in an MH-Show buffer,
-"Replacement for `ps-print-preprint'.
+then that buffer is used verbatim for printing with the caveat that
-The original function does not handle the fact that MH folders are directories
+only text attachments, if opened inline, are printed. Therefore,
-nicely, when generating the default file name. This function works around
+encrypted messages can be printed by showing and decrypting them
-that. The function is passed the interactive PREFIX-ARG."
+first.
-(let ((buffer-file-name (format "/tmp/%s" (substring (buffer-name) 1))))
-(ps-print-preprint prefix-arg)))
+MH-E uses the \"ps-print\" package to do the printing, so you can
+customize the printing further by going to the `ps-print'
-;;;###mh-autoload
+customization group. This command does not use the options
-(defun mh-ps-print-msg-file (file range)
+`mh-lpr-command-format' or `mh-print-background-flag'. See also the
-"Print to FILE the messages in RANGE.
+commands \\[mh-ps-print-toggle-color] and
+\\[mh-ps-print-toggle-faces]."
-Check the documentation of `mh-interactive-range' to see how RANGE is read in
+(interactive (list (mh-interactive-range "Print") (mh-ps-print-preprint 1)))
-interactive use."
+(mh-ps-print-range range file))
-(interactive (list
-		(mh-ps-print-preprint 1)
-		(mh-interactive-range "Print")))
-(mh-iterate-on-range msg range
-(let ((buffer (get-buffer-create mh-temp-buffer)))
-(unwind-protect
-	  (mh-ps-spool-a-msg msg buffer)
-	(kill-buffer buffer)))
-(mh-notate nil mh-note-printed mh-cmd-note))
-(ps-despool file))
-;;;###mh-autoload
-(defun mh-ps-print-msg-show (file)
-"Print current show buffer to FILE."
-(interactive (list (mh-ps-print-preprint current-prefix-arg)))
-(message "mh-ps-print-msg-show file %s keys %s mh-show-buffer %s"
-		   file (this-command-keys) mh-show-buffer)
-(let ((msg (mh-get-msg-num t))
-(folder mh-current-folder)
-(show-buffer mh-show-buffer)
-(show-window (get-buffer-window mh-show-buffer)))
-(if (and show-buffer show-window)
-	(mh-in-show-buffer (show-buffer)
-	  (if (equal (mh-msg-filename msg folder) buffer-file-name)
-	      (progn
-		(mh-ps-spool-buffer show-buffer)
-		(ps-despool file))
-	    (message "Current message is not being shown(1).")))
-(message "Current message is not being shown(2)."))))
 ;;;###mh-autoload
 (defun mh-ps-print-toggle-faces ()
-"Toggle whether printing is done with faces or not."
+"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."
 (interactive)
 (if (eq mh-ps-print-func 'ps-spool-buffer-with-faces)
 (progn
 (setq mh-ps-print-func 'ps-spool-buffer)
 (message "Printing without faces"))
 (setq mh-ps-print-func 'ps-spool-buffer-with-faces)
 (message "Printing with faces")))
 ;;;###mh-autoload
 (defun mh-ps-print-toggle-color ()
-"Toggle whether color is used in printing messages."
+"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'."
 (interactive)
 (if (eq mh-ps-print-color-option nil)
 (progn
 (setq mh-ps-print-color-option 'black-white)
-(message "Colors will be printed as black & white."))
+(message "Colors will be printed as black & white"))
 (if (eq mh-ps-print-color-option 'black-white)
 (progn
 	 (setq mh-ps-print-color-option t)
-	 (message "Colors will be printed."))
+	 (message "Colors will be printed"))
 (setq mh-ps-print-color-option nil)
-(message "Colors will not be printed."))))
+(message "Colors will not be printed"))))
-;;; XXX: Check option 3. Documentation doesn't sound right.
+;; Old non-PS based printing
-;;;###mh-autoload
-(defun mh-ps-print-toggle-mime ()
-"Cycle through available choices on how MIME parts should be printed.
-The available settings are:
-1. Print only inline MIME parts.
-2. Print all MIME parts.
-3. Print no MIME parts."
-(interactive)
-(if (eq mh-ps-print-mime nil)
-(progn
-(setq mh-ps-print-mime t)
-(message "Inline parts will be printed, attachments will not be printed."))
-(if (eq mh-ps-print-mime t)
-(progn
-(setq mh-ps-print-mime 1)
-(message "Both Inline parts and attachments will be printed."))
-(setq mh-ps-print-mime nil)
-(message "Neither inline parts nor attachments will be printed."))))
-;;; Old non-PS based printing
 ;;;###mh-autoload
 (defun mh-print-msg (range)
-"Print RANGE on printer.
+"Print RANGE the old fashioned way\\<mh-folder-mode-map>.
-Check the documentation of `mh-interactive-range' to see how RANGE is read in
+The message is formatted with \"mhl\" (see option
-interactive use.
+`mh-mhl-format-file') and printed with the \"lpr\" command (see
+option `mh-lpr-command-format').
-The variable `mh-lpr-command-format' is used to generate the print command.
-The messages are formatted by mhl. See the variable `mhl-formfile'."
+Check the documentation of `mh-interactive-range' to see how
+RANGE is read in interactive use.
+Consider using \\[mh-ps-print-msg] instead."
 (interactive (list (mh-interactive-range "Print")))
 (message "Printing...")
 (let (msgs)
 ;; Gather message numbers and add them to "printed" sequence.
 (mh-iterate-on-range msg range
 (call-process shell-file-name nil nil nil "-c" scan-command))))
 ;; Print the messages
 (dolist (msg msgs)
 (let* ((mhl-command (format "%s %s %s"
 (expand-file-name "mhl" mh-lib-progs)
-(if mhl-formfile
+(if mh-mhl-format-file
-(format " -form %s" mhl-formfile)
+(format " -form %s" mh-mhl-format-file)
 "")
 (mh-msg-filename msg)))
 (lpr-command
 (format mh-lpr-command-format
 (format "%s/%s" mh-current-folder msg)))
 (call-process shell-file-name nil nil nil "-c" print-command)))))
 (message "Printing...done"))
 (provide 'mh-print)
-;;; Local Variables:
+;; Local Variables:
-;;; indent-tabs-mode: nil
+;; indent-tabs-mode: nil
-;;; sentence-end-double-space: nil
+;; sentence-end-double-space: nil
-;;; End:
+;; End:
 ;; arch-tag: 8d84d50b-2a49-4d0d-b51e-ba9c9b6fc679
 ;;; mh-print.el ends here

Mercurial > emacs

comparison lisp/mh-e/mh-print.el @ 90261:7beb78bc1f8e