+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.
(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))))
"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)