Commit 001cec62 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

*** empty log message ***

parent a1ad21ca
;;; 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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment