(rmail-sortable-date-string): Handle date in format

produced by current-time-string.

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)