[Mew-dist 10621] Re: PostScript printing?

[Katsuya Tashiro]

田代と申します．

Mewで，PostScriptプリンタを使ってメール印刷する件です．
私も，どうやってうまく印刷するか，悩んでいる者の一人です．

From: Masaki SHIGEMORI <shige at example.com>
Subject: [Mew-dist 10620] PostScript printing?
Date: Wed, 8 Sep 1999 12:48:13 +0900
Message-ID: <37D5BC3A329.13E8SHIGE at example.com>

> デフォルトの a2ps の出力だと読みにくいので、utashiro さんの Perl 版
> a2ps.pl を使って以下のこと

> 1. ページのタイトルに From, Subject などを印刷したい。
     しかも日本語も使いたい。
> 2. 印刷される MIME ヘッダをカスタマイズしたい。
> 3. 引用文のフォントを替えられるようにしたい。

私も，まさに上のような事がやりたくて仕方がないのです！
以前に使っていたWindowsのメーラー（Winbiff）では，
わかりやすいフォーマットでメールが印刷出来て，便利でした．

Mewでも，印刷のフォーマットをきちんとできるようにするのは，
とても重要な事だと思います．
私も，Perl版のa2psを使っています．
私の賢くない対処法は，以下の通りです．

Perlは多少分かるので，（といっても，a2ps.plの中身は分かりません．）
印刷の時には，ReceivedやMessage-Idなどは，長い上に邪魔だと思います．
とりあえずは，Subject以下が印刷できればいいと割り切って，
以下のようなフィルタスクリプトを書いて，対処しています．
（ただ単に，Subject以下を印刷しているだけ・・・・）

** cut_mail_header.pl **
#!/usr/local/bin/perl
while(<STDIN>){
  if (/^Subject:/) {
  $flag=1
  }
  if ($flag) {
  print;
  }
}
************************
これだと，Subjectがないメールは印刷できません・・・（涙）

で，.emacsで，以下のように設定して使っています．
(setq mew-print-command-format "cut_mail_header.pl | a2ps.pl -p -nh | lpr)

もっと賢いやり方を教えていただきたいと思います．
PerlやEmacs-Lispに詳しい方，どんな解決方法がありますか？
それとも，他のツールを使うとうまく行くのかもしれませんね．

************************************************
 九州大学大学院理学研究科 地球惑星科学専攻
  固体地球惑星物理学講座 固体地球惑星力学研究室

       博士後期課程２年   田 代   勝 也
************************************************