From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Wed, 21 Mar 2001 11:12:51 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=89bccc30d6b80321a3f55049af371862df87c2ab;p=gnus

*** empty log message ***
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a2f0b6647..4ac86f587 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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):
diff --git a/lisp/nnultimate.el b/lisp/nnultimate.el
index baaf17cc4..7b27acf2a 100644
--- a/lisp/nnultimate.el
+++ b/lisp/nnultimate.el
@@ -165,13 +165,21 @@
 	      (setq date (substring (car datel) (match-end 0))
 		    datel nil))
 	    (pop datel))
-	  (setq date (delete "" (split-string date "[- \n\t\r    ]")))
+	  (setq date (delete "" (split-string
+				 date "[-, \n\t\r    ]")))
 	  (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))