projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
This commit was manufactured by cvs2svn to create tag 't-gnus-6_15_4-06
[elisp/gnus.git-]
/
lisp
/
nnslashdot.el
diff --git
a/lisp/nnslashdot.el
b/lisp/nnslashdot.el
index
d8f926a
..
b411919
100644
(file)
--- a/
lisp/nnslashdot.el
+++ b/
lisp/nnslashdot.el
@@
-172,14
+172,15
@@
(setq date
(nnslashdot-date-to-date
(buffer-substring (point) (progn (skip-chars-forward "^()<>\n\r") (point)))))
(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))
(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
(push
(cons
article