# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 653020839 0
# Node ID 2b8bcdcca3a171e0ec50d7f85ca417813c23cd8c
# Parent  d805392d61e7433f999d5575d61550bc156fb210
*** empty log message ***

diff -r d805392d61e7 -r 2b8bcdcca3a1 lisp/mail/rmailsort.el
--- a/lisp/mail/rmailsort.el	Tue Sep 11 01:51:24 1990 +0000
+++ b/lisp/mail/rmailsort.el	Tue Sep 11 02:40:39 1990 +0000
@@ -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 @@
     ;; (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