[Mew-dist 13797] Re: b52

[Ninomiya Hideyuki]

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

山本 和彦 様 は Mon, 7 Aug 2000 22:51:30 +0900 頃に
    Subject:    [Mew-dist 13783] b52
    Message-ID: <20000807.225118.71180328.kazu at example.com>
        に於いて、以下のようにおっしゃっていました。
※都合により手を加えさせて頂く事があります。御了承下さいマセマセ....
かず> b52 をリリースします。

かず> やったこと：
かず> 
かず> * time zone に関する sort の虫取り

うちには今

(1) Date: Sun, 06 Aug 2000 17:24:53 +0900
(2) Date: Mon, 7 Aug 2000 00:19:21 +0900
(3) Date: Mon, 7 Aug 2000 10:01:23 +0900 (JST)
(4) Date: Sun, 06 Aug 2000 22:10:27 -0400
(5) Date: Mon, 07 Aug 2000 11:24:14 +0900

こういう mail 達が +inbox にいます。上記並びが正しいと思うのですが
b52 の sort では (1),(4),(2),(3),(5) の順になってしまいます。

取り合えず

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 02:54:53
***************
*** 1043,1049 ****
  	  (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)
--- 1043,1057 ----
  	  (setq year (+ year 2000)))
  	 ((< year 100)
  	  (setq year (+ year 1900))))
! 	(setq hour (- hour tmzn))
! 	(cond
! 	 ((< hour 0)
! 	  (setq hour (+ hour 24))
! 	  (setq day (1- day)))
! 	 ((> hour 24)
! 	  (setq hour (- hour 24))
! 	  (setq day (1+ day))))
! 
  	(format "%4d%02d%02d%02d%s%s" year mon day hour min sec))))
  
  (defun mew-time-ctz-to-sortkey (time)

とすれば、(つまりゲタを履かせるのではなく、day を修正する...)
1〜5ちゃんと並びはするのですが、これだと day が変な値(0とか32)に
なる可能性が有るので、もっと厳密な年月日の正規化をしないといけません。
これから取り掛かってはみますが閏年判定なんかもしなくちゃいけないので
ややこしい....
---
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