From baebb1f7151bd3fed7a56fad24714866c3f44111 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Fri, 7 Jul 2000 03:50:24 +0000 Subject: [PATCH] Stricter test. --- lisp/ChangeLog | 5 +++++ lisp/nnweb.el | 2 +- lisp/webmail.el | 2 +- 3 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 99af294a7..e05e25c3e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-07-07 23:46:22 ShengHuo ZHU + + * nnweb.el (nnweb-insert): Stricter test. + * webmail.el (webmail-refresh-redirect): Ditto. + 2000-07-06 14:17:48 ShengHuo ZHU * mm-decode.el (mm-dissect-multipart): Match the EOL of boundary. diff --git a/lisp/nnweb.el b/lisp/nnweb.el index bb4cac9a2..5304a3e4b 100644 --- a/lisp/nnweb.el +++ b/lisp/nnweb.el @@ -759,7 +759,7 @@ If FOLLOW-REFRESH is non-nil, redirect refresh url in META." (url-insert-file-contents url) (goto-char (point-min)) (when (re-search-forward - "HTTP-EQUIV=\"Refresh\"[^>]*URL=\\([^\"]+\\)\"" nil t) + "]*URL=\\([^\"]+\\)\"" nil t) (let ((url (match-string 1))) (delete-region (point-min) (point-max)) (nnweb-insert url t)))) diff --git a/lisp/webmail.el b/lisp/webmail.el index 21106245b..5a845c51f 100644 --- a/lisp/webmail.el +++ b/lisp/webmail.el @@ -314,7 +314,7 @@ "Redirect refresh url in META." (goto-char (point-min)) (while (re-search-forward - "HTTP-EQUIV=\"Refresh\"[^>]*URL=\\([^\"]+\\)\"" + "]*URL=\\([^\"]+\\)\"" nil t) (let ((url (match-string 1))) (erase-buffer) -- 2.25.1