Mercurial > emacs

changeset 19524:f7cceca576e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Require cl at compile time. (gnus-select-method): Use condition-case, not ignore-errors. (gnus-check-backend-function): Definition moved up.
author Richard M. Stallman <rms@gnu.org>
date Mon, 25 Aug 1997 04:57:07 +0000
parents 6713d6efcfde
children 59026d8478f7
files lisp/gnus/gnus.el
diffstat 1 files changed, 16 insertions(+), 13 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/gnus.el	Mon Aug 25 04:53:47 1997 +0000
+++ b/lisp/gnus/gnus.el	Mon Aug 25 04:57:07 1997 +0000
@@ -28,6 +28,8 @@
 
 (eval '(run-hooks 'gnus-load-hook))
 
+(eval-when-compile (require 'cl))
+
 (require 'custom)
 (require 'gnus-load)
 (require 'message)
@@ -771,7 +773,7 @@
 		 (kill-buffer (current-buffer))))))))
 
 (defcustom gnus-select-method
-  (ignore-errors
+  (condition-case nil
     (nconc
      (list 'nntp (or (ignore-errors
 		       (gnus-getenv-nntpserver))
@@ -782,7 +784,8 @@
      (if (or (null gnus-nntp-service)
 	     (equal gnus-nntp-service "nntp"))
 	 nil
-       (list gnus-nntp-service))))
+       (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.
@@ -1966,6 +1969,17 @@
 
 ;;; More various functions.
 
+(defsubst gnus-check-backend-function (func group)
+  "Check whether GROUP supports function FUNC.
+GROUP can either be a string (a group name) or a select method."
+  (ignore-errors
+    (let ((method (if (stringp group)
+		      (car (gnus-find-method-for-group group))
+		    group)))
+      (unless (featurep method)
+	(require method))
+      (fboundp (intern (format "%s-%s" method func))))))
+
 (defun gnus-group-read-only-p (&optional group)
   "Check whether GROUP supports editing or not.
 If GROUP is nil, `gnus-newsgroup-name' will be checked instead.	 Note
@@ -2455,17 +2469,6 @@
 		(t
 		 (gnus-server-add-address method)))))))
 
-(defsubst gnus-check-backend-function (func group)
-  "Check whether GROUP supports function FUNC.
-GROUP can either be a string (a group name) or a select method."
-  (ignore-errors
-    (let ((method (if (stringp group)
-		      (car (gnus-find-method-for-group group))
-		    group)))
-      (unless (featurep method)
-	(require method))
-      (fboundp (intern (format "%s-%s" method func))))))
-
 (defun gnus-methods-using (feature)
   "Find all methods that have FEATURE."
   (let ((valids gnus-valid-select-methods)