Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-int.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents ec9a17fef872
children 8b8b7f3559a2
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
199 199
200 (defun gnus-server-opened (method) 200 (defun gnus-server-opened (method)
201 "Check whether a connection to METHOD has been opened." 201 "Check whether a connection to METHOD has been opened."
202 (when (stringp method) 202 (when (stringp method)
203 (setq method (gnus-server-to-method method))) 203 (setq method (gnus-server-to-method method)))
204 (funcall (gnus-get-function method 'server-opened) (nth 1 method))) 204 (funcall (inline (gnus-get-function method 'server-opened)) (nth 1 method)))
205 205
206 (defun gnus-status-message (method) 206 (defun gnus-status-message (method)
207 "Return the status message from METHOD. 207 "Return the status message from METHOD.
208 If METHOD is a string, it is interpreted as a group name. The method 208 If METHOD is a string, it is interpreted as a group name. The method
209 this group uses will be queried." 209 this group uses will be queried."
217 (setq method (gnus-server-to-method method))) 217 (setq method (gnus-server-to-method method)))
218 (funcall (gnus-get-function method 'request-regenerate) (nth 1 method))) 218 (funcall (gnus-get-function method 'request-regenerate) (nth 1 method)))
219 219
220 (defun gnus-request-group (group &optional dont-check method) 220 (defun gnus-request-group (group &optional dont-check method)
221 "Request GROUP. If DONT-CHECK, no information is required." 221 "Request GROUP. If DONT-CHECK, no information is required."
222 (let ((method (or method (gnus-find-method-for-group group)))) 222 (let ((method (or method (inline (gnus-find-method-for-group group)))))
223 (when (stringp method) 223 (when (stringp method)
224 (setq method (gnus-server-to-method method))) 224 (setq method (inline (gnus-server-to-method method))))
225 (funcall (gnus-get-function method 'request-group) 225 (funcall (inline (gnus-get-function method 'request-group))
226 (gnus-group-real-name group) (nth 1 method) dont-check))) 226 (gnus-group-real-name group) (nth 1 method) dont-check)))
227 227
228 (defun gnus-list-active-group (group) 228 (defun gnus-list-active-group (group)
229 "Request active information on GROUP." 229 "Request active information on GROUP."
230 (let ((method (gnus-find-method-for-group group)) 230 (let ((method (gnus-find-method-for-group group))
241 (funcall (gnus-get-function method func) 241 (funcall (gnus-get-function method func)
242 (gnus-group-real-name group) (nth 1 method))))) 242 (gnus-group-real-name group) (nth 1 method)))))
243 243
244 (defun gnus-close-group (group) 244 (defun gnus-close-group (group)
245 "Request the GROUP be closed." 245 "Request the GROUP be closed."
246 (let ((method (gnus-find-method-for-group group))) 246 (let ((method (inline (gnus-find-method-for-group group))))
247 (funcall (gnus-get-function method 'close-group) 247 (funcall (gnus-get-function method 'close-group)
248 (gnus-group-real-name group) (nth 1 method)))) 248 (gnus-group-real-name group) (nth 1 method))))
249 249
250 (defun gnus-retrieve-headers (articles group &optional fetch-old) 250 (defun gnus-retrieve-headers (articles group &optional fetch-old)
251 "Request headers for ARTICLES in GROUP. 251 "Request headers for ARTICLES in GROUP.