[Emacs-diffs] Changes to emacs/lisp/gnus/nnweb.el

[Miles Bader]

Index: emacs/lisp/gnus/nnweb.el
diff -c emacs/lisp/gnus/nnweb.el:1.13 emacs/lisp/gnus/nnweb.el:1.14
*** emacs/lisp/gnus/nnweb.el:1.13       Thu Mar  3 23:02:21 2005
--- emacs/lisp/gnus/nnweb.el    Sat Mar  5 00:35:42 2005
***************
*** 58,64 ****
       (reference . identity)
       (map . nnweb-google-create-mapping)
       (search . nnweb-google-search)
!      (address . "http://groups.google.de/groups?hl=en";)
       (identifier . nnweb-google-identity))
      (dejanews ;; alias of google
       (article . ignore)
--- 58,65 ----
       (reference . identity)
       (map . nnweb-google-create-mapping)
       (search . nnweb-google-search)
!      (address . "http://groups.google.de/groups";)
!      (base    . "http://groups.google.de";)
       (identifier . nnweb-google-identity))
      (dejanews ;; alias of google
       (article . ignore)
***************
*** 67,72 ****
--- 68,74 ----
       (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,355 ****
            "a href=/groups\\(\\?[^ \">]*selm=\\([^ &\">]+\\)\\)" nil t)
        (setq mid (match-string 2)
            url (format
!                "http://groups.google.com/groups?selm=%s&output=gplain"; mid))
        (narrow-to-region (search-forward ">" nil t)
                        (search-forward "</a>" nil t))
        (mm-url-remove-markup)
--- 351,357 ----
            "a href=/groups\\(\\?[^ \">]*selm=\\([^ &\">]+\\)\\)" nil t)
        (setq mid (match-string 2)
            url (format
!                (nnweb-definition 'id) mid))
        (narrow-to-region (search-forward ">" nil t)
                        (search-forward "</a>" nil t))
        (mm-url-remove-markup)
***************
*** 420,426 ****
                    (>= i nnweb-max-hits))
                (setq more nil)
              ;; Yup, there are more articles
!             (setq more (concat "http://groups.google.com"; (match-string 1)))
            (when more
              (erase-buffer)
              (mm-url-insert more))))
--- 422,428 ----
                    (>= i nnweb-max-hits))
                (setq more nil)
              ;; Yup, there are more articles
!             (setq more (concat (nnweb-definition 'base) (match-string 1)))
            (when more
              (erase-buffer)
              (mm-url-insert more))))
***************
*** 435,443 ****
      "?"
      (mm-url-encode-www-form-urlencoded
       `(("q" . ,search)
!        ("num". "100")
         ("hq" . "")
!        ("hl" . "")
         ("lr" . "")
         ("safe" . "off")
         ("sites" . "groups")))))
--- 437,445 ----
      "?"
      (mm-url-encode-www-form-urlencoded
       `(("q" . ,search)
!        ("num" . "100")
         ("hq" . "")
!        ("hl" . "en")
         ("lr" . "")
         ("safe" . "off")
         ("sites" . "groups")))))