Mercurial > emacs

changeset 92:2b8bcdcca3a1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Tue, 11 Sep 1990 02:40:39 +0000
parents d805392d61e7
children 7af62c5e857d
files lisp/mail/rmailsort.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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