*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ce6091c..e168152 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 1999-11-09 00:13:25  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * nnslashdot.el (nnslashdot-retrieve-headers): Skip the article
+       unless wanted.
+
        * gnus-start.el (gnus-active-to-gnus-format): Catch errors.
        (gnus-read-active-file-1): Separated into own function.
        (gnus-read-active-file): Catch quits.

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 50f5349..1f0342d 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1687,12 +1687,12 @@ newsgroup."
        ;; than once in this list.
        (unless (member method methods)
          (condition-case ()
-             (gnus-read-active-file-1 method)
+             (gnus-read-active-file-1 method force)
            ;; We catch C-g so that we can continue past servers
            ;; that do not respond.
            (quit nil)))))))
 
-(defun gnus-read-active-file-1 (method)
+(defun gnus-read-active-file-1 (method force)
   (let (where mesg list-type)
     (setq where (nth 1 method)
          mesg (format "Reading active file%s via %s..."

diff --git a/lisp/nnslashdot.el b/lisp/nnslashdot.el
index afeadec..3db2444 100644 (file)
--- a/lisp/nnslashdot.el
+++ b/lisp/nnslashdot.el
@@ -91,7 +91,7 @@
       (set-buffer nnslashdot-buffer)
       (let ((case-fold-search t))
        (erase-buffer)
-       (when (= start 1)
+       (when (= (car articles) 1)
          (url-insert-file-contents (format nnslashdot-article-url sid))
          (setq buffer-file-name nil)
          (goto-char (point-min))
@@ -308,8 +308,10 @@
              (setq contents
                    (buffer-substring
                     (point)
-                    (re-search-forward
-                     "^<p>.*A href=http://slashdot.org/article.pl"))))
+                    (progn
+                      (re-search-forward
+                       "^<p>.*A href=http://slashdot.org/article.pl")
+                      (match-beginning 0)))))
          (search-forward (format "<a name=\"%d\">" (1- article)))
          (setq contents
                (buffer-substring