[Mew-dist 12438] Re: PS print

[Hideyuki SHIRAI ( 白井秀行 )]

From: SAITO Tetsuya (さいとてつや) <saito at example.com> さん曰く
Subject: [Mew-dist 12436] Re: PS print
Message-ID: <20000217.110027.71143456.saito at example.com>
Date: Thu, 17 Feb 2000 11:00:30 +0900

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

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

以前からまったく同じことをやっています。'mew-visible 使っている
のも一緒だ。うれしいな。

さいと> 1. ヘッダに出る表題が Subset of: *Mew message*0 になって悲しい．From:
さいと>    とか，メイルのあるフォルダを一緒に印字してくれるとうれしい．

さいと>     ps-vm-hook などを見て，mew-ps-print に

さいと>     (setq ps-header-lines 3
さいと> 	  ps-left-header
さいと> 	  '(ps-article-subject ps-article-author buffer-name))

私は、この部分は、

   <<snip>>
	    (let ((ps-header-lines 2)
		  (ps-left-header (list 'mew-ps-get-subj 'mew-ps-get-from))
		  (ps-right-header (list "/pagenumberstring load" 'mew-ps-get-date)))
	      (ps-print-buffer-with-faces filename))
   <<snip>>

(defun mew-ps-get-subj ()
  (cond
   ((mew-header-get-value mew-subj:)
    (mew-header-get-value mew-subj:))
   (t "Mew message")))

(defun mew-ps-get-from ()
  (cond
   ((mew-header-get-value mew-from:)
    (concat "From: " (mew-addrstr-parse-address
		      (mew-header-get-value mew-from:))))
   (t "")))

(defun mew-ps-get-date ()
  (cond
   ((mew-header-get-value mew-date:)
    (mew-header-get-value mew-date:))
   (t (current-time-string))))

としています。
しかし、ps-header はマルチバイト文字に対応していないので、
Subject: 部分とかの日本語は化けます。From: は同様の理由で、
parse-address しています。

さいと>    を追加して頑張ってみたんですが，うまくいかない様子（フォントの設定
さいと>    がまずいのか，かずさんのメイルを印字してみるとFrom:が化ける）．また，
さいと>    buffer-name は *Mew message*0 になってしまう（よく考えるとあたりま
さいと>    え）．

さいと>    現在参照しているフォルダの名前を取る方法はあるんでしょうか．

私の例でいうと、mew-ps-get-folder とか作れば一発ですね。

さいと> 2. ps-print-region-with-faces にしてFontの設定をがんばって素敵に印字し
さいと>    たい．

ps-print を改造して font をきちんと設定すると、x-face や smily
などの bitmap 部分も印字できてとっても素敵です。-with-faces で
color の PS printer に出すと色も出て最高です。:-)

ps-print.el の改造は、
http://www.mdcnet.co.jp/~keiichi/meadow-tips-ja.shtml が詳しいの
ですが、たしかここにあるパッチは古めの ps-print 用だったと思いま
す。

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 12437] Re: PS print
Message-ID: <20000217.111803.59747111.kazu at example.com>
Date: Thu, 17 Feb 2000 11:17:17 +0900

kazu> これは、BDF フォントで頑張るってこと？

で、ちょっと改造すると(もしかして、最初からかな？)
ps-mule-font-info-database-ps を適切に設定すると、

	      (setq ps-mule-font-info-database-ps
		    '((latin-jisx0201
		       (normal bdf "12x24rk.bdf" ps-mule-encode-7bit 1))
		      (japanese-jisx0208
		       (normal builtin "Ryumin-Light-H" ps-mule-encode-7bit 2)
		       (bold builtin "GothicBBB-Medium-H" ps-mule-encode-7bit 2))
		      (thai-tis620
		       (normal bdf "thai-24.bdf" thai-tis620 1))

こんな風に builtin font と BDF font を混在させることが出来て、ま
すます幸せです。

# Meadow 関連の ML にもどなかかがパッチを投げたのですが、見付け
# られない。^^;;;
# ご希望があれば、現在の ps-print からの diff はとれます。

-- 
白井秀行 (mailto:shirai at example.com)