2001-06-21 Ralph Schleicher <rs@nunatak.allgaeu.org>

	* nnultimate.el (nnultimate-retrieve-headers): Date fix.

2001-06-21 10:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>

	* message.el (message-make-date): Add week day.
	Suggested by Jason R. Mastaler <jason@mastaler.com>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3464227..5b51cc0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2001-06-21  Ralph Schleicher  <rs@nunatak.allgaeu.org>
+
+       * nnultimate.el (nnultimate-retrieve-headers): Date fix.
+
+2001-06-21 10:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el (message-make-date): Add week day. 
+       Suggested by Jason R. Mastaler <jason@mastaler.com>.
+
 2001-06-19  Simon Josefsson  <jas@extundo.com>
 
        * message.el (message-yank-prefix): Doc fix.

diff --git a/lisp/message.el b/lisp/message.el
index e46beb9..e8117e2 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3208,7 +3208,7 @@ If NOW, use that time instead."
       (setq sign "-")
       (setq zone (- zone)))
     (concat
-     (format-time-string "%d" now)
+     (format-time-string "%a, %d" now)
      ;; The month name of the %b spec is locale-specific.  Pfff.
      (format " %s "
             (capitalize (car (rassoc (nth 4 (decode-time now))

diff --git a/lisp/nnultimate.el b/lisp/nnultimate.el
index 250ca31..7cef4eb 100644 (file)
--- a/lisp/nnultimate.el
+++ b/lisp/nnultimate.el
@@ -172,25 +172,26 @@
              (setq date (substring (car datel) (match-end 0))
                    datel nil))
            (pop datel))
-         (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"
-                         (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))
-                              (nth 0 date) (nth 2 date) (nth 3 date))))
+          (when date
+            (setq date (delete "" (split-string
+                                   date "[-, \n\t\r    ]")))
+            (if (or (member "AM" date)
+                    (member "PM" 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))
+                                 (nth 0 date) (nth 2 date) (nth 3 date)))))
          (push
           (cons
            article