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

[Toshi Nagata]

永田です。
小幡さんのLISPコードを見て、年月日より曜日を計算する命令がLISPに
あることが分かりました。
小幡さんのコードを参考にして、次のようにLISPコードを作りました。
***************************************************
(defun mew-scan-form-youbi ()
  "A function to return a day of the week."
  (let ((s (MEW-DATE)) yyyy mm dd)              
    (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))))))
    (if (not (string-match mew-time-rfc-regex s))
        "??-??-?? "
      (setq yyyy (mew-time-rfc-year)
            mm (mew-time-mon-str-to-int (mew-time-rfc-mon))
            dd (mew-time-rfc-day))
      (cond
       ((< yyyy 50)
	(setq yyyy (+ yyyy 2000)))
       ((< yyyy 200)
	(setq yyyy (+ yyyy 1900)))) 
        (nth (string-to-number                                        
                    (format-time-string "%w" (encode-time 0 0 0 dd mm yyyy)))
                   '("日" "月" "火" "水" "木" "金" "土")
                   ;;'("Su" "Mo" "Tu" "We" "Th" "Fr" "Sa")
                   ;;'("s" "m" "t" "w" "r" "f" "a")
                   ))))

(setq mew-scan-form
      '(type (5 date) "(" (2 youbi) ")[" (5 time) "]" (-4 size) " "
	     t (14 from) " " (0 subj)))
***********************************************
どうもありがとうございました。
__________________________________________________
Do You Yahoo!?
Yahoo! BB is Broadband by Yahoo!  http://bb.yahoo.co.jp/