[Mew-dist 13761] Re: b51

[Kazu Yamamoto ( 山本和彦 )]

From: takei at example.com
Subject: [Mew-dist 13759] Re: b51

> このように表示されて、sort の結果なぜか一番新しいメールとして移動され
> てきます。なんつうか同じ現象が起って01/01 と表示されるものがあって、そ
> れらに共通するのは、offset またはTZ がないものでした。

これを当てて下さい。

--かず

-------------- next part --------------
? LOG
? LOGLESS
Index: mew-func.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-func.el,v
retrieving revision 1.139
retrieving revision 1.140
diff -c -r1.139 -r1.140
*** mew-func.el	2000/08/02 19:35:20	1.139
--- mew-func.el	2000/08/02 21:24:40	1.140
***************
*** 995,1001 ****
  ;;;
  
  (defvar mew-time-rfc-regex
!   "\\([0-9]+\\)[ \t]+\\([a-zA-Z]+\\)[ \t]+\\([0-9]+\\)[ \t]+\\([0-9]+\\):\\([0-9]+\\)\\(:\\([0-9]+\\)\\)?[ \t]+\\([-+0-9a-zA-Z]+\\)")
  
  (defmacro mew-time-rfc-day  ()
    '(string-to-int (substring s (match-beginning 1) (match-end 1))))
--- 995,1001 ----
  ;;;
  
  (defvar mew-time-rfc-regex
!   "\\([0-9]+\\)[ \t]+\\([a-zA-Z]+\\)[ \t]+\\([0-9]+\\)[ \t]+\\([0-9]+\\):\\([0-9]+\\)\\(:\\([0-9]+\\)\\)?\\([ \t]+\\([-+0-9a-zA-Z]+\\)\\)?")
  
  (defmacro mew-time-rfc-day  ()
    '(string-to-int (substring s (match-beginning 1) (match-end 1))))
***************
*** 1012,1025 ****
         (substring s (match-beginning 7) (match-end 7))
       "00"))
  (defmacro mew-time-rfc-tmzn ()
!   '(let ((tmzn (substring s (match-beginning 8) (match-end 8)))
! 	 int)
!      (cond
!       ((string-match "^[-+][0-9]+$" tmzn)
!        (/ (string-to-int tmzn) 100))
!       ((setq int (mew-time-tmzn-str-to-int tmzn))
!        int)
!       (t 0))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
--- 1012,1027 ----
         (substring s (match-beginning 7) (match-end 7))
       "00"))
  (defmacro mew-time-rfc-tmzn ()
!   '(if (match-beginning 9)
!        (let ((tmzn (substring s (match-beginning 9) (match-end 9)))
! 	     int)
! 	 (cond
! 	  ((string-match "^[-+][0-9]+$" tmzn)
! 	   (/ (string-to-int tmzn) 100))
! 	  ((setq int (mew-time-tmzn-str-to-int tmzn))
! 	   int)
! 	  (t 0)))
!      0))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;