From 49b196a5f111d58fd485a1b17ca7e3f2a543b293 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Fri, 18 Dec 2009 00:47:21 +0000 Subject: [PATCH] replace [:digit:] with [0-9] for XEmacs. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/nntp.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 08575323ea1..94735a81b7e 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2009-12-18 Katsumi Yamaoka + + * 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 * gnus-group.el (gnus-bug-group-download-format-alist): diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el index 8a6c9a2d78a..0f696e508b9 100644 --- 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))))) -- 2.39.5