/[emacs]/emacs/lisp/gnus/nnweb.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnweb.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by miles, Thu Mar 3 23:02:21 2005 UTC revision 1.14 by miles, Sat Mar 5 00:35:42 2005 UTC
# Line 58  Valid types include `google', `dejanews' Line 58  Valid types include `google', `dejanews'
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)
# Line 67  Valid types include `google', `dejanews' Line 68  Valid types include `google', `dejanews'
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)
# Line 349  Valid types include `google', `dejanews' Line 351  Valid types include `google', `dejanews'
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)
# Line 420  Valid types include `google', `dejanews' Line 422  Valid types include `google', `dejanews'
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))))
# Line 435  Valid types include `google', `dejanews' Line 437  Valid types include `google', `dejanews'
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")))))

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26