From 9860de0f38b8833b21a7f0505cd9e03b11d1e4ed Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 15 Jun 2001 05:14:22 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 9 +++++++++ lisp/nnweb.el | 10 ++++++---- 2 files changed, 15 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2bfa906..9bb393d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2001-06-14 16:00:00 ShengHuo ZHU + + * nnweb.el (nnweb-google-parse-1): Fix Google content regexp. + (nnweb-google-wash-article): Ditto. + +2001-06-14 Ferenc Wagner + + * nnweb.el (nnweb-google-parse-1): Fix Google url regexp. + 2001-06-13 Katsumi Yamaoka * gnus.el (gnus-define-group-parameter): Don't quote the defcustom diff --git a/lisp/nnweb.el b/lisp/nnweb.el index 7aaa5f9..9a41a66 100644 --- a/lisp/nnweb.el +++ b/lisp/nnweb.el @@ -706,9 +706,11 @@ and `altavista'.") (goto-char (point-min)) (re-search-forward "^
" nil t)
     (narrow-to-region (point-min) (point))
-    (search-backward "" nil t 2)
+    (search-backward "" nil t)
@@ -739,7 +741,7 @@ and `altavista'.")
     ;; Go through all the article hits on this page.
     (goto-char (point-min))
     (while (re-search-forward
-	    "a href=/groups\\(\\?[^ \">]*seld=[0-9]+[^ \">]*\\)" nil t)
+            "a href=/groups\\(\\?[^ \">]*selm=[^ \">]*\\)" nil t)
       (setq url
 	    (concat (nnweb-definition 'address)
 		    (match-string 1)))
@@ -764,7 +766,7 @@ and `altavista'.")
 	(widen)
 	(skip-chars-forward "- \t"))
       (when (looking-at 
-	     "\\([0-9]+/[A-Za-z]+/[0-9]+\\)[ \t]*by[ \t]*\\([^<]*\\) -