Changes committed gnus/lisp (ChangeLog nntp.el)

Modified: ChangeLog nntp.el

(nntp-service-to-port): Work for port expressed with numeric string;
 replace [:digit:] with [0-9] for XEmacs.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.2045 gnus/lisp/ChangeLog:7.2046
--- ChangeLog:7.2045	Thu Dec 17 09:00:55 2009
+++ ChangeLog	Fri Dec 18 01:47:27 2009
@@ -1,3 +1,8 @@
+2009-12-18  Katsumi Yamaoka  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* gnus-group.el (gnus-bug-group-download-format-alist):
Index: nntp.el
diff -u gnus/lisp/nntp.el:7.52 gnus/lisp/nntp.el:7.53
--- nntp.el:7.52	Mon Jan 26 16:23:27 2009
+++ nntp.el	Fri Dec 18 01:47:27 2009
@@ -1816,13 +1816,13 @@
 (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)))))