Commit a36c8d02 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

Require cl at compile time.

(gnus-select-method): Use condition-case, not ignore-errors.
(gnus-check-backend-function): Definition moved up.
parent f26c6ccd
......@@ -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 @@ used to 899, you would say something along these lines:
(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 @@ used to 899, you would say something along these lines:
(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 @@ If ARG, insert string at point."
;;; 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 @@ If NEWSGROUP is nil, return the global kill file name instead."
(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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment