[Mew-dist 12423] PS print

[Kazu Yamamoto ( 山本和彦 )]

気が向いたので、ps-print.el に皮をかぶせてみました。以下を評価すれば、
Summary モードで "#" で、PS プリンタに出力します。メールヘッダは 
visible な部分のみを表示します。

印刷のヘッダ(メールヘッダじゃないよ)にどういう文字列を入れると嬉しいか
教えて下さい。とりあえず、たたき台ということで。

---
;; See ftp://ftp.etl.go.jp/pub/mule/.notready/ps-print.tar.gz
(require 'ps-print)

;;(setq ps-lpr-switches '("-Pps_printer_name")) ;; set by yourself
(setq ps-paper-type 'a4)
(setq ps-multibyte-buffer 'non-latin-printer)

(defun mew-ps-print ()
  (save-excursion
    (if (mew-header-p)
	(goto-char (if (get-text-property (point-min) 'mew-visible)
		       (point-min)
		     (or (next-single-property-change (point-min) 'mew-visible)
			 (point-max))))
      (goto-char (point-min)))
    (set-mark (point)) ;; due to ps-print's bug
    (ps-print-region (point) (point-max))))

(setq mew-print-function 'mew-ps-print)
---

--かず＠10分ハック