[mew-dist 22653] Re: mew年と曜日の変数名

[Hiroshi Takekawa]

こんにちは、竹川です。

> メール一覧に日付の後に曜日を入れたいと思い、lispで作成しましたが、下記の年と日付の部分が不明です。MEWで使用されている年と日付の変数名を教えて下さい。

昔このMLでながれたんだったと思いますが、私のはこんな感じです。

(defun mew-scan-form-youbi ()
  (let ((s (MEW-DATE)))
    (when (>= (length s) 3)
      (setq s (substring s 0 3)))
    (cdr
     (assoc s
            '(("Mon" . "月")
              ("Tue" . "火")
              ("Wed" . "水")
              ("Thu" . "木")
              ("Fri" . "金")
              ("Sat" . "土")
              ("Sun" . "日"))))))
(setq mew-scan-form
      '(type (5 date) "(" (2 youbi) ")[" (5 time) "]" (-4 size) " "
             t (14 from) " " (0 subj)))

参考になりましたら。

--
Hiroshi Takekawa <sian at example.com>