Mercurial > emacs

comparison lisp/gnus/gnus-int.el @ 110199:46ace9f35be1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gnus-int.el (gnus-request-group): Indent.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Sun, 05 Sep 2010 01:31:15 +0000
parents 821c596efa5f
children f2e111723c3a
comparison
equal deleted inserted replaced
110198:8867a7812454 110199:46ace9f35be1
363 (let ((gnus-command-method 363 (let ((gnus-command-method
364 (or gnus-command-method (inline (gnus-find-method-for-group group))))) 364 (or gnus-command-method (inline (gnus-find-method-for-group group)))))
365 (when (stringp gnus-command-method) 365 (when (stringp gnus-command-method)
366 (setq gnus-command-method 366 (setq gnus-command-method
367 (inline (gnus-server-to-method gnus-command-method)))) 367 (inline (gnus-server-to-method gnus-command-method))))
368 (funcall (inline (gnus-get-function gnus-command-method 'request-group)) 368 (funcall (inline (gnus-get-function gnus-command-method 'request-group))
369 (gnus-group-real-name group) (nth 1 gnus-command-method) 369 (gnus-group-real-name group) (nth 1 gnus-command-method)
370 dont-check))) 370 dont-check)))
371 371
372 (defun gnus-list-active-group (group) 372 (defun gnus-list-active-group (group)
373 "Request active information on GROUP." 373 "Request active information on GROUP."