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

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     06/08/16 14:04:41

Index: nnweb.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/nnweb.el,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- nnweb.el    24 Jul 2006 10:53:10 -0000      1.25
+++ nnweb.el    16 Aug 2006 14:04:41 -0000      1.26
@@ -366,14 +366,15 @@
       (mm-url-decode-entities)
       (search-backward " - ")
       (when (looking-at
-            " - \\([a-zA-Z]+\\) \\([0-9]+\\)\\(?: 
\\([0-9]\\{4\\}\\)\\)?[^\n]+by ?\n?\\([^<\n]+\\)\n")
-       (setq From (match-string 4)
-             Date (format "%s %s 00:00:00 %s"
+            "\\W+\\(\\w+\\) \\([0-9]+\\)\\(?: \\([0-9]\\{4\\}\\)\\)?")
+       (setq Date (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))))
+       (goto-char (match-end 0)))
+      (when (looking-at "[^b]+by\\W+\\([^<\n]+\\)")
+       (setq From (match-string 1)))
       (widen)
       (forward-line 1)
       (incf i)