From 900ad3f5d3501d2f7ba0bfb6307dc63b876a0bd5 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 10 Jul 2000 15:59:31 +0000 Subject: [PATCH] * nnslashdot.el (nnslashdot-request-close): New function. --- lisp/ChangeLog | 9 +++++++++ lisp/nnslashdot.el | 12 +++++++----- 2 files changed, 16 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e99aa6f82..713c443d8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2000-07-11 18:00:49 Lars Magne Ingebrigtsen + + * nnslashdot.el (nnslashdot-request-close): New function. + +2000-07-04 23:23:23 Lars Magne Ingebrigtsen + + * nnslashdot.el (nnslashdot-threaded-retrieve-headers): Get the + right line number for the article. + 2000-07-10 22:41:58 ShengHuo ZHU * nnslashdot.el (nnslashdot-threaded-retrieve-headers): Save point. diff --git a/lisp/nnslashdot.el b/lisp/nnslashdot.el index cbae5ecbc..bebb06c10 100644 --- a/lisp/nnslashdot.el +++ b/lisp/nnslashdot.el @@ -113,11 +113,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 @@ -489,6 +487,10 @@ nnslashdot-groups)) (nnslashdot-write-groups)) +(deffoo nnslashdot-request-close () + (setq nnslashdot-headers nil + nnslashdot-groups nil)) + (nnoo-define-skeleton nnslashdot) ;;; Internal functions -- 2.25.1