[Mew-dist 10625] Re: PostScript printing?

[Ryota HIROSE]

>From: Katsuya Tashiro <tashiro at example.com>
>Date: Wed, 8 Sep 1999 13:23:34 +0900

> Mewでも，印刷のフォーマットをきちんとできるようにするのは，
> とても重要な事だと思います．

Mewはあんまり関係なくて、要は中身がRFC822な形式のファイルを適当に整形
できればいいだけなんですよね。

RFC822形式では、ヘッダと本文は空行(/^$/)で分離されています。本文は当然
すべて出力するとして、ヘッダ部では必要なヘッダだけを出力するという形で
よければ以下のようなスクリプトはどうでしょうか。

$subject="Subject: (null)\n";
$from="From: (null)\n";
$date="Date: (null)\n";
$body=0;
open F, "| a2ps.pl -p -nh | lpr";

while (<>) {
  if ($body) {
    print F;
  }
  elsif (/^$/) {
    $body = 1;
    print F $date;
    print F $from;
    print F $subject;
    print F "\n";
  }
  else {
    $subject = $_ if /^Subject:/;
    $from = $_ if /^From:/;
    $date = $_ if /^Date:/;
  }
}

close F;

ヘッダ部のMIMEエンコードを解読していないとかいろいろ問題はありますが、
とりあえずのスケルトンとしては十分でしょう。

ryt