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

[INOUE Tomohiro]

こんばんは、井上といいます。

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 の頃に比べてかなり自由度が上がったので嬉しいです

---
井上 知洋