[mew-dist 18321] Re: mew-scan-form

[KITANO Isao]

井上様

北野です。

さっそく使わせていただいております。
これで Mew2.0 でも快適に使えそうです。
ありがとうございました。

From: INOUE Tomohiro <tinoue at example.com>
Subject: [mew-dist 18319] Re: mew-scan-form
Date: Tue, 31 Jul 2001 23:48:20 +0900 (JST)
Message-ID: <20010731.234820.81463154.tinoue at example.com>

> こんばんは、井上といいます。
> 
> KITANO Isao <kitano at example.com>:
> > 1.94.2 で im を使っていたころは、どなたかが書かれた scan.form を使わせ
> > ていただき、以下のように曜日を漢字で表示させていました。
> > 7579  07/31(火)[17:56] shirai at example.com [mew-dist 18313] UTF-8 decode failure <
> > 7580  07/31(火)[19:43] t-miyazawa at example.com [mew-dist 18314] 初めまして！ <mew-dist
> > 7581  07/31(火)[19:50] shirai at example.com [mew-dist 18315] Re: mew-mail-path (was
> > 7582  07/31(火)[19:54] kayama at example.com [mew-dist 18316] Re: 初めまして！ <かや
> > Mew2.0で上のように表示する方法はありますでしょうか。
> > 今は、以下のように mew-scan-form を設定して使っています。
> 
> 
> かなりハードコーディングですが、、
> こんな風にしてやっています。
> ＃もっといいコードの書き方があれば何方か教えてください
> 
> (defun mew-scan-form-youbi ()
>   (let ((s (MEW-DATE)))
>     (if (>= (length s) 3) (setq s (substring s 0 3)))
>     (cond 
>      ((string= s "Mon") "月")
>      ((string= s "Tue") "火")
>      ((string= s "Wed") "水")
>      ((string= s "Thu") "木")
>      ((string= s "Fri") "金")
>      ((string= s "Sat") "土")
>      ((string= s "Sun") "日")
>      (t "??"))))
> 
> (setq mew-scan-form
>       '(type (5 date) "(" (2 youbi) ")[" (-4 time) "] " 
> 	     (14 from) " " (0 subj)))
> 
> この辺のことは mew-scan-form の説明と、配布ファイルの中の 00api に
> 書かれています。
> ＃IM の頃に比べてかなり自由度が上がったので嬉しいです
> 
> ---
> 井上 知洋

--
北野 功