Stricter test.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 99af294..e05e25c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-07-07 23:46:22  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * nnweb.el (nnweb-insert): Stricter test.
+       * webmail.el (webmail-refresh-redirect): Ditto.
+
 2000-07-06 14:17:48  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * mm-decode.el (mm-dissect-multipart): Match the EOL of boundary.

diff --git a/lisp/nnweb.el b/lisp/nnweb.el
index bb4cac9..5304a3e 100644 (file)
--- 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)
+                "<meta[ \t\r\n]*http-equiv=\"Refresh\"[^>]*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 2110624..5a845c5 100644 (file)
--- 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=\\([^\"]+\\)\""
+         "<meta[ \t\r\n]*http-equiv=\"Refresh\"[^>]*URL=\\([^\"]+\\)\""
          nil t)
     (let ((url (match-string 1)))
       (erase-buffer)