* nnslashdot.el (nnslashdot-retrieve-headers-1): Get references

right, and get all the comments.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c3108c8..75e9da1 100644 (file)
--- 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 0b9e28a..e734720 100644 (file)
--- 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 b66b754..8290b2c 100644 (file)
--- 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 38fbdde..2446078 100644 (file)
--- 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)