From 316914aa94fdb8f6abc2e90c252851b29100ad19 Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Sun, 9 Jul 2000 22:24:55 +0000
Subject: [PATCH] Synch.

---
 lisp/ChangeLog    |    5 +++++
 lisp/nnweb.el     |    2 +-
 lisp/webmail.el   |    2 +-
 texi/gnus-ja.texi |    5 ++++-
 texi/gnus.texi    |    5 ++++-
 5 files changed, 15 insertions(+), 4 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 99af294..e05e25c 100644
--- 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 da85743..de3bb7f 100644
--- a/lisp/nnweb.el
+++ b/lisp/nnweb.el
@@ -761,7 +761,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
--- 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)
diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi
index 2eb2c84..6dff1e3 100644
--- a/texi/gnus-ja.texi
+++ b/texi/gnus-ja.texi
@@ -10660,7 +10660,10 @@ POP $B%5!<%P!<$NL>A0$G$9!#=i4|CM$O(B @code{MAILHOST} $B4D6-JQ?t$+$i<hF@$5$l$^
 $B$9!#(B
 
 @item :port
-POP $B%5!<%P!<$N%]!<%HHV9f$G$9!#=i4|CM$O(B @samp{pop3} $B$G$9!#(B
+POP $B%5!<%P!<$N%]!<%HHV9f$G$9!#$3$l$O?tCM(B ($BNc$($P(B @samp{:port 1234}) $B$+J8(B
+$B;zNs(B ($BNc$($P(B @samp{:port "pop3"}) $B$G$9!#$b$7J8;zNs$J$i(B Unix $B%7%9%F%`$K$*(B
+$B$1$k(B @file{/etc/services} $B$K:\$C$F$$$k%5!<%S%9L>$G$J$1$l$P$J$j$^$;$s!#=i(B
+$B4|CM$O(B @samp{pop3} $B$G$9!#(B
 
 @item :user
 POP $B%5!<%P!<$KM?$($kMxMQ<TL>$G$9!#=i4|CM$O%m%0%$%sL>$G$9!#(B
diff --git a/texi/gnus.texi b/texi/gnus.texi
index 026e7e1..376d19b 100644
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -11074,7 +11074,10 @@ The name of the POP server.  The default is taken from the
 @code{MAILHOST} environment variable.
 
 @item :port
-The port number of the POP server.  The default is @samp{pop3}.
+The port number of the POP server.  This can be a number (eg,
+@samp{:port 1234}) or a string (eg, @samp{:port "pop3"}).  If it is a
+string, it should be a service name as listed in @file{/etc/services} on
+Unix systems.  The default is @samp{"pop3"}.
 
 @item :user
 The user name to give to the POP server.  The default is the login
-- 
1.7.10.4