From: yamaoka <yamaoka>
Date: Tue, 11 Jul 2000 22:12:50 +0000 (+0000)
Subject: Synch.
X-Git-Tag: t-gnus-6_14-quimby-before-AC-changed-~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c4fb310af1167bad65bedc604d7e4fc650f0e168;p=elisp%2Fgnus.git-

Synch.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e99aa6f..713c443 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2000-07-11 18:00:49  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* nnslashdot.el (nnslashdot-request-close): New function.
+
+2000-07-04 23:23:23  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* nnslashdot.el (nnslashdot-threaded-retrieve-headers): Get the
+	right line number for the article.
+
 2000-07-10 22:41:58  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
 	* nnslashdot.el (nnslashdot-threaded-retrieve-headers): Save point.
diff --git a/lisp/nnslashdot.el b/lisp/nnslashdot.el
index c07e1d8..e4f1c2f 100644
--- a/lisp/nnslashdot.el
+++ b/lisp/nnslashdot.el
@@ -114,11 +114,9 @@
 	  (search-forward " on ")
 	  (setq date (nnslashdot-date-to-date
 		      (buffer-substring (point) (1- (search-forward "<")))))
-	  (forward-line 2)
-	  (setq lines (count-lines
-		       (point)
-		       (re-search-forward
-			"A href=\"\\(http://slashdot.org\\)?/article" nil t)))
+	  (setq lines (/ (- (point)
+			    (progn (forward-line 1) (point)))
+			 60))
 	  (push
 	   (cons
 	    1
@@ -490,6 +488,10 @@
 				nnslashdot-groups))
   (nnslashdot-write-groups))
 
+(deffoo nnslashdot-request-close ()
+  (setq nnslashdot-headers nil
+	nnslashdot-groups nil))
+
 (nnoo-define-skeleton nnslashdot)
 
 ;;; Internal functions