Lines Matching +refs:nnweb +refs:search
34 (require 'nnweb)
37 nnweb)
41 nnweb-directory)
44 "What search engine type is being used."
45 nnweb-type)
51 (search . nnlistserv-kk-search)
58 nnweb-type-definition)
60 (defvoo nnlistserv-search nil
62 nnweb-search)
66 nnweb-ephemeral-p)
75 (nnweb))
84 "Perform the search and create a number-to-url alist."
86 (set-buffer nnweb-buffer)
87 (let ((case-fold-search t)
88 (active (or (cadr (assoc nnweb-group nnweb-group-alist))
90 (pages (nnweb-definition 'pages))
94 (when (funcall (nnweb-definition 'search) page)
99 (while (re-search-forward "^<li> *<a href=\"\\([^\"]+\\)\"><b>\\([^\\>]+\\)</b></a> *<[^>]+><i>\\([^>]+\\)<" nil t)
103 (setq url (concat (format (nnweb-definition 'address) page) url))
104 (unless (nnweb-get-hashtb url)
110 (concat "<" (nnweb-identifier url) "@kk>")
113 (nnweb-set-hashtb (cadar map) (car map))
116 (setq nnweb-articles
117 (sort (nconc nnweb-articles map) 'car-less-than-car)))))
120 (let ((case-fold-search t)
126 (re-search-forward (format "<!-- %s=\"\\([^\"]+\\)" (car headers)) nil t)
129 (search-forward "<!-- body" nil t)
132 (search-backward "<!-- body" nil t)
141 (defun nnlistserv-kk-search (search)
143 (concat (format (nnweb-definition 'address) search)
144 (nnweb-definition 'index)))