Merge from gnus--rel--5.10

Patches applied:

 * gnus--rel--5.10  (patch 200-201)

   - Merge from emacs--devo--0
   - Update from CVS: lisp/nnweb.el (nnweb-google-parse-1): Update parser.

2007-02-01  Andreas Seltenreich  <uwi7@rz.uni-karlsruhe.de>

   * lisp/gnus/nnweb.el (nnweb-google-parse-1): Update parser.

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-629

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index ddc604c6b5d73baac9f20108bded2b1150db9195..5d4457e325ced58213c668565f9d7ffe0d9c5d98 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2007-02-01  Andreas Seltenreich  <uwi7@rz.uni-karlsruhe.de>
+
+       * nnweb.el (nnweb-google-parse-1): Update parser.
+
 2007-01-29  Juanma Barranquero  <lekktu@gmail.com>
 
        * gnus-art.el (gnus-button-prefer-mid-or-mail): Fix typo in docstring.

diff --git a/lisp/gnus/nnweb.el b/lisp/gnus/nnweb.el
index 088aeee3bd5d3d836eda32e6a0b450d783c7a878..0f8df57d5916727aa9f4f57042e9d1bfd21fcd5a 100644 (file)
--- a/lisp/gnus/nnweb.el
+++ b/lisp/gnus/nnweb.el
@@ -360,23 +360,22 @@ Valid types include `google', `dejanews', and `gmane'.")
       (goto-char (point-max))
       (widen)
       (narrow-to-region (point)
-                       (search-forward "</td" nil t))
+                       (search-forward "</table" nil t))
 
       (mm-url-remove-markup)
       (mm-url-decode-entities)
-      (search-backward " - ")
-      (when (looking-at
-            "\\W+\\(\\w+\\) \\([0-9]+\\)\\(?: \\([0-9]\\{4\\}\\)\\)?")
+      (goto-char (point-max))
+      (when
+         (re-search-backward
+          "^\\(\\w+\\) \\([0-9]+\\)\\(?: \\([0-9]\\{4\\}\\)\\)? by \\(.*\\)"
+          nil t)
        (setq Date (format "%s %s 00:00:00 %s"
                           (match-string 1)
                           (match-string 2)
                           (or (match-string 3)
                               (substring (current-time-string) -4))))
-       (goto-char (match-end 0)))
-      (when (looking-at "[^b]+by\\W+\\([^<\n]+\\)")
-       (setq From (match-string 1)))
+       (setq From (match-string 4)))
       (widen)
-      (forward-line 1)
       (incf i)
       (unless (nnweb-get-hashtb url)
        (push