From 10c5c90be4c74768b2441c41b4855a5fa4c1fbbd Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Mon, 24 Jul 2006 10:55:34 +0000 Subject: [PATCH] Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 119-120) - Update from CVS 2006-07-19 Andreas Seltenreich * 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 --- lisp/ChangeLog | 7 +++++++ lisp/mm-url.el | 7 +++++++ lisp/nnweb.el | 2 +- 3 files changed, 15 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ac650a37e..e26f063fc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -4,6 +4,13 @@ letters from the end. Thanks to "David Smith" and andreas@altroot.de (Andreas V,Av(Bgele) +2006-07-19 Andreas Seltenreich + + * 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 * gnus-sum.el (gnus-select-newsgroup): Setup the article buffer diff --git a/lisp/mm-url.el b/lisp/mm-url.el index 23909d3ce..c0e1f331b 100644 --- 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 2f99d9d60..9ddf24071 100644 --- 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 - "\" \n\t]+\\)[^<]*]+next" + "]+href=\"\n?\\([^>\" \n\t]+\\)[^<]*]+src=[^>]+next" nil t)) (>= i nnweb-max-hits)) (setq more nil) -- 2.34.1