Function: mh-ps-spool-msg

mh-ps-spool-msg is a byte-compiled function defined in mh-print.el.gz.

Signature

(mh-ps-spool-msg MSG)

Documentation

Spool MSG.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-print.el.gz
(defun mh-ps-spool-msg (msg)
  "Spool MSG."
  (let* ((folder mh-current-folder)
         (buffer (mh-in-show-buffer (mh-show-buffer)
                   (if (not (equal (mh-msg-filename msg folder)
                                   buffer-file-name))
                       (get-buffer-create mh-temp-buffer)))))
    (unwind-protect
        (save-excursion
          (if buffer
              (let ((mh-show-buffer buffer))
                (mh-display-msg msg folder)))
          (mh-ps-spool-buffer (if buffer buffer mh-show-buffer)))
      (if buffer
          (kill-buffer buffer)))))