Lines Matching +refs:nnweb +refs:group
42 (require 'nnweb)
66 (deffoo nnwfm-retrieve-headers (articles &optional group server fetch-old)
67 (nnwfm-possibly-change-server group server)
72 (entry (assoc group nnwfm-groups))
135 hstuff (delete ":link" (nnweb-text (car table)))
167 (/ (length (mapconcat 'identity (nnweb-text (nth 2 contents)) ""))
180 (deffoo nnwfm-request-group (group &optional server dont-check)
185 (nnwfm-create-mapping group))
186 (let ((elem (assoc group nnwfm-groups)))
191 (nnheader-report 'nnwfm "Opened group %s" group)
194 (prin1-to-string group))))))
200 (deffoo nnwfm-request-article (article &optional group server buffer)
201 (nnwfm-possibly-change-server group server)
207 (nnweb-insert-html contents)
214 (cons group article)))))
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)))))
237 (car (last (nnweb-text (nth 3 row)))) "," "")))
241 (if (setq elem (assoc group nnwfm-groups))
243 (push (list group articles forum description nil nil nil nil)
258 (defun nnwfm-new-threads-p (group time)
260 (let ((old-time (nth 7 (assoc group nnwfm-groups))))
264 (defun nnwfm-create-mapping (group)
265 (let* ((entry (assoc group nnwfm-groups))
304 (when (and (nnwfm-new-threads-p group time)
317 ;; the group is entered, there's 2 new articles in topic one
346 (defun nnwfm-possibly-change-server (&optional group server)
412 (nnweb-parse-find 'table p))
414 (let ((href (cdr (assq 'href (nth 1 (nnweb-parse-find 'a parse 20)))))