Problem with nnslashdot

Problem with nnslashdot

[Niels Olof Bouvin]

I was wondering if anyone else was having problems with nnslashdot. 
Lately when I try to access a nnslashdot group, Gnus retrieves the html
file, and hangs at 'Mark set':

Retrieving newsgroup: nnslashdot:ATI Announces Next Generation 3D Technology (00/03/08/084203)...
Fetching headers for nnslashdot:ATI Announces Next Generation 3D Technology (00/03/08/084203)...
Contacting slashdot.org:80
Reading [text/html]... 9k
Retrieval complete.
Mark set
Reading [text/html]... 137k
Retrieval complete.
Mark set

At this point Emacs uses all the clock cycles it can get at.

I'm using the latest cvs of 5.8.4, W3 4.0pre.38, and Emacs 20.5.1 on
Solaris.

Cheers
        Niels Olof

-- 
Niels Olof Bouvin    http://www.bouvin.net/    Voice: +1 (303) 449 3903 \ /
In omnibus requiem quaesivi, et nusquam inveni nisi in angulo cum libro (")
M.Sc. Ph.D. Student visiting Dept. of Computer Science, Colorado University

Re: Problem with nnslashdot

[Jack Vinson]

>>>>> "NOB" == Niels Olof Bouvin <n.o.bouvin@daimi.aau.dk> writes:

NOB> I was wondering if anyone else was having problems with nnslashdot. 
NOB> Lately when I try to access a nnslashdot group, Gnus retrieves the html
NOB> file, and hangs at 'Mark set':

I thought it was just me.  When I started Gnus today, it yelled at me with

Reading active file via nnslashdot...
Symbol's function definition is void: url-cookie-parse-file

And then Gnus refused to load.  I had to do C-u 2 M-x gnus for it to ignore
the Slashdot groups.

I have no idea why this function is no longer defined.  I haven't changed
anything in the last week.  This is on Gnus 5.8.3.

This points up another problem with Gnus.  If one backend fails, this
shouldn't kill the whole loading process.  It should just fail that backend
and move along with any other backends that might exist.

Jack

Re: Problem with nnslashdot

[Jack Vinson]

>>>>> "JV" == Jack Vinson <JackVinson@yahoo.com> writes:

>>>>> "NOB" == Niels Olof Bouvin <n.o.bouvin@daimi.aau.dk> writes:
NOB> I was wondering if anyone else was having problems with nnslashdot. 
NOB> Lately when I try to access a nnslashdot group, Gnus retrieves the html
NOB> file, and hangs at 'Mark set':

JV> I thought it was just me.  When I started Gnus today, it yelled at me with

JV> Reading active file via nnslashdot...
JV> Symbol's function definition is void: url-cookie-parse-file

Looking into this further, it was a problem with my build of w3.  New
build, no problem.


-- 
JackVinson@Yahoo.com
Bart: I will not spank others.

Re: Problem with nnslashdot

[Bjorn Halvor Solberg]

Niels Olof Bouvin writes:

> I was wondering if anyone else was having problems with nnslashdot. 
> Lately when I try to access a nnslashdot group, Gnus retrieves the html
> file, and hangs at 'Mark set':
[...]

I have seen this as well.  It worked fine for a long time, and then
suddenly the same thing you describe happened.  Taking nnslashdot out
from gnus-secondary-select-methods for a week and then reinserting it
made it work again for a couple of days until the same thing happened
again.  (Sorry, I haven't done much to debug the problem.)

My setup is RedHat Linux 6.1 on a Pentium III, GNU Emacs 20.4.1 and Gnus
5.8.3.  My Emacs is killed and restarted every day.

If you or anyone else have a solution to this or how to proceed to find
the cause, I'd like to hear about it!

Bjorn.

Re: Problem with nnslashdot

[Niels Olof Bouvin]

Jack Vinson <JackVinson@yahoo.com> writes:

[...]

> Looking into this further, it was a problem with my build of w3.  New
> build, no problem.

I tried to update my w3 to pre.46 (the newest I could find) - no luck, still
the same behaviour.

Cheers
        Niels Olof

-- 
Niels Olof Bouvin    http://www.bouvin.net/    Voice: +1 (303) 449 3903 \ /
In omnibus requiem quaesivi, et nusquam inveni nisi in angulo cum libro (")
M.Sc. Ph.D. Student visiting Dept. of Computer Science, Colorado University

Re: Problem with nnslashdot

[Bjorn Halvor Solberg]

Niels Olof Bouvin writes:

> Jack Vinson <JackVinson@yahoo.com> writes:
> [...]

>> Looking into this further, it was a problem with my build of w3.  New
>> build, no problem.

> I tried to update my w3 to pre.46 (the newest I could find) - no luck, still
> the same behaviour.

I wonder, does the lack of response to this problem stem from that noone
else are having trouble using nnslashdot, or that everyone else are too
busy doing other things to read Slashdot in Gnus? :)

Bjorn.

Re: problem with nnslashdot

[Lars Magne Ingebrigtsen]

Eric Marsden <emarsden@mail.dotcom.fr> writes:

> To protect against changes in the slashdot HTML, I think it would be
> useful to use `condition-case' to trap `search-failed' errors.

On the other hand, it does the trick, so I've applied it.

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen

Re: problem with nnslashdot

[Lars Magne Ingebrigtsen]

Eric Marsden <emarsden@mail.dotcom.fr> writes:

> To protect against changes in the slashdot HTML, I think it would be
> useful to use `condition-case' to trap `search-failed' errors.

Hm.  Well, there are more things than the searches that will go wrong
when then HTML changes, so I don't think this is the right solution.
I've made the searched be non-erroring now, though.

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen

Re: problem with nnslashdot

[Eric Marsden]

To protect against changes in the slashdot HTML, I think it would be
useful to use `condition-case' to trap `search-failed' errors.


--- nnslashdot.el.orig	Sat Nov 20 17:05:39 1999
+++ nnslashdot.el	Wed Nov 24 17:26:59 1999
@@ -90,10 +90,12 @@
 
 (deffoo nnslashdot-retrieve-headers (articles &optional group server fetch-old)
   (nnslashdot-possibly-change-server group server)
-  (unless gnus-nov-is-evil
-    (if nnslashdot-threaded
-	(nnslashdot-threaded-retrieve-headers articles group)
-      (nnslashdot-sane-retrieve-headers articles group))))
+  (condition-case why
+      (unless gnus-nov-is-evil
+        (if nnslashdot-threaded
+            (nnslashdot-threaded-retrieve-headers articles group)
+          (nnslashdot-sane-retrieve-headers articles group)))
+    (search-failed (nnslashdot-lose why))))
   
 (deffoo nnslashdot-threaded-retrieve-headers (articles group)
   (let ((last (car (last articles)))
@@ -310,47 +312,49 @@
 (deffoo nnslashdot-request-article (article &optional group server buffer)
   (nnslashdot-possibly-change-server group server)
   (let (contents)
-    (save-excursion
-      (set-buffer nnslashdot-buffer)
-      (let ((case-fold-search t))
-	(goto-char (point-min))
-	(when (and (stringp article)
-		   (string-match "%\\([0-9]+\\)@" article))
-	  (setq article (string-to-number (match-string 1 article))))
-	(when (numberp article)
-	  (if (= article 1)
-	      (progn
-		(re-search-forward "Posted by .* on ")
-		(forward-line 1)
-		(setq contents
-		      (buffer-substring
-		       (point)
-		       (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
-		   (re-search-forward "<td[^>]+>")
-		   (search-forward "</td>")))))))
+    (condition-case why
+        (save-excursion
+          (set-buffer nnslashdot-buffer)
+          (let ((case-fold-search t))
+            (goto-char (point-min))
+            (when (and (stringp article)
+                       (string-match "%\\([0-9]+\\)@" article))
+              (setq article (string-to-number (match-string 1 article))))
+            (when (numberp article)
+              (if (= article 1)
+                  (progn
+                    (re-search-forward "Posted by .* on ")
+                    (forward-line 1)
+                    (setq contents
+                          (buffer-substring
+                           (point)
+                           (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
+                       (re-search-forward "<td[^>]+>")
+                       (search-forward "</td>")))))))
+      (search-failed (nnslashdot-lose why)))
     (when contents
       (save-excursion
-	(set-buffer (or buffer nntp-server-buffer))
-	(erase-buffer)
-	(insert contents)
-	(goto-char (point-min))
-	(insert "Content-Type: text/html\nMIME-Version: 1.0\n")
-	(insert "Newsgroups: " (caddr (assoc group nnslashdot-groups))
-		"\n")
-	(let ((header (cdr (assq article nnslashdot-headers))))
-	  (nnheader-insert-header header))
-	(nnheader-report 'nnslashdot "Fetched article %s" article)
-	(cons group article)))))
+        (set-buffer (or buffer nntp-server-buffer))
+        (erase-buffer)
+        (insert contents)
+        (goto-char (point-min))
+        (insert "Content-Type: text/html\nMIME-Version: 1.0\n")
+        (insert "Newsgroups: " (caddr (assoc group nnslashdot-groups))
+                "\n")
+        (let ((header (cdr (assq article nnslashdot-headers))))
+          (nnheader-insert-header header))
+        (nnheader-report 'nnslashdot "Fetched article %s" article)
+        (cons group article)))))
 
 (deffoo nnslashdot-close-server (&optional server)
   (when (and (nnslashdot-server-opened server)
-	     (gnus-buffer-live-p nnslashdot-buffer))
+             (gnus-buffer-live-p nnslashdot-buffer))
     (save-excursion
       (set-buffer nnslashdot-buffer)
       (kill-buffer nnslashdot-buffer)))
@@ -360,49 +364,51 @@
   (nnslashdot-possibly-change-server nil server)
   (let ((number 0)
 	sid elem description articles gname)
-    ;; First we do the Ultramode to get info on all the latest groups.
-    (with-temp-buffer
-      (nnweb-insert "http://slashdot.org/slashdot.xml")
-      (goto-char (point-min))
-      (while (search-forward "<story>" nil t)
-	(narrow-to-region (point) (search-forward "</story>"))
-	(goto-char (point-min))
-	(re-search-forward "<title>\\([^<]+\\)</title>")
-	(setq description (match-string 1))
-	(re-search-forward "<url>\\([^<]+\\)</url>")
-	(setq sid (match-string 1))
-	(string-match "/\\([0-9/]+\\).shtml" sid)
-	(setq sid (match-string 1 sid))
-	(re-search-forward "<comments>\\([^<]+\\)</comments>")
-	(setq articles (string-to-number (match-string 1)))
-	(setq gname (concat description " (" sid ")"))
-	(if (setq elem (assoc gname nnslashdot-groups))
-	    (setcar (cdr elem) articles)
-	  (push (list gname articles sid) nnslashdot-groups))
-	(goto-char (point-max))
-	(widen)))
-    ;; Then do the older groups.
-    (while (> (- nnslashdot-group-number number) 0)
-      (with-temp-buffer
-	(let ((case-fold-search t))
-	  (nnweb-insert (format nnslashdot-active-url number))
-	  (goto-char (point-min))
-	  (while (re-search-forward
-		  "article.pl\\?sid=\\([^&]+\\).*<b>\\([^<]+\\)</b>" nil t)
-	    (setq sid (match-string 1)
-		  description (match-string 2))
-	    (forward-line 1)
-	    (when (re-search-forward "<b>\\([0-9]+\\)</b>" nil t)
-	      (setq articles (string-to-number (match-string 1))))
-	    (setq gname (concat description " (" sid ")"))
-	    (if (setq elem (assoc gname nnslashdot-groups))
-		(setcar (cdr elem) articles)
-	      (push (list gname articles sid) nnslashdot-groups)))))
-      (incf number 30))
+    (condition-case why
+        ;; First we do the Ultramode to get info on all the latest groups.
+        (with-temp-buffer
+          (nnweb-insert "http://slashdot.org/slashdot.xml")
+          (goto-char (point-min))
+          (while (search-forward "<story>" nil t)
+            (narrow-to-region (point) (search-forward "</story>"))
+            (goto-char (point-min))
+            (re-search-forward "<title>\\([^<]+\\)</title>")
+            (setq description (match-string 1))
+            (re-search-forward "<url>\\([^<]+\\)</url>")
+            (setq sid (match-string 1))
+            (string-match "/\\([0-9/]+\\).shtml" sid)
+            (setq sid (match-string 1 sid))
+            (re-search-forward "<comments>\\([^<]+\\)</comments>")
+            (setq articles (string-to-number (match-string 1)))
+            (setq gname (concat description " (" sid ")"))
+            (if (setq elem (assoc gname nnslashdot-groups))
+                (setcar (cdr elem) articles)
+              (push (list gname articles sid) nnslashdot-groups))
+            (goto-char (point-max))
+            (widen)))
+      ;; Then do the older groups.
+      (while (> (- nnslashdot-group-number number) 0)
+        (with-temp-buffer
+          (let ((case-fold-search t))
+            (nnweb-insert (format nnslashdot-active-url number))
+            (goto-char (point-min))
+            (while (re-search-forward
+                    "article.pl\\?sid=\\([^&]+\\).*<b>\\([^<]+\\)</b>" nil t)
+              (setq sid (match-string 1)
+                    description (match-string 2))
+              (forward-line 1)
+              (when (re-search-forward "<b>\\([0-9]+\\)</b>" nil t)
+                (setq articles (string-to-number (match-string 1))))
+              (setq gname (concat description " (" sid ")"))
+              (if (setq elem (assoc gname nnslashdot-groups))
+                  (setcar (cdr elem) articles)
+                (push (list gname articles sid) nnslashdot-groups)))))
+        (incf number 30))
+      (search-failed (nnslashdot-lose why)))
     (nnslashdot-write-groups)
     (nnslashdot-generate-active)
     t))
-
+  
 (deffoo nnslashdot-request-newgroups (date &optional server)
   (nnslashdot-possibly-change-server nil server)
   (nnslashdot-generate-active)
@@ -504,6 +510,10 @@
     (dolist (elem nnslashdot-groups)
       (insert (prin1-to-string (car elem))
 	      " " (number-to-string (cadr elem)) " 1 y\n"))))
+
+(defun nnslashdot-lose (why)
+  (error "Slashdot HTML has changed; please get a new version of nnslashdot"))
+
 
 (provide 'nnslashdot)
 

problem with nnslashdot

[Sorgum Vargus]

I'm trying to use the nnslashdot backend with xemacs 20.4...
I get the slashdot groups as zombies, and when I subscribe,
it shows some number of articles, but when I enter the group,
there is only 1 article with 0 lines, and when I try and read it, I get an 
error:

Signaling: (search-failed "<a name=\"126\">")
  search-forward("<a name=\"126\">")
  (if (= article 1) (progn (re-search-forward "Posted by .* on ") 
(forward-line 1) (setq contents ...)) (search-forward (format "<a 
name=\"%d\">" ...)) (setq contents (buffer-substring ... ...)))
)
  (progn (if (= article 1) (progn ... ... ...) (search-forward ...) (setq 
contents ...)))
)
  (if (numberp article) (progn (if ... ... ... ...)))
)
  (when (numberp article) (if (= article 1) (progn ... ... ...) 
(search-forward ...) (setq contents ...)))
)
  (let ((case-fold-search t)) (goto-char (point-min)) (when (and ... ...) 
(setq article ...)) (when (numberp article) (if ... ... ... ...)))
)
  (save-excursion (set-buffer nnslashdot-buffer) (let (...) (goto-char ...) 
(when ... ...) (when ... ...)))
)
  (let (contents) (save-excursion (set-buffer nnslashdot-buffer) (let ... 
... ... ...)) (when contents (save-excursion ... ... ... ... ... ... ... ... 
...)))
)
  nnslashdot-request-article(127 "GNU XFce 3.2.0 Desktop Now Available 
(99/11/18/0957218)" "" #<buffer "*Article*">)
  gnus-request-article(127 "nnslashdot:GNU XFce 3.2.0 Desktop Now Available 
(99/11/18/0957218)" #<buffer "*Article*">)
  gnus-request-article-this-buffer(127 "nnslashdot:GNU XFce 3.2.0 Desktop 
Now Available (99/11/18/0957218)")
  gnus-article-prepare(127 nil)
  gnus-summary-display-article(127)
  gnus-summary-next-page(nil)
  call-interactively(gnus-summary-next-page)


Any idea what is wrong and how to fix it?

Thanks.

______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com