From: yamaoka <yamaoka>
Date: Wed, 10 May 2000 12:37:25 +0000 (+0000)
Subject: Sync.
X-Git-Tag: t-gnus-6_14-quimby-before-AC-changed-~78
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=211290fa77b52c481ff4b98aa4da20119dcee5cd;p=elisp%2Fgnus.git-

Sync.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 27c4ff8..299fc20 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,7 @@
 	(nnslashdot-sane-retrieve-headers): Ditto.
 	(nnslashdot-request-article): Ditto.
 	(nnslashdot-threaded-retrieve-headers): Thread properly.
+	(nnslashdot-request-article): Be more lenient.
 
 2000-05-09 13:23:50  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
diff --git a/lisp/nnslashdot.el b/lisp/nnslashdot.el
index be4591c..c1e0ce3 100644
--- a/lisp/nnslashdot.el
+++ b/lisp/nnslashdot.el
@@ -118,7 +118,7 @@
 	  (setq lines (count-lines
 		       (point)
 		       (search-forward
-			"A href=\"/article" nil t)))
+			"A href=\"\\(http://slashdot.org\\)?/article" nil t)))
 	  (push
 	   (cons
 	    1
@@ -221,7 +221,7 @@
 	(forward-line 2)
 	(setq lines (count-lines (point)
 				 (search-forward
-				  "A href=\"/article")))
+				  "A href=\"\\(http://slashdot.org\\)?/article")))
 	(push
 	 (cons
 	  1
@@ -337,7 +337,7 @@
 			   (point)
 			   (progn
 			     (re-search-forward
-			      "<p>.*A href=\"/article")
+			      "<p>.*A href=\"\\(http://slashdot.org\\)?/article")
 			     (match-beginning 0)))))
 		(search-forward (format "<a name=\"%d\">" (1- article)))
 		(setq contents