From 7f41fbef5622bfb6058302b5473dad455cab0fbe Mon Sep 17 00:00:00 2001
From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Sun, 2 Sep 2001 21:19:08 +0000
Subject: [PATCH] * nnslashdot.el (nnslashdot-retrieve-headers-1): Get
 references right, and get all the comments.

---
 lisp/ChangeLog     |  5 +++++
 lisp/dgnushack.el  |  2 +-
 lisp/nnslashdot.el | 13 +++++++------
 lisp/nnweb.el      |  2 +-
 4 files changed, 14 insertions(+), 8 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c3108c841..75e9da13f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-02 23:12:48  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* nnslashdot.el (nnslashdot-retrieve-headers-1): Get references
+	right, and get all the comments.
+
 2001-09-02  Simon Josefsson  <jas@extundo.com>
 	Suggested by Dan Christensen <jdc+news@uwo.ca>
 
diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 0b9e28aa5..e73472047 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -46,7 +46,7 @@
 (push (or (my-getenv "W3DIR") (expand-file-name "../../w3/lisp/" srcdir))
       load-path)
 
-(push "/usr/share/emacs/site-lisp" load-path)
+;(push "/usr/share/emacs/site-lisp" load-path)
 
 (unless (featurep 'xemacs)
   (define-compiler-macro last (&whole form x &optional n)
diff --git a/lisp/nnslashdot.el b/lisp/nnslashdot.el
index b66b754bc..8290b2c73 100644
--- a/lisp/nnslashdot.el
+++ b/lisp/nnslashdot.el
@@ -171,14 +171,15 @@
 	    (setq date
 		  (nnslashdot-date-to-date
 		   (buffer-substring (point) (progn (skip-chars-forward "^()<>\n\r") (point)))))
-	    (setq lines (/ (abs (- (search-forward "<td ")
+	    (setq lines (/ (abs (- (search-forward "<td")
 				   (search-forward "</td>")))
 			   70))
-	    (forward-line 4)
-	    (setq parent
-		  (if (looking-at ".*cid=\\([0-9]+\\)")
-		      (match-string 1)
-		    nil))
+	    (if (not
+		 (re-search-forward ".*cid=\\([0-9]+\\)\">Parent</A>" nil t))
+		(setq parent nil)
+	      (setq parent (match-string 1))
+	      (when (string= parent "0")
+		(setq parent nil)))
 	    (push
 	     (cons
 	      article
diff --git a/lisp/nnweb.el b/lisp/nnweb.el
index 38fbdde10..24460787f 100644
--- a/lisp/nnweb.el
+++ b/lisp/nnweb.el
@@ -911,7 +911,7 @@ and `altavista'.")
   "Insert the contents from an URL in the current buffer.
 If FOLLOW-REFRESH is non-nil, redirect refresh url in META."
   (let ((name buffer-file-name))
-    (if follow-refresh
+    (if follow-refresh 
 	(save-restriction
 	  (narrow-to-region (point) (point))
 	  (url-insert-file-contents url)
-- 
2.25.1