From ab854e37244a9b2a2f43d5a4e645fcd1dc8f147a Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 19 Nov 1999 13:17:56 +0000 Subject: [PATCH] (gnus-revision-number): Increment to 01. (gnus-select-method): Use `condition-case' instead of `ignore-errors'. --- lisp/gnus.el | 28 +++++++++++++++------------- 1 file changed, 15 insertions(+), 13 deletions(-) diff --git a/lisp/gnus.el b/lisp/gnus.el index 8d2768e..0563e31 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -269,7 +269,7 @@ is restarted, and sometimes reloaded." (defconst gnus-version-number "6.13.3" "Version number for this version of gnus.") -(defconst gnus-revision-number "00" +(defconst gnus-revision-number "01" "Revision number for this version of gnus.") (defconst gnus-original-version-number "0.98" @@ -901,18 +901,20 @@ used to 899, you would say something along these lines: (kill-buffer (current-buffer)))))))) (defcustom gnus-select-method - (ignore-errors - (nconc - (list 'nntp (or (ignore-errors - (gnus-getenv-nntpserver)) - (when (and gnus-default-nntp-server - (not (string= gnus-default-nntp-server ""))) - gnus-default-nntp-server) - "news")) - (if (or (null gnus-nntp-service) - (equal gnus-nntp-service "nntp")) - nil - (list gnus-nntp-service)))) + (condition-case nil + (nconc + (list 'nntp (or (condition-case nil + (gnus-getenv-nntpserver) + (error nil)) + (when (and gnus-default-nntp-server + (not (string= gnus-default-nntp-server ""))) + gnus-default-nntp-server) + "news")) + (if (or (null gnus-nntp-service) + (equal gnus-nntp-service "nntp")) + nil + (list gnus-nntp-service))) + (error nil)) "*Default method for selecting a newsgroup. This variable should be a list, where the first element is how the news is to be fetched, the second is the address. -- 1.7.10.4