From 001cec62101f1ba490293380d09ad38548c0e4ed Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 11 Sep 1990 02:40:39 +0000 Subject: [PATCH] *** empty log message *** --- lisp/mail/rmailsort.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/mail/rmailsort.el b/lisp/mail/rmailsort.el index 867cc363506..af7487eee59 100644 --- a/lisp/mail/rmailsort.el +++ b/lisp/mail/rmailsort.el @@ -1,5 +1,6 @@ ;;; Rmail: sort messages. ;; Copyright (C) 1990 Masanobu UMEDA +;; umerin@tc.Nagasaki.GO.JP? ;; This file is part of GNU Emacs. @@ -134,10 +135,10 @@ Arguments are MSG and FIELD." ;; (1) 14 Apr 89 03:20:12 GMT ;; (2) Fri, 17 Mar 89 4:01:33 GMT (if (string-match - "\\([0-9]+\\) \\([^ ,]+\\) \\([0-9]+\\) \\([0-9:]+\\)" date) + "\\([0-9]+\\) +\\([^ ,]+\\) +\\([0-9]+\\) +\\([0-9:]+\\)" date) (concat - ;; Year - (substring date (match-beginning 3) (match-end 3)) + ;; Year (discarding century) + (substring (substring date (match-beginning 3) (match-end 3)) -2) ;; Month (cdr (assoc -- 2.39.5