From 1adba99521489b639e32c2855512eb60cba3466b Mon Sep 17 00:00:00 2001
From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Sat, 18 Aug 2001 20:23:31 +0000
Subject: [PATCH] 2001-08-18 13:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>

	* nnslashdot.el (nnslashdot-threaded-retrieve-headers):
	slashdot 2.2 (not fully fixed yet).
	(nnslashdot-request-article): Ditto.
---
 lisp/ChangeLog     |  6 ++++++
 lisp/nnslashdot.el | 15 ++++++++-------
 2 files changed, 14 insertions(+), 7 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2694590d2..3b11e927e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-08-18 13:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+	* nnslashdot.el (nnslashdot-threaded-retrieve-headers):
+	slashdot 2.2 (not fully fixed yet).
+	(nnslashdot-request-article): Ditto.
+
 2001-08-18  Simon Josefsson  <jas@extundo.com>
 
 	* gnus-util.el (gnus-remassoc, gnus-update-alist-soft): Moved from
diff --git a/lisp/nnslashdot.el b/lisp/nnslashdot.el
index 5bb4c6f99..6377e3776 100644
--- a/lisp/nnslashdot.el
+++ b/lisp/nnslashdot.el
@@ -110,8 +110,8 @@
 	  (nnweb-insert (format nnslashdot-article-url
 				(nnslashdot-sid-strip sid)) t)
 	  (goto-char (point-min))
-	  (search-forward "Posted by ")
-	  (when (looking-at "<a[^>]+>\\([^<]+\\)")
+	  (re-search-forward "Posted by[ \t\r\n]+")
+	  (when (looking-at "<a[^>]+>[ \t\r\n]*\\([^<\r\n]+\\)")
 	    (setq from (nnweb-decode-entities-string (match-string 1))))
 	  (search-forward " on ")
 	  (setq date (nnslashdot-date-to-date
@@ -217,8 +217,8 @@
 	(nnweb-insert (format nnslashdot-article-url
 			      (nnslashdot-sid-strip sid)) t)
 	(goto-char (point-min))
-	(search-forward "Posted by ")
-	(when (looking-at "<a[^>]+>\\([^<]+\\)")
+	(re-search-forward "Posted by[ \t\r\n]+")
+	(when (looking-at "<a[^>]+>[ \t\n\r]*\\([^<\r\n]+\\)")
 	  (setq from (nnweb-decode-entities-string (match-string 1))))
 	(search-forward " on ")
 	(setq date (nnslashdot-date-to-date
@@ -226,7 +226,7 @@
 	(forward-line 2)
 	(setq lines (count-lines (point)
 				 (re-search-forward
-				  "A href=\"\\(http://slashdot.org\\)?/article")))
+				  "&lt;&nbsp; <A href=\"\\(http://slashdot.org\\)?/article")))
 	(push
 	 (cons
 	  1
@@ -340,14 +340,15 @@
 	    (when (numberp article)
 	      (if (= article 1)
 		  (progn
-		    (re-search-forward "Posted by *<[^>]+>[^>]*<[^>]+> *on ")
+		    (re-search-forward 
+		     "Posted by[ \t\r\n]+<[^>]+>[ \t\r\n]*[^>]*[ \t\r\n]*<[^>]+> *[ \t\r\n]*on ")
 		    (search-forward "<BR>")
 		    (setq contents
 			  (buffer-substring
 			   (point)
 			   (progn
 			     (re-search-forward
-			      "<p>.*A href=\"\\(http://slashdot.org\\)?/article")
+			      "&lt;&nbsp;[ \t\r\n]*<A HREF=\"\\(\\(http:\\)?//slashdot\\.org\\)?/article")
 			     (match-beginning 0)))))
 		(search-forward (format "<a name=\"%d\">" (1- article)))
 		(setq contents
-- 
2.25.1