From e5e546ca39d7a1f71e97cbae53238de314e23b8b Mon Sep 17 00:00:00 2001
From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Mon, 13 Dec 1999 18:19:25 +0000
Subject: [PATCH] Archived group.

---
 lisp/ChangeLog     |  7 +++++++
 lisp/nnslashdot.el | 22 +++++++++++-----------
 2 files changed, 18 insertions(+), 11 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 765597340..6282bcb47 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+1999-12-13 13:14:42  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+	* nnslashdot.el (nnslashdot-threaded-retrieve-headers): Support
+	archived group.
+	(nnslashdot-sane-retrieve-headers): Ditto.
+	(nnslashdot-request-article): Ditto.
+
 1999-12-13 11:41:32  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
 	* nnweb.el (nnweb-insert): Narrow to point.
diff --git a/lisp/nnslashdot.el b/lisp/nnslashdot.el
index b6e79b91e..1d1491e20 100644
--- a/lisp/nnslashdot.el
+++ b/lisp/nnslashdot.el
@@ -116,7 +116,7 @@
 	  (setq lines (count-lines
 		       (point)
 		       (search-forward
-			"A href=http://slashdot.org/article.pl")))
+			"A href=http://slashdot.org/article" nil t)))
 	  (push
 	   (cons
 	    1
@@ -140,11 +140,11 @@
 	    (setq startats (sort startats '<)))
 	  (goto-char point)
 	  (while (re-search-forward
-		  "<a name=\"\\([0-9]+\\)\"><b>\\([^<]+\\)</b>.*score:\\([^)]+\\))"
+		  "<a name=\"\\([0-9]+\\)\"><\\(b\\|H4\\)>\\([^<]+\\)</\\(b\\|H4\\)>.*score:\\([^)]+\\))"
 		  nil t)
 	    (setq article (string-to-number (match-string 1))
-		  subject (match-string 2)
-		  score (match-string 3))
+		  subject (match-string 3)
+		  score (match-string 5))
 	    (when (string-match "^Re: *" subject)
 	      (setq subject (concat "Re: " (substring subject (match-end 0)))))
             (setq subject (nnweb-decode-entities-string subject))
@@ -215,7 +215,7 @@
 	(forward-line 2)
 	(setq lines (count-lines (point)
 				 (search-forward
-				  "A href=http://slashdot.org/article.pl")))
+				  "A href=http://slashdot.org/article")))
 	(push
 	 (cons
 	  1
@@ -234,11 +234,11 @@
 	 t)
 	(goto-char point)
 	(while (re-search-forward
-		"<a name=\"\\([0-9]+\\)\"><b>\\([^<]+\\)</b>.*score:\\([^)]+\\))"
+		  "<a name=\"\\([0-9]+\\)\"><\\(b\\|H4\\)>\\([^<]+\\)</\\(b\\|H4\\)>.*score:\\([^)]+\\))"
 		nil t)
 	  (setq article (string-to-number (match-string 1))
-		subject (match-string 2)
-		score (match-string 3))
+		subject (match-string 3)
+		score (match-string 5))
 	  (when (string-match "^Re: *" subject)
 	    (setq subject (concat "Re: " (substring subject (match-end 0)))))
           (setq subject (nnweb-decode-entities-string subject))
@@ -322,14 +322,14 @@
 	    (when (numberp article)
 	      (if (= article 1)
 		  (progn
-		    (re-search-forward "Posted by .* on ")
-		    (forward-line 1)
+		    (re-search-forward "Posted by <[^>]+>[^>]*<[^>]+> on ")
+		    (search-forward "<BR>")
 		    (setq contents
 			  (buffer-substring
 			   (point)
 			   (progn
 			     (re-search-forward
-			      "<p>.*A href=http://slashdot.org/article.pl")
+			      "<p>.*A href=http://slashdot\\.org/article")
 			     (match-beginning 0)))))
 		(search-forward (format "<a name=\"%d\">" (1- article)))
 		(setq contents
-- 
2.25.1