Merge from gnus--rel--5.10

Patches applied:

 * gnus--rel--5.10  (patch 119-120)

   - Update from CVS

2006-07-19  Andreas Seltenreich  <uwi7@rz.uni-karlsruhe.de>

   * lisp/mm-url.el (mm-url-insert-file-contents): Inhibit Connection: close
   workaround for the url package included with Emacs.

   * lisp/nnweb.el (nnweb-google-create-mapping): Update regexp.

Revision: emacs@sv.gnu.org/gnus--devo--0--patch-179

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ac650a3..e26f063 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,13 @@
        letters from the end.  Thanks to "David Smith" <davidsmith@acm.org> and
        andreas@altroot.de (Andreas V\e,Av\e(Bgele)
 
+2006-07-19  Andreas Seltenreich  <uwi7@rz.uni-karlsruhe.de>
+
+       * mm-url.el (mm-url-insert-file-contents): Inhibit Connection: close
+       workaround for the url package included with Emacs.
+
+       * nnweb.el (nnweb-google-create-mapping): Update regexp.
+
 2006-07-19  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-sum.el (gnus-select-newsgroup): Setup the article buffer

diff --git a/lisp/mm-url.el b/lisp/mm-url.el
index 23909d3..c0e1f33 100644 (file)
--- a/lisp/mm-url.el
+++ b/lisp/mm-url.el
@@ -294,6 +294,13 @@ If `mm-url-use-external' is non-nil, use `mm-url-program'."
        (list url (buffer-size)))
     (mm-url-load-url)
     (let ((name buffer-file-name)
+         (url-request-extra-headers
+          ;; ISTM setting a Connection header was a workaround for
+          ;; older versions of url included with w3, but it does more
+          ;; harm than good with the one shipped with Emacs. --ansel
+          (if (not (and (boundp 'url-version)
+                        (equal url-version "Emacs")))
+              (list (cons "Connection" "Close"))))
          (url-package-name (or mm-url-package-name
                                url-package-name))
          (url-package-version (or mm-url-package-version

diff --git a/lisp/nnweb.el b/lisp/nnweb.el
index 2f99d9d..9ddf240 100644 (file)
--- a/lisp/nnweb.el
+++ b/lisp/nnweb.el
@@ -416,7 +416,7 @@ Valid types include `google', `dejanews', and `gmane'.")
            (goto-char (point-min))
            (incf i 100)
            (if (or (not (re-search-forward
-                         "<a href=\"\n\\([^>\" \n\t]+\\)[^<]*<img src=[^>]+next"
+                         "<a [^>]+href=\"\n?\\([^>\" \n\t]+\\)[^<]*<img[^>]+src=[^>]+next"
                          nil t))
                    (>= i nnweb-max-hits))
                (setq more nil)