Mercurial > emacs

diff lisp/gnus/nnweb.el @ 60390:d8ddb2b48062

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-155 Merge from gnus--rel--5.10 Patches applied: * miles@gnu.org--gnu-2005/gnus--rel--5.10 (patch 36) - Update from CVS 2005-03-04 Reiner Steib <Reiner.Steib@gmx.de> * lisp/gnus/message.el: Don't autoload former message-utils variables. (message-strip-subject-trailing-was): Changed doc string. * lisp/gnus/nnweb.el: Fixes for `gnus-group-make-web-group'. (nnweb-type-definition): Don't add "hl=en" in `address'. Added `base'. (nnweb-google-search): Add "hl=en" here. (nnweb-google-parse-1, nnweb-google-create-mapping): Don't hardcode URL.
author Miles Bader <miles@gnu.org>
date Sat, 05 Mar 2005 00:35:42 +0000
parents 3f394ef46f57
children 18a818a2ee7c 29e773288013
line wrap: on
line diff
--- a/lisp/gnus/nnweb.el	Fri Mar 04 21:59:33 2005 +0000
+++ b/lisp/gnus/nnweb.el	Sat Mar 05 00:35:42 2005 +0000
@@ -58,7 +58,8 @@
      (reference . identity)
      (map . nnweb-google-create-mapping)
      (search . nnweb-google-search)
-     (address . "http://groups.google.de/groups?hl=en")
+     (address . "http://groups.google.de/groups")
+     (base    . "http://groups.google.de")
      (identifier . nnweb-google-identity))
     (dejanews ;; alias of google
      (article . ignore)
@@ -67,6 +68,7 @@
      (map . nnweb-google-create-mapping)
      (search . nnweb-google-search)
      (address . "http://groups.google.com/groups")
+     (base    . "http://groups.google.com")
      (identifier . nnweb-google-identity))
     (gmane
      (article . nnweb-gmane-wash-article)
@@ -349,7 +351,7 @@
 	    "a href=/groups\\(\\?[^ \">]*selm=\\([^ &\">]+\\)\\)" nil t)
       (setq mid (match-string 2)
 	    url (format
-		 "http://groups.google.com/groups?selm=%s&output=gplain" mid))
+		 (nnweb-definition 'id) mid))
       (narrow-to-region (search-forward ">" nil t)
 			(search-forward "</a>" nil t))
       (mm-url-remove-markup)
@@ -420,7 +422,7 @@
 		    (>= i nnweb-max-hits))
 		(setq more nil)
 	      ;; Yup, there are more articles
-	      (setq more (concat "http://groups.google.com" (match-string 1)))
+	      (setq more (concat (nnweb-definition 'base) (match-string 1)))
 	    (when more
 	      (erase-buffer)
 	      (mm-url-insert more))))
@@ -435,9 +437,9 @@
     "?"
     (mm-url-encode-www-form-urlencoded
      `(("q" . ,search)
-       ("num". "100")
+       ("num" . "100")
        ("hq" . "")
-       ("hl" . "")
+       ("hl" . "en")
        ("lr" . "")
        ("safe" . "off")
        ("sites" . "groups")))))