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

[NINOMIYA Hideyuki]

おやすみなさい	二宮@お四国 です

Toshi Nagata <ntoshijp at example.com> は Sat, 21 Dec 2002 23:25:28 +0900
(JST) 頃
    Subject: [mew-dist 22655] Re: mew年と曜日の変数名
    Message-Id: <20021221.232528.74756477.ntoshijp at example.com>
    に於いて以下のようにおっしゃっていたように記憶しています。
※都合に因り手を加えさせて頂く事が有ります。御了承下さいマセヽ
ながた> 竹川さん、ご返事ありがとうございます。

ながた> これは、英語の曜日を和文に直しているだけで、英文の曜日が
ながた> 入っていないメールでは空白になります。

そういう場合の対処法については mew-scan.el を読めば解ります。
# 以下具体例
;;(defun mew-scan-form-date ()
;;  "A function to return a date, MM/DD."
;;  (let ((s (MEW-DATE)))
;;----- こっからが味噌 ------
;;    (when (or (string= s "")
;;      (not (string-match mew-time-rfc-regex s)));; 正しいかチェック
;;     (setq s (mew-time-ctz-to-rfc
;;       (mew-file-get-time (mew-expand-folder (MEW-FLD)(MEW-NUM))))))
;;			;; おかしかったらファイルのタイムスタンプで代用
;;----- ここまで -----
;; 続き
ながた> その為、年月日から曜日を計算しようと思いますが、年と月日の
ながた> 変数名が分からなく、lispが完成しません。
ながた> 変数名が分かれば完成すると思うのですが、

年月日の取り出し方は 上記の 続き の部分とかが参考になります。
ちなみにここで使われている関数/マクロは mew-func.el に定義されてます。
けどっ、年月日から自前で曜日を求めるってのは大変ですよねぇ

ながた> それとももっと良い方法があれば

(if (or (string= s "")
	(not (string-match mew-time-rfc-regex s)));; 正しいかチェック
    (format-time-string
     "%a" (mew-file-get-time (mew-expand-folder (MEW-FLD)(MEW-NUM))))
				;; 正しくなかったらタイムスタンプから
  (cdr
   (assoc s
	  '(("Mon" . "月")
	    ...
	    ("Sun" . "日"))))) ;; 正しかったら s から

なんてのでどうでせう
Date: フィールドが変だった時の常套句の応用 ...
# まったく試してはいません m(__)m
--─
ICQ UIN:57442553                          二宮 秀幸@愛媛 鬼北 広見町
PGP-Fingerprint:  6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
PGP-Public-Key:    http://user.shikoku.ne.jp/~nin/pgp/public-key.txt
mailto:nin at example.com   http://user.shikoku.ne.jp/~nin/index.html
mailto:nin at example.com http://home.jp.freebsd.org/~nin/index.html