replace [:digit:] with [0-9] for XEmacs.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 08575323ea14d36e037dc3d100eca3ca95d0d2ff..94735a81b7ec933c41230ed6bd850f14587a12ad 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2009-12-18  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * nntp.el (nntp-service-to-port): Work for port expressed with numeric
+       string; replace [:digit:] with [0-9] for XEmacs.
+
 2009-12-17  Glenn Morris  <rgm@gnu.org>
 
        * gnus-group.el (gnus-bug-group-download-format-alist):

diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el
index 8a6c9a2d78aebacceeceaa7c609b481b8809a534..0f696e508b986b141281b90e64520dfd4ed17ac2 100644 (file)
--- a/lisp/gnus/nntp.el
+++ b/lisp/gnus/nntp.el
@@ -1816,13 +1816,13 @@ via telnet.")
 (defun nntp-service-to-port (svc)
   (cond
    ((integerp svc) (number-to-string svc))
-   ((string-match "\\`[[:digit:]]\\'" svc) svc)
+   ((string-match "\\`[0-9]+\\'" svc) svc)
    (t
     (with-temp-buffer
       (ignore-errors (insert-file-contents "/etc/services"))
       (goto-char (point-min))
       (if (re-search-forward (concat "^" (regexp-quote svc)
-                                     "[ \t]+\\([[:digit:]]+\\)/tcp"))
+                                     "[ \t]+\\([0-9]+\\)/tcp"))
           (match-string 1)
         svc)))))