Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
fe86b5e0
Commit
fe86b5e0
authored
Dec 11, 2007
by
Glenn Morris
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(gnus-server-opened, gnus-status-message): Move definitions before use.
parent
704f1663
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
21 additions
and
20 deletions
+21
-20
lisp/gnus/gnus-int.el
lisp/gnus/gnus-int.el
+21
-20
No files found.
lisp/gnus/gnus-int.el
View file @
fe86b5e0
...
...
@@ -58,6 +58,27 @@ server denied."
(
defvar
gnus-internal-registry-spool-current-method
nil
"The current method, for the registry."
)
(
defun
gnus-server-opened
(
gnus-command-method
)
"Check whether a connection to GNUS-COMMAND-METHOD has been opened."
(
unless
(
eq
(
gnus-server-status
gnus-command-method
)
'denied
)
(
when
(
stringp
gnus-command-method
)
(
setq
gnus-command-method
(
gnus-server-to-method
gnus-command-method
)))
(
funcall
(
inline
(
gnus-get-function
gnus-command-method
'server-opened
))
(
nth
1
gnus-command-method
))))
(
defun
gnus-status-message
(
gnus-command-method
)
"Return the status message from GNUS-COMMAND-METHOD.
If GNUS-COMMAND-METHOD is a string, it is interpreted as a group
name. The method this group uses will be queried."
(
let
((
gnus-command-method
(
if
(
stringp
gnus-command-method
)
(
gnus-find-method-for-group
gnus-command-method
)
gnus-command-method
)))
(
funcall
(
gnus-get-function
gnus-command-method
'status-message
)
(
nth
1
gnus-command-method
))))
;;;
;;; Server Communication
;;;
...
...
@@ -315,26 +336,6 @@ If it is down, start it up (again)."
(
when
func
(
funcall
func
date
(
nth
1
gnus-command-method
)))))
(
defun
gnus-server-opened
(
gnus-command-method
)
"Check whether a connection to GNUS-COMMAND-METHOD has been opened."
(
unless
(
eq
(
gnus-server-status
gnus-command-method
)
'denied
)
(
when
(
stringp
gnus-command-method
)
(
setq
gnus-command-method
(
gnus-server-to-method
gnus-command-method
)))
(
funcall
(
inline
(
gnus-get-function
gnus-command-method
'server-opened
))
(
nth
1
gnus-command-method
))))
(
defun
gnus-status-message
(
gnus-command-method
)
"Return the status message from GNUS-COMMAND-METHOD.
If GNUS-COMMAND-METHOD is a string, it is interpreted as a group
name. The method this group uses will be queried."
(
let
((
gnus-command-method
(
if
(
stringp
gnus-command-method
)
(
gnus-find-method-for-group
gnus-command-method
)
gnus-command-method
)))
(
funcall
(
gnus-get-function
gnus-command-method
'status-message
)
(
nth
1
gnus-command-method
))))
(
defun
gnus-request-regenerate
(
gnus-command-method
)
"Request a data generation from GNUS-COMMAND-METHOD."
(
when
(
stringp
gnus-command-method
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment