Mercurial > emacs

changeset 150:00792257e669

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Fri, 28 Dec 1990 05:20:22 +0000
parents 3678204447b6
children cca4fc067605
files lisp/mail/rmailsort.el
diffstat 1 files changed, 8 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailsort.el	Thu Dec 27 20:56:53 1990 +0000
+++ b/lisp/mail/rmailsort.el	Fri Dec 28 05:20:22 1990 +0000
@@ -145,7 +145,7 @@
 	(setq sort-lists (cdr sort-lists))
 	(setq msgnum (1+ msgnum))))
     (rmail-set-message-counters)
-    (rmail-show-message)))
+    (rmail-show-message 1)))
 
 (defun rmail-fetch-field (msg field)
   "Return the value of the header field FIELD of MSG.
@@ -167,7 +167,13 @@
   (let ((month '(("JAN" . " 1")("FEB" . " 2")("MAR" . " 3")
 		 ("APR" . " 4")("MAY" . " 5")("JUN" . " 6")
 		 ("JUL" . " 7")("AUG" . " 8")("SEP" . " 9")
-		 ("OCT" . "10")("NOV" . "11")("DEC" . "12")))
+		 ("OCT" . "10")("NOV" . "11")("DEC" . "12")
+		 ("JANUARY" . " 1") ("FEBRUARY" . " 2")
+		 ("MARCH" . " 3")   ("APRIL" . " 4")
+		 ("MAY" . " 5")     ("JUNE" . " 6")
+		 ("JULY" . " 7")    ("AUGUST" . " 8")
+		 ("SEPTEMBER" " 9") ("OCTOBER" . "10")
+		 ("NOVEMBER" "11")  ("DECEMBER" . "12")))
 	(date (or date "")))
     ;; Can understand the following styles:
     ;; (1) 14 Apr 89 03:20:12 GMT