98 |
(entry (assoc group nnslashdot-groups)) |
(entry (assoc group nnslashdot-groups)) |
99 |
(sid (nth 2 entry)) |
(sid (nth 2 entry)) |
100 |
(first-comments t) |
(first-comments t) |
101 |
headers article subject score from date lines parent point cid |
headers article subject score from date lines parent point cid |
102 |
s startats changed) |
s startats changed) |
103 |
(save-excursion |
(save-excursion |
104 |
(set-buffer nnslashdot-buffer) |
(set-buffer nnslashdot-buffer) |
189 |
from date |
from date |
190 |
(concat "<" (nnslashdot-sid-strip sid) "%" cid "@slashdot>") |
(concat "<" (nnslashdot-sid-strip sid) "%" cid "@slashdot>") |
191 |
(if parent |
(if parent |
192 |
(concat "<" (nnslashdot-sid-strip sid) "%" |
(concat "<" (nnslashdot-sid-strip sid) "%" |
193 |
parent "@slashdot>") |
parent "@slashdot>") |
194 |
"") |
"") |
195 |
0 lines nil nil)) |
0 lines nil nil)) |
197 |
(while (and articles (<= (car articles) article)) |
(while (and articles (<= (car articles) article)) |
198 |
(pop articles)) |
(pop articles)) |
199 |
(setq article (1+ article))) |
(setq article (1+ article))) |
200 |
(if nnslashdot-threaded |
(if nnslashdot-threaded |
201 |
(progn |
(progn |
202 |
(setq start (pop startats)) |
(setq start (pop startats)) |
203 |
(if start (setq start (+ start 2)))) |
(if start (setq start (+ start 2)))) |
252 |
(when (numberp article) |
(when (numberp article) |
253 |
(if (= article 1) |
(if (= article 1) |
254 |
(progn |
(progn |
255 |
(re-search-forward |
(re-search-forward |
256 |
"Posted by") |
"Posted by") |
257 |
(search-forward "<BR>") |
(search-forward "<BR>") |
258 |
(setq contents |
(setq contents |
262 |
(re-search-forward |
(re-search-forward |
263 |
"< [ \t\r\n]*<A HREF=\"\\(\\(http:\\)?//slashdot\\.org\\)?/article") |
"< [ \t\r\n]*<A HREF=\"\\(\\(http:\\)?//slashdot\\.org\\)?/article") |
264 |
(match-beginning 0))))) |
(match-beginning 0))))) |
265 |
(setq cid (cdr (assq article |
(setq cid (cdr (assq article |
266 |
(nth 4 (assoc group nnslashdot-groups))))) |
(nth 4 (assoc group nnslashdot-groups))))) |
267 |
(search-forward (format "<a name=\"%s\">" cid)) |
(search-forward (format "<a name=\"%s\">" cid)) |
268 |
(setq contents |
(setq contents |