* nnslashdot.el (nnslashdot-threaded-retrieve-headers):
slashdot 2.2 (not fully fixed yet).
(nnslashdot-request-article): Ditto.
+2001-08-18 13:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
+
+ * nnslashdot.el (nnslashdot-threaded-retrieve-headers):
+ slashdot 2.2 (not fully fixed yet).
+ (nnslashdot-request-article): Ditto.
+
2001-08-18 Simon Josefsson <jas@extundo.com>
* gnus-util.el (gnus-remassoc, gnus-update-alist-soft): Moved from
2001-08-18 Simon Josefsson <jas@extundo.com>
* gnus-util.el (gnus-remassoc, gnus-update-alist-soft): Moved from
(nnweb-insert (format nnslashdot-article-url
(nnslashdot-sid-strip sid)) t)
(goto-char (point-min))
(nnweb-insert (format nnslashdot-article-url
(nnslashdot-sid-strip sid)) t)
(goto-char (point-min))
- (search-forward "Posted by ")
- (when (looking-at "<a[^>]+>\\([^<]+\\)")
+ (re-search-forward "Posted by[ \t\r\n]+")
+ (when (looking-at "<a[^>]+>[ \t\r\n]*\\([^<\r\n]+\\)")
(setq from (nnweb-decode-entities-string (match-string 1))))
(search-forward " on ")
(setq date (nnslashdot-date-to-date
(setq from (nnweb-decode-entities-string (match-string 1))))
(search-forward " on ")
(setq date (nnslashdot-date-to-date
(nnweb-insert (format nnslashdot-article-url
(nnslashdot-sid-strip sid)) t)
(goto-char (point-min))
(nnweb-insert (format nnslashdot-article-url
(nnslashdot-sid-strip sid)) t)
(goto-char (point-min))
- (search-forward "Posted by ")
- (when (looking-at "<a[^>]+>\\([^<]+\\)")
+ (re-search-forward "Posted by[ \t\r\n]+")
+ (when (looking-at "<a[^>]+>[ \t\n\r]*\\([^<\r\n]+\\)")
(setq from (nnweb-decode-entities-string (match-string 1))))
(search-forward " on ")
(setq date (nnslashdot-date-to-date
(setq from (nnweb-decode-entities-string (match-string 1))))
(search-forward " on ")
(setq date (nnslashdot-date-to-date
(forward-line 2)
(setq lines (count-lines (point)
(re-search-forward
(forward-line 2)
(setq lines (count-lines (point)
(re-search-forward
- "A href=\"\\(http://slashdot.org\\)?/article")))
+ "< <A href=\"\\(http://slashdot.org\\)?/article")))
(when (numberp article)
(if (= article 1)
(progn
(when (numberp article)
(if (= article 1)
(progn
- (re-search-forward "Posted by *<[^>]+>[^>]*<[^>]+> *on ")
+ (re-search-forward
+ "Posted by[ \t\r\n]+<[^>]+>[ \t\r\n]*[^>]*[ \t\r\n]*<[^>]+> *[ \t\r\n]*on ")
(search-forward "<BR>")
(setq contents
(buffer-substring
(point)
(progn
(re-search-forward
(search-forward "<BR>")
(setq contents
(buffer-substring
(point)
(progn
(re-search-forward
- "<p>.*A href=\"\\(http://slashdot.org\\)?/article")
+ "< [ \t\r\n]*<A HREF=\"\\(\\(http:\\)?//slashdot\\.org\\)?/article")
(match-beginning 0)))))
(search-forward (format "<a name=\"%d\">" (1- article)))
(setq contents
(match-beginning 0)))))
(search-forward (format "<a name=\"%d\">" (1- article)))
(setq contents