[mew-dist 26417] Re: 色付きの mew-summary-print がしたい

[Shun-ichi TAHARA ( 田原 俊一 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Message-Id: <20050616.174249.46614495.shirai.hideyuki at example.com>

> 独自に mew-print-function を定義して、そのなかで
> ps-print-buffer-with-faces() を使っていても、すでに
> text-property が剥ぎ取られているのでつまらないのです。

あれ、うち、色付いてる… と思ったら、↓こんなことしてました :-)。
# 全然覚えてねぇ…

(defun mew-ps-print ()
  (interactive "")
  (goto-char (point-min))
  (re-search-forward "^$" (point-max) t)
  (when mew-use-highlight-header
    (mew-highlight-header-region (point-min) (point)))
  (when mew-use-highlight-body
    (mew-highlight-body-region (point) (point-max)))
  (let ((ps-printer-name printer-name)
        (ps-print-header t)
        (ps-header-lines 1)
        (ps-left-header '(mew-ps-print-article-author))
        (ps-right-header nil)
        (ps-print-footer t)
        (ps-footer-lines 1)
        (ps-left-footer '(mew-ps-print-article-timestamp))
        (ps-right-footer '("/pagenumberstring load"))
        (ps-line-spacing
         (max (if (boundp 'ps-line-spacing) ps-line-spacing 0) 5)))
    (ps-print-buffer-with-faces
     (when (and printer-name (equal printer-name ""))
       (read-file-name "Output PS to file: " mew-save-dir mew-save-dir)))))

(setq mew-print-function 'mew-ps-print)
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
田原 俊一   jado at example.com, shunichi_tahara at example.com
                                  http://flowernet.gr.jp/jado/
FingerPrint:  16 9E 70 3B 05 86 5D 08  B8 4C 47 3A E7 E9 8E D9
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣