58 |
(reference . identity) |
(reference . identity) |
59 |
(map . nnweb-google-create-mapping) |
(map . nnweb-google-create-mapping) |
60 |
(search . nnweb-google-search) |
(search . nnweb-google-search) |
61 |
(address . "http://groups.google.de/groups?hl=en") |
(address . "http://groups.google.de/groups") |
62 |
|
(base . "http://groups.google.de") |
63 |
(identifier . nnweb-google-identity)) |
(identifier . nnweb-google-identity)) |
64 |
(dejanews ;; alias of google |
(dejanews ;; alias of google |
65 |
(article . ignore) |
(article . ignore) |
68 |
(map . nnweb-google-create-mapping) |
(map . nnweb-google-create-mapping) |
69 |
(search . nnweb-google-search) |
(search . nnweb-google-search) |
70 |
(address . "http://groups.google.com/groups") |
(address . "http://groups.google.com/groups") |
71 |
|
(base . "http://groups.google.com") |
72 |
(identifier . nnweb-google-identity)) |
(identifier . nnweb-google-identity)) |
73 |
(gmane |
(gmane |
74 |
(article . nnweb-gmane-wash-article) |
(article . nnweb-gmane-wash-article) |
351 |
"a href=/groups\\(\\?[^ \">]*selm=\\([^ &\">]+\\)\\)" nil t) |
"a href=/groups\\(\\?[^ \">]*selm=\\([^ &\">]+\\)\\)" nil t) |
352 |
(setq mid (match-string 2) |
(setq mid (match-string 2) |
353 |
url (format |
url (format |
354 |
"http://groups.google.com/groups?selm=%s&output=gplain" mid)) |
(nnweb-definition 'id) mid)) |
355 |
(narrow-to-region (search-forward ">" nil t) |
(narrow-to-region (search-forward ">" nil t) |
356 |
(search-forward "</a>" nil t)) |
(search-forward "</a>" nil t)) |
357 |
(mm-url-remove-markup) |
(mm-url-remove-markup) |
422 |
(>= i nnweb-max-hits)) |
(>= i nnweb-max-hits)) |
423 |
(setq more nil) |
(setq more nil) |
424 |
;; Yup, there are more articles |
;; Yup, there are more articles |
425 |
(setq more (concat "http://groups.google.com" (match-string 1))) |
(setq more (concat (nnweb-definition 'base) (match-string 1))) |
426 |
(when more |
(when more |
427 |
(erase-buffer) |
(erase-buffer) |
428 |
(mm-url-insert more)))) |
(mm-url-insert more)))) |
437 |
"?" |
"?" |
438 |
(mm-url-encode-www-form-urlencoded |
(mm-url-encode-www-form-urlencoded |
439 |
`(("q" . ,search) |
`(("q" . ,search) |
440 |
("num". "100") |
("num" . "100") |
441 |
("hq" . "") |
("hq" . "") |
442 |
("hl" . "") |
("hl" . "en") |
443 |
("lr" . "") |
("lr" . "") |
444 |
("safe" . "off") |
("safe" . "off") |
445 |
("sites" . "groups"))))) |
("sites" . "groups"))))) |