Mercurial > emacs
comparison lisp/gnus/nnslashdot.el @ 49598:0d8b17d428b5
Trailing whitepace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 13:24:35 +0000 |
| parents | 93f6c74a2f60 |
| children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49597:e88404e8f2cf | 49598:0d8b17d428b5 |
|---|---|
| 96 (let* ((last (car (last articles))) | 96 (let* ((last (car (last articles))) |
| 97 (start (if nnslashdot-threaded 1 (pop articles))) | 97 (start (if nnslashdot-threaded 1 (pop articles))) |
| 98 (entry (assoc group nnslashdot-groups)) | 98 (entry (assoc group nnslashdot-groups)) |
| 99 (sid (nth 2 entry)) | 99 (sid (nth 2 entry)) |
| 100 (first-comments t) | 100 (first-comments t) |
| 101 headers article subject score from date lines parent point cid | 101 headers article subject score from date lines parent point cid |
| 102 s startats changed) | 102 s startats changed) |
| 103 (save-excursion | 103 (save-excursion |
| 104 (set-buffer nnslashdot-buffer) | 104 (set-buffer nnslashdot-buffer) |
| 105 (let ((case-fold-search t)) | 105 (let ((case-fold-search t)) |
| 106 (erase-buffer) | 106 (erase-buffer) |
| 187 article | 187 article |
| 188 (concat subject " (" score ")") | 188 (concat subject " (" score ")") |
| 189 from date | 189 from date |
| 190 (concat "<" (nnslashdot-sid-strip sid) "%" cid "@slashdot>") | 190 (concat "<" (nnslashdot-sid-strip sid) "%" cid "@slashdot>") |
| 191 (if parent | 191 (if parent |
| 192 (concat "<" (nnslashdot-sid-strip sid) "%" | 192 (concat "<" (nnslashdot-sid-strip sid) "%" |
| 193 parent "@slashdot>") | 193 parent "@slashdot>") |
| 194 "") | 194 "") |
| 195 0 lines nil nil)) | 195 0 lines nil nil)) |
| 196 headers) | 196 headers) |
| 197 (while (and articles (<= (car articles) article)) | 197 (while (and articles (<= (car articles) article)) |
| 198 (pop articles)) | 198 (pop articles)) |
| 199 (setq article (1+ article))) | 199 (setq article (1+ article))) |
| 200 (if nnslashdot-threaded | 200 (if nnslashdot-threaded |
| 201 (progn | 201 (progn |
| 202 (setq start (pop startats)) | 202 (setq start (pop startats)) |
| 203 (if start (setq start (+ start 2)))) | 203 (if start (setq start (+ start 2)))) |
| 204 (setq start (pop articles)))))) | 204 (setq start (pop articles)))))) |
| 205 (if changed (nnslashdot-write-groups)) | 205 (if changed (nnslashdot-write-groups)) |
| 250 map nil) | 250 map nil) |
| 251 (setq map (cdr map)))))) | 251 (setq map (cdr map)))))) |
| 252 (when (numberp article) | 252 (when (numberp article) |
| 253 (if (= article 1) | 253 (if (= article 1) |
| 254 (progn | 254 (progn |
| 255 (re-search-forward | 255 (re-search-forward |
| 256 "Posted by") | 256 "Posted by") |
| 257 (search-forward "<BR>") | 257 (search-forward "<BR>") |
| 258 (setq contents | 258 (setq contents |
| 259 (buffer-substring | 259 (buffer-substring |
| 260 (point) | 260 (point) |
| 261 (progn | 261 (progn |
| 262 (re-search-forward | 262 (re-search-forward |
| 263 "< [ \t\r\n]*<A HREF=\"\\(\\(http:\\)?//slashdot\\.org\\)?/article") | 263 "< [ \t\r\n]*<A HREF=\"\\(\\(http:\\)?//slashdot\\.org\\)?/article") |
| 264 (match-beginning 0))))) | 264 (match-beginning 0))))) |
| 265 (setq cid (cdr (assq article | 265 (setq cid (cdr (assq article |
| 266 (nth 4 (assoc group nnslashdot-groups))))) | 266 (nth 4 (assoc group nnslashdot-groups))))) |
| 267 (search-forward (format "<a name=\"%s\">" cid)) | 267 (search-forward (format "<a name=\"%s\">" cid)) |
| 268 (setq contents | 268 (setq contents |
| 269 (buffer-substring | 269 (buffer-substring |
| 270 (re-search-forward "<td[^>]*>") | 270 (re-search-forward "<td[^>]*>") |