[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/nnslashdot.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/nnslashdot.el |
Date: |
Tue, 25 Oct 2005 19:34:47 -0400 |
Index: emacs/lisp/gnus/nnslashdot.el
diff -c emacs/lisp/gnus/nnslashdot.el:1.8 emacs/lisp/gnus/nnslashdot.el:1.9
*** emacs/lisp/gnus/nnslashdot.el:1.8 Sat Aug 6 19:51:42 2005
--- emacs/lisp/gnus/nnslashdot.el Tue Oct 25 23:34:40 2005
***************
*** 87,93 ****
(nnslashdot-possibly-change-server group server)
(condition-case why
(unless gnus-nov-is-evil
! (nnslashdot-retrieve-headers-1 articles group))
(search-failed (nnslashdot-lose why))))
(deffoo nnslashdot-retrieve-headers-1 (articles group)
--- 87,93 ----
(nnslashdot-possibly-change-server group server)
(condition-case why
(unless gnus-nov-is-evil
! (nnslashdot-retrieve-headers-1 articles group))
(search-failed (nnslashdot-lose why))))
(deffoo nnslashdot-retrieve-headers-1 (articles group)
***************
*** 142,182 ****
(setq article (if (and article (< start article)) article start))
(goto-char point)
(while (re-search-forward
! "<a
name=\"\\([0-9]+\\)\"><\\(b\\|H4\\)>\\([^<]+\\)</\\(b\\|H4\\)>.*score:\\([^)]+\\))"
nil t)
(setq cid (match-string 1)
! subject (match-string 3)
! score (match-string 5))
(unless (assq article (nth 4 entry))
(setcar (nthcdr 4 entry) (cons (cons article cid) (nth 4 entry)))
(setq changed t))
(when (string-match "^Re: *" subject)
(setq subject (concat "Re: " (substring subject (match-end 0)))))
! (setq subject (mm-url-decode-entities-string subject))
! (search-forward "<BR>")
! (cond
! ((looking-at
! "by[ \t\n]+<a[^>]+>\\([^<]+\\)</a>[
\t\n]*(\\(<[^>]+>\\)*\\([^<>)]+\\))")
! (goto-char (- (match-end 0) 5))
! (setq from (concat
! (mm-url-decode-entities-string (match-string 1))
! " <" (match-string 3) ">")))
! ((looking-at "by[ \t\n]+<a[^>]+>\\([^<(]+\\) (\\([0-9]+\\))</a>")
! (goto-char (- (match-end 0) 5))
! (setq from (concat
! (mm-url-decode-entities-string (match-string 1))
! " <" (match-string 2) ">")))
! ((looking-at "by \\([^<>]*\\)[\t\n\r ]+on ")
! (goto-char (- (match-end 0) 5))
! (setq from (mm-url-decode-entities-string (match-string 1))))
! (t
! (setq from "")))
(search-forward "on ")
(setq date
(nnslashdot-date-to-date
! (buffer-substring (point) (progn (skip-chars-forward
"^()<>\n\r") (point)))))
! (setq lines (/ (abs (- (search-forward "<td")
! (search-forward "</td>")))
70))
(if (not
(re-search-forward ".*cid=\\([0-9]+\\)\">Parent</A>" nil t))
--- 142,171 ----
(setq article (if (and article (< start article)) article start))
(goto-char point)
(while (re-search-forward
! "<a
name=\"\\([0-9]+\\)\">\\([^<]+\\)</a>.*\n.*score:\\([^)]+\\))"
nil t)
(setq cid (match-string 1)
! subject (match-string 2)
! score (match-string 3))
(unless (assq article (nth 4 entry))
(setcar (nthcdr 4 entry) (cons (cons article cid) (nth 4 entry)))
(setq changed t))
(when (string-match "^Re: *" subject)
(setq subject (concat "Re: " (substring subject (match-end 0)))))
! (setq subject (mm-url-decode-entities-string subject)
! from "")
! (when (re-search-forward "by[ \t\n]+<[^>]+>\\([^<(]+\\)" nil t)
! (setq from
! (concat
! (mm-url-decode-entities-string (match-string 1))
! " <address@hidden>")))
(search-forward "on ")
(setq date
(nnslashdot-date-to-date
! (buffer-substring
! (point) (progn (skip-chars-forward "^()<>\n\r") (point)))))
! (setq lines (/ (abs (- (search-forward "<div")
! (search-forward "</div>")))
70))
(if (not
(re-search-forward ".*cid=\\([0-9]+\\)\">Parent</A>" nil t))
***************
*** 255,277 ****
(when (numberp article)
(if (= article 1)
(progn
! (re-search-forward
! "Posted by")
! (search-forward "<BR>")
(setq contents
(buffer-substring
(point)
(progn
! (re-search-forward
! "<IFRAME\\|<SCRIPT
LANGUAGE=\"JAVASCRIPT\">\\|<!-- no ad 6 -->\\|< [ \t\r\n]*<A
HREF=\"\\(\\(http:\\)?//slashdot\\.org\\)?/article")
(match-beginning 0)))))
(setq cid (cdr (assq article
(nth 4 (assoc group nnslashdot-groups)))))
(search-forward (format "<a name=\"%s\">" cid))
(setq contents
(buffer-substring
! (re-search-forward "<td[^>]*>")
! (search-forward "</td>")))))))
(search-failed (nnslashdot-lose why)))
(when contents
--- 244,264 ----
(when (numberp article)
(if (= article 1)
(progn
! (search-forward "Posted by")
! (search-forward "<div class=\"intro\">")
(setq contents
(buffer-substring
(point)
(progn
! (search-forward "commentwrap")
(match-beginning 0)))))
(setq cid (cdr (assq article
(nth 4 (assoc group nnslashdot-groups)))))
(search-forward (format "<a name=\"%s\">" cid))
(setq contents
(buffer-substring
! (search-forward "<div class=\"commentBody\">")
! (search-forward "</div>")))))))
(search-failed (nnslashdot-lose why)))
(when contents
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/nnslashdot.el,
Miles Bader <=