[Mew-dist 13814] Re: b52

[Ninomiya Hideyuki]

こんにちは	二宮@お四国 です

山本 和彦 様 は Tue, 8 Aug 2000 14:23:17 +0900 頃に
    Subject:    [Mew-dist 13803] Re: b52
    Message-ID: <20000808.142303.71180898.kazu at example.com>
        に於いて、以下のようにおっしゃっていました。
※都合により手を加えさせて頂く事があります。御了承下さいマセマセ....
かず> とりあえず、自前で作る方法と timezone.el を使う方法を
かず> 比較検討してみます。

timezone.el の使い方なんて知らなかった(教えてもらってありがとうございま
した m(__)m > 加藤さん < けどっ、遅かった。もう7割方書いていたのだ...)
ので、ゴリヽとダサヽなコードを書き上げてみました。

Index: mew-func.el
===================================================================
RCS file: /tmp/am/od/cvs/mew/mew-func.el,v
retrieving revision 0.7
diff -c -r0.7 mew-func.el
*** mew-func.el	2000/08/07 14:48:28	0.7
--- mew-func.el	2000/08/08 07:08:49
***************
*** 1028,1034 ****
  ;;;
  ;;;
  
! ;; "20000726541835"
  (defun mew-time-rfc-to-sortkey (s)
    (if (string-match mew-time-rfc-regex s)
        (let ((year (mew-time-rfc-year))
--- 1028,1034 ----
  ;;;
  ;;;
  
! ;; "20000726231835"
  (defun mew-time-rfc-to-sortkey (s)
    (if (string-match mew-time-rfc-regex s)
        (let ((year (mew-time-rfc-year))
***************
*** 1043,1050 ****
  	  (setq year (+ year 2000)))
  	 ((< year 100)
  	  (setq year (+ year 1900))))
! 	(setq hour (- (+ hour 24) tmzn))
  	(format "%4d%02d%02d%02d%s%s" year mon day hour min sec))))
  
  (defun mew-time-ctz-to-sortkey (time)
    (if (fboundp 'format-time-string)
--- 1043,1074 ----
  	  (setq year (+ year 2000)))
  	 ((< year 100)
  	  (setq year (+ year 1900))))
! 	(setq hour (- hour tmzn))
! 	(cond
! 	 ((< hour 0)
! 	  (setq hour (+ hour 24) day (1- day))
! 	  (if (< day 1)
! 	      (progn
! 		(if (< (setq mon (1- mon)) 1)
! 		    (setq year (1- year) mon (+ mon 12)))
! 		(setq day (mew-last-day year mon)))))
! 	 ((> hour 24)
! 	  (setq hour (- hour 24) day (1+ day))
! 	  (if (> day (mew-last-day year mon))
! 		(if (> (setq day 1 mon (1+ mon)) 12)
! 		    (setq year (1+ year) mon (- mon 12))))))
  	(format "%4d%02d%02d%02d%s%s" year mon day hour min sec))))
+ 
+ (defvar mew-last-day-list '(31 nil 31 30 31 30 31 31 30 31 30 31))
+ 
+ (defun mew-last-day (year mon)
+   (let ((day (nth (1+ mon) mew-last-day-list)))
+     (if day day
+       (if (= mon 2)
+ 	  (if (= (mod year 4) 0)
+ 	      (if (= (mod year 100) 0)
+ 		  (if (= (mod year 400) 0) 29 28)) 28)
+ 	nil))))
  
  (defun mew-time-ctz-to-sortkey (time)
    (if (fboundp 'format-time-string)

# ちょっと力ずくなコードですがっ....
---
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