[Emacs-diffs] emacs/lisp/gnus nntp.el ChangeLog

[Katsumi Yamaoka]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Katsumi Yamaoka <yamaoka>       09/12/18 00:47:22

Modified files:
        lisp/gnus      : nntp.el ChangeLog 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/nntp.el?cvsroot=emacs&r1=1.47&r2=1.48
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&r1=1.850&r2=1.851

Patches:
Index: nntp.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/nntp.el,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -b -r1.47 -r1.48
--- nntp.el     5 Feb 2009 02:34:34 -0000       1.47
+++ nntp.el     18 Dec 2009 00:47:21 -0000      1.48
@@ -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)))))
 

Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/ChangeLog,v
retrieving revision 1.850
retrieving revision 1.851
diff -u -b -r1.850 -r1.851
--- ChangeLog   17 Dec 2009 04:15:25 -0000      1.850
+++ ChangeLog   18 Dec 2009 00:47:21 -0000      1.851
@@ -1,3 +1,8 @@
+2009-12-18  Katsumi Yamaoka  <address@hidden>
+
+       * 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  <address@hidden>
 
        * gnus-group.el (gnus-bug-group-download-format-alist):