[Emacs-diffs] Changes to emacs/lisp/gnus/nnweb.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     07/02/19 00:49:14

Index: nnweb.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/nnweb.el,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -b -r1.29 -r1.30
--- nnweb.el    5 Feb 2007 05:37:56 -0000       1.29
+++ nnweb.el    19 Feb 2007 00:49:13 -0000      1.30
@@ -367,13 +367,15 @@
       (goto-char (point-max))
       (when
          (re-search-backward
-          "^\\(\\w+\\) \\([0-9]+\\)\\(?: \\([0-9]\\{4\\}\\)\\)? by \\(.*\\)"
+          "^\\(?:\\(\\w+\\) \\([0-9]+\\)\\|\\S-+\\)\\(?: 
\\([0-9]\\{4\\}\\)\\)? by \\(.*\\)"
           nil t)
-       (setq Date (format "%s %s 00:00:00 %s"
+       (setq Date (if (match-string 1)
+                      (format "%s %s 00:00:00 %s"
                           (match-string 1)
                           (match-string 2)
                           (or (match-string 3)
-                              (substring (current-time-string) -4))))
+                                  (substring (current-time-string) -4)))
+                    (current-time-string)))
        (setq From (match-string 4)))
       (widen)
       (incf i)