Mercurial > emacs

comparison lisp/gnus/gnus-int.el @ 91239:2fcaae6177a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-300
author Miles Bader <miles@gnu.org>
date Sun, 16 Dec 2007 05:08:49 +0000
parents 53108e6cea98 cd9c122de2ca
children 606f2d163a64
comparison
equal deleted inserted replaced
91238:5cf14a2107b5 91239:2fcaae6177a5
55 (const :tag "Deny server" denied) 55 (const :tag "Deny server" denied)
56 (const :tag "Unplug Agent" offline))) 56 (const :tag "Unplug Agent" offline)))
57 57
58 (defvar gnus-internal-registry-spool-current-method nil 58 (defvar gnus-internal-registry-spool-current-method nil
59 "The current method, for the registry.") 59 "The current method, for the registry.")
60
61
62 (defun gnus-server-opened (gnus-command-method)
63 "Check whether a connection to GNUS-COMMAND-METHOD has been opened."
64 (unless (eq (gnus-server-status gnus-command-method)
65 'denied)
66 (when (stringp gnus-command-method)
67 (setq gnus-command-method (gnus-server-to-method gnus-command-method)))
68 (funcall (inline (gnus-get-function gnus-command-method 'server-opened))
69 (nth 1 gnus-command-method))))
70
71 (defun gnus-status-message (gnus-command-method)
72 "Return the status message from GNUS-COMMAND-METHOD.
73 If GNUS-COMMAND-METHOD is a string, it is interpreted as a group
74 name. The method this group uses will be queried."
75 (let ((gnus-command-method
76 (if (stringp gnus-command-method)
77 (gnus-find-method-for-group gnus-command-method)
78 gnus-command-method)))
79 (funcall (gnus-get-function gnus-command-method 'status-message)
80 (nth 1 gnus-command-method))))
60 81
61 ;;; 82 ;;;
62 ;;; Server Communication 83 ;;; Server Communication
63 ;;; 84 ;;;
64 85
313 (setq gnus-command-method (gnus-server-to-method gnus-command-method))) 334 (setq gnus-command-method (gnus-server-to-method gnus-command-method)))
314 (let ((func (gnus-get-function gnus-command-method 'request-newgroups t))) 335 (let ((func (gnus-get-function gnus-command-method 'request-newgroups t)))
315 (when func 336 (when func
316 (funcall func date (nth 1 gnus-command-method))))) 337 (funcall func date (nth 1 gnus-command-method)))))
317 338
318 (defun gnus-server-opened (gnus-command-method)
319 "Check whether a connection to GNUS-COMMAND-METHOD has been opened."
320 (unless (eq (gnus-server-status gnus-command-method)
321 'denied)
322 (when (stringp gnus-command-method)
323 (setq gnus-command-method (gnus-server-to-method gnus-command-method)))
324 (funcall (inline (gnus-get-function gnus-command-method 'server-opened))
325 (nth 1 gnus-command-method))))
326
327 (defun gnus-status-message (gnus-command-method)
328 "Return the status message from GNUS-COMMAND-METHOD.
329 If GNUS-COMMAND-METHOD is a string, it is interpreted as a group
330 name. The method this group uses will be queried."
331 (let ((gnus-command-method
332 (if (stringp gnus-command-method)
333 (gnus-find-method-for-group gnus-command-method)
334 gnus-command-method)))
335 (funcall (gnus-get-function gnus-command-method 'status-message)
336 (nth 1 gnus-command-method))))
337
338 (defun gnus-request-regenerate (gnus-command-method) 339 (defun gnus-request-regenerate (gnus-command-method)
339 "Request a data generation from GNUS-COMMAND-METHOD." 340 "Request a data generation from GNUS-COMMAND-METHOD."
340 (when (stringp gnus-command-method) 341 (when (stringp gnus-command-method)
341 (setq gnus-command-method (gnus-server-to-method gnus-command-method))) 342 (setq gnus-command-method (gnus-server-to-method gnus-command-method)))
342 (funcall (gnus-get-function gnus-command-method 'request-regenerate) 343 (funcall (gnus-get-function gnus-command-method 'request-regenerate)