Lines Matching refs:group
61 "http://www.egroups.com/messages/%s/%d" group aux)
63 "http://www.egroups.com/messages/%s/" group)
67 "http://www.egroups.com/message/%s/%d?source=1" group article)
80 "http://www.mail-archive.com/%s/mail%d.html" group aux)
82 "http://www.mail-archive.com/%s/maillist.html" group)
86 "http://www.mail-archive.com/%s/msg%05d.html" group article1)
104 "Your login name for the group.")
107 "Your password for the group.")
172 (defun nnwarchive-backlog-enter-article (group number buffer)
174 (gnus-backlog-enter-article group number buffer)))
176 (defun nnwarchive-get-article (article &optional group server buffer)
179 (gnus-backlog-request-article group article
181 (cons group article)
188 (setq contents (funcall nnwarchive-article-dissect group article)))
194 (nnwarchive-backlog-enter-article group article (current-buffer))
196 (cons group article)))))
199 (deffoo nnwarchive-retrieve-headers (articles &optional group server fetch-old)
200 (nnwarchive-possibly-change-server group server)
207 (nnwarchive-get-article art group server buf)
218 (setq nnwarchive-headers (cdr (assoc group nnwarchive-headers-cache)))
222 (funcall nnwarchive-xover-files group articles))
230 (let ((elem (assoc group nnwarchive-headers-cache)))
233 (push (cons group nnwarchive-headers) nnwarchive-headers-cache)))
236 (deffoo nnwarchive-request-group (group &optional server dont-check)
239 (funcall nnwarchive-list-groups (list group))
241 (let ((elem (assoc group nnwarchive-groups)))
246 (nnheader-report 'nnwarchive "Opened group %s" group)
249 (prin1-to-string group))
252 (deffoo nnwarchive-request-article (article &optional group server buffer)
253 (nnwarchive-possibly-change-server group server)
254 (nnwarchive-get-article article group server buffer))
308 (defun nnwarchive-possibly-change-server (&optional group server)
396 (dolist (group groups)
402 (let ((elem (assoc group nnwarchive-groups)))
405 (push (list group articles "") nnwarchive-groups)))
406 (setq nnwarchive-headers (cdr (assoc group nnwarchive-headers-cache)))
407 (nnwarchive-egroups-xover group)
408 (let ((elem (assoc group nnwarchive-headers-cache)))
411 (push (cons group nnwarchive-headers) nnwarchive-headers-cache)))))))
415 group description elem articles)
418 (re-search-forward "href=\"/group/\\([^/\"\> ]+\\)" nil t)
419 (setq group (match-string 1)
421 (if (setq elem (assoc group nnwarchive-groups))
423 (push (list group articles description) nnwarchive-groups))))
426 (defun nnwarchive-egroups-xover (group)
430 "<a href=\"/group/\\([^/]+\\)/\\([0-9]+\\)[^>]+>\\([^<]+\\)<"
432 (setq group (match-string 1)
449 (concat "<" group "%"
456 (defun nnwarchive-egroups-article (group articles)
469 (defun nnwarchive-egroups-xover-files (group articles)
476 (nnwarchive-egroups-xover group))))
484 (dolist (group groups)
490 (let ((elem (assoc group nnwarchive-groups)))
493 (push (list group articles "") nnwarchive-groups)))
494 (setq nnwarchive-headers (cdr (assoc group nnwarchive-headers-cache)))
495 (nnwarchive-mail-archive-xover group)
496 (let ((elem (assoc group nnwarchive-headers-cache)))
499 (push (cons group nnwarchive-headers)
504 group description elem articles)
507 (setq group (match-string 1)
511 (if (setq elem (assoc group nnwarchive-groups))
513 (push (list group articles description) nnwarchive-groups))))
516 (defun nnwarchive-mail-archive-xover (group)
538 (format "<%05d%%%s>\n" (1- article) group)
543 (defun nnwarchive-mail-archive-xover-files (group articles)
548 (nnwarchive-mail-archive-xover group))
555 (nnwarchive-mail-archive-xover group)
589 (defun nnwarchive-mail-archive-article (group article)
680 group url)
705 (push (concat "<" (match-string 1) "%" group ">") refs)))
708 (insert (format "Message-ID: <%05d%%%s>\n" (1- article) group))