From c4fb310af1167bad65bedc604d7e4fc650f0e168 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 11 Jul 2000 22:12:50 +0000 Subject: [PATCH] Synch. --- lisp/ChangeLog | 9 +++++++++ lisp/nnslashdot.el | 12 +++++++----- 2 files changed, 16 insertions(+), 5 deletions(-) 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 + + * 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 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 -- 1.7.10.4