From: yamaoka <yamaoka>
Date: Fri, 19 Nov 1999 13:17:56 +0000 (+0000)
Subject: (gnus-revision-number): Increment to 01.
X-Git-Tag: t-gnus-6_13_3-01~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ab854e37244a9b2a2f43d5a4e645fcd1dc8f147a;p=elisp%2Fgnus.git-

(gnus-revision-number): Increment to 01.
(gnus-select-method): Use `condition-case' instead of `ignore-errors'.
---

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.