Support extended group name.

[gnus] / lisp / nnweb.el

diff --git a/lisp/nnweb.el b/lisp/nnweb.el
index 36047f5..eb393bb 100644 (file)
--- a/lisp/nnweb.el
+++ b/lisp/nnweb.el
@@ -751,16 +751,14 @@ If FOLLOW-REFRESH is non-nil, redirect refresh url in META."
   (let ((name buffer-file-name))
     (if follow-refresh
        (save-restriction
+         (narrow-to-region (point) (point))
          (url-insert-file-contents url)
          (goto-char (point-min))
-         (while (re-search-forward 
-                 "HTTP-EQUIV=\"Refresh\"[^>]*URL=\\([^\"]+\\)\""
-                 nil t)
+         (when (re-search-forward 
+                "HTTP-EQUIV=\"Refresh\"[^>]*URL=\\([^\"]+\\)\"" nil t)
            (let ((url (match-string 1)))
              (delete-region (point-min) (point-max))
-             (nnweb-insert url))
-           (goto-char (point-min)))
-         (goto-char (point-max)))
+             (nnweb-insert url t))))
       (url-insert-file-contents url))
     (setq buffer-file-name name)))