diff options
| -rw-r--r-- | lisp/mail/rmailsort.el | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/lisp/mail/rmailsort.el b/lisp/mail/rmailsort.el index 2ad4277a41d..182da0613ef 100644 --- a/lisp/mail/rmailsort.el +++ b/lisp/mail/rmailsort.el @@ -198,8 +198,27 @@ Arguments are MSG and FIELD." (match-beginning 1) (match-end 1)))) ;; Time (substring date (match-beginning 4) (match-end 4))) + + ;; Handles this format Fri May 10 21:51:55 1991 + (if (string-match + " \\([a-z][a-z][a-z]\\) +\\([0-9]+\\) \\([0-9:]+\\) \\([0-9]+\\)" date) + (concat + ;; Year + (rmail-date-full-year + (substring date (match-beginning 4) (match-end 4))) + ;; Month + (cdr + (assoc + (upcase (substring date (match-beginning 1) (match-end 1))) month)) + ;; Day + (format "%2d" (string-to-int + (substring date + (match-beginning 2) (match-end 2)))) + ;; Time + (substring date (match-beginning 3) (match-end 3))) + ;; Cannot understand DATE string. - date))) + date)))) (defun rmail-date-full-year (year-string) (if (<= (length year-string) 2) |