From 53856d4d5ddb3378f6973d229ebff119f9fa445d Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 1 Aug 2001 06:47:17 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 4 ++++ lisp/gnus-art.el | 10 +++++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d741784..1727793 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2001-07-31 21:00:00 ShengHuo ZHU + + * gnus-art.el (gnus-button-fetch-group): Fix the regexp. + 2001-07-31 Katsumi Yamaoka * gnus-msg.el (gnus-post-method): Refer to `gnus-parameters'. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index e7e4098..855c38b 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -5642,8 +5642,10 @@ specified by `gnus-button-alist'." (if (not (string-match "[:/]" address)) ;; This is just a simple group url. (gnus-group-read-ephemeral-group address gnus-select-method) - (if (not (string-match "^\\([^:/]+\\)\\(:\\([^/]+\\)/\\)?\\(.*\\)$" - address)) + (if (not + (string-match + "^\\([^:/]+\\)\\(:\\([^/]+\\)\\)?/\\([^/]+\\)\\(/\\([0-9]+\\)\\)?" + address)) (error "Can't parse %s" address) (gnus-group-read-ephemeral-group (match-string 4 address) @@ -5651,7 +5653,9 @@ specified by `gnus-button-alist'." (nntp-address ,(match-string 1 address)) (nntp-port-number ,(if (match-end 3) (match-string 3 address) - "nntp"))))))) + "nntp"))) + nil nil nil + (and (match-end 6) (list (string-to-int (match-string 6 address)))))))) (defun gnus-url-parse-query-string (query &optional downcase) (let (retval pairs cur key val) -- 1.7.10.4