Lines Matching +refs:nnweb +refs:articles
42 (require 'nnweb)
59 (defvoo nnultimate-articles nil)
67 (deffoo nnultimate-retrieve-headers (articles &optional group server fetch-old)
70 (let* ((last (car (last articles)))
87 (while (and (setq article (car articles))
89 ;; Skip past the articles in the map until we reach the
109 (pop articles)
110 (setq article (car articles)))))
118 (setq nnultimate-articles nil)
151 nnultimate-articles))))
158 nnultimate-articles))))))
159 (setq nnultimate-articles
160 (sort nnultimate-articles 'car-less-than-car))
161 ;; Now we have all the articles, conveniently in an alist
163 (dolist (articlef nnultimate-articles)
168 (nnweb-text (car (nth 2 contents)))
170 datel (nnweb-text (nth 2 (car (cdr (nth 2 contents))))))
208 (nnweb-text
255 (let ((contents (cdr (assq article nnultimate-articles))))
261 (nnweb-insert-html (cons 'p (cons nil (list contents))))
280 sid elem description articles a href group forum
284 (when (setq a (nnweb-parse-find 'a row))
285 (setq group (car (last (nnweb-text a)))
287 (setq description (car (last (nnweb-text (nth 1 row)))))
288 (setq a1 (car (last (nnweb-text (nth 2 row)))))
289 (setq a2 (car (last (nnweb-text (nth 3 row)))))
291 (setq articles (string-to-number a1)))
293 (setq articles (max articles (string-to-number a2))))
298 (setcar (cdr elem) articles)
299 (push (list group articles forum description nil nil nil nil)
349 (dolist (a (nnweb-parse-find-all 'a parse))
357 ;; this forum, the first with 4 articles, the seconds with 2,
361 ;; the group is entered, there's 2 new articles in topic one
366 (when (setq a (nnweb-parse-find 'a row))
367 (setq subject (car (last (nnweb-text a)))
369 (let ((artlist (nreverse (nnweb-text row)))
468 (nnweb-parse-find 'table p))
470 (let ((href (cdr (assq 'href (nth 1 (nnweb-parse-find 'a parse 20)))))