diff options
| author | Richard M. Stallman <rms@gnu.org> | 1990-09-11 02:40:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1990-09-11 02:40:39 +0000 |
| commit | 001cec62101f1ba490293380d09ad38548c0e4ed (patch) | |
| tree | e2932a85732c1160bbfed17b9ab58d8529069d61 /lisp/mail | |
| parent | a1ad21ca531e05ef3968e4c9cb3d5927620af30c (diff) | |
| download | emacs-001cec62101f1ba490293380d09ad38548c0e4ed.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rmailsort.el | 7 |
1 files 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 |