From 211290fa77b52c481ff4b98aa4da20119dcee5cd Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 10 May 2000 12:37:25 +0000 Subject: [PATCH] Sync. --- lisp/ChangeLog | 1 + lisp/nnslashdot.el | 6 +++--- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 27c4ff8..299fc20 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -5,6 +5,7 @@ (nnslashdot-sane-retrieve-headers): Ditto. (nnslashdot-request-article): Ditto. (nnslashdot-threaded-retrieve-headers): Thread properly. + (nnslashdot-request-article): Be more lenient. 2000-05-09 13:23:50 Shenghuo ZHU diff --git a/lisp/nnslashdot.el b/lisp/nnslashdot.el index be4591c..c1e0ce3 100644 --- a/lisp/nnslashdot.el +++ b/lisp/nnslashdot.el @@ -118,7 +118,7 @@ (setq lines (count-lines (point) (search-forward - "A href=\"/article" nil t))) + "A href=\"\\(http://slashdot.org\\)?/article" nil t))) (push (cons 1 @@ -221,7 +221,7 @@ (forward-line 2) (setq lines (count-lines (point) (search-forward - "A href=\"/article"))) + "A href=\"\\(http://slashdot.org\\)?/article"))) (push (cons 1 @@ -337,7 +337,7 @@ (point) (progn (re-search-forward - "

.*A href=\"/article") + "

.*A href=\"\\(http://slashdot.org\\)?/article") (match-beginning 0))))) (search-forward (format "" (1- article))) (setq contents -- 1.7.10.4