[mew-dist 22642] mew年と曜日の変数名

[Toshi Nagata]

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

(defun ayoubi()
    (mod (+ (truncate (* 365 (年))) (round (* (string-to-number (substring (日付) 0 2)) 30.6)) (string-to-number (substring (日付) 3 5))) 7))
(defun mew-scan-form-youbi()
(cond ((= (ayoubi) 6) "火")
	((= (ayoubi) 5) "月")	
	((= (ayoubi) 4) "日")
	((= (ayoubi) 3) "土")
	((= (ayoubi) 2) "金")
	((= (ayoubi) 1) "木")
	((= (ayoubi) 0) "水")))
__________________________________________________
Do You Yahoo!?
Yahoo! BB is Broadband by Yahoo!  http://bb.yahoo.co.jp/