Lines Matching +refs:nnweb +refs:articles
42 (require 'nnweb)
58 (defvoo nnwfm-articles nil)
66 (deffoo nnwfm-retrieve-headers (articles &optional group server fetch-old)
69 (let* ((last (car (last articles)))
84 (while (and (setq article (car articles))
104 (pop articles)
105 (setq article (car articles)))))
113 (setq nnwfm-articles nil)
135 hstuff (delete ":link" (nnweb-text (car table)))
146 nnwfm-articles))))
147 (setq nnwfm-articles
148 (sort nnwfm-articles 'car-less-than-car))
149 ;; Now we have all the articles, conveniently in an alist
151 (dolist (articlef nnwfm-articles)
167 (/ (length (mapconcat 'identity (nnweb-text (nth 2 contents)) ""))
202 (let ((contents (cdr (assq article nnwfm-articles))))
207 (nnweb-insert-html contents)
225 sid elem description articles a href group forum
230 (when (setq a (nnweb-parse-find 'a row))
231 (setq group (car (last (nnweb-text a)))
233 (setq description (car (last (nnweb-text (nth 1 row)))))
234 (setq articles
237 (car (last (nnweb-text (nth 3 row)))) "," "")))
242 (setcar (cdr elem) articles)
243 (push (list group articles forum description nil nil nil nil)
313 ;; this forum, the first with 4 articles, the seconds with 2,
317 ;; the group is entered, there's 2 new articles in topic one
412 (nnweb-parse-find 'table p))
414 (let ((href (cdr (assq 'href (nth 1 (nnweb-parse-find 'a parse 20)))))