+2001-03-15 09:47:23 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * nnultimate.el (nnultimate-retrieve-headers): Understand
+ long-form month names.
+
2001-03-18 23:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
* gnus-sum.el (gnus-summary-show-all-headers):
(setq date (substring (car datel) (match-end 0))
datel nil))
(pop datel))
- (setq date (delete "" (split-string date "[- \n\t\r \81 \81 \81 ]")))
+ (setq date (delete "" (split-string
+ date "[-, \n\t\r \81 \81 \81 ]")))
(if (or (member "AM" date)
(member "PM" date))
- (setq date (format "%s %s %s %s"
- (car (rassq (string-to-number (nth 0 date))
- parse-time-months))
- (nth 1 date) (nth 2 date) (nth 3 date)))
+ (setq date (format
+ "%s %s %s %s"
+ (nth 1 date)
+ (if (and (>= (length (nth 0 date)) 3)
+ (assoc (downcase
+ (substring (nth 0 date) 0 3))
+ parse-time-months))
+ (substring (nth 0 date) 0 3)
+ (car (rassq (string-to-number (nth 0 date))
+ parse-time-months)))
+ (nth 2 date) (nth 3 date)))
(setq date (format "%s %s %s %s"
(car (rassq (string-to-number (nth 1 date))
parse-time-months))