Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-int.el @ 42:8b8b7f3559a2 r19-15b104

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b104
author cvs
date Mon, 13 Aug 2007 08:54:51 +0200
parents e04119814345
children 1856695b1fa9
comparison
equal deleted inserted replaced
41:5d6df4963a99 42:8b8b7f3559a2
329 (funcall (gnus-get-function method 'request-post) (nth 1 method))) 329 (funcall (gnus-get-function method 'request-post) (nth 1 method)))
330 330
331 (defun gnus-request-scan (group method) 331 (defun gnus-request-scan (group method)
332 "Request a SCAN being performed in GROUP from METHOD. 332 "Request a SCAN being performed in GROUP from METHOD.
333 If GROUP is nil, all groups on METHOD are scanned." 333 If GROUP is nil, all groups on METHOD are scanned."
334 (let ((method (if group (gnus-find-method-for-group group) method))) 334 (let ((method (if group (gnus-find-method-for-group group) method))
335 (gnus-inhibit-demon t))
335 (funcall (gnus-get-function method 'request-scan) 336 (funcall (gnus-get-function method 'request-scan)
336 (and group (gnus-group-real-name group)) (nth 1 method)))) 337 (and group (gnus-group-real-name group)) (nth 1 method))))
337 338
338 (defsubst gnus-request-update-info (info method) 339 (defsubst gnus-request-update-info (info method)
339 "Request that METHOD update INFO." 340 "Request that METHOD update INFO."
408 (gnus-group-real-name new-name) (nth 1 method)))) 409 (gnus-group-real-name new-name) (nth 1 method))))
409 410
410 (defun gnus-close-backends () 411 (defun gnus-close-backends ()
411 ;; Send a close request to all backends that support such a request. 412 ;; Send a close request to all backends that support such a request.
412 (let ((methods gnus-valid-select-methods) 413 (let ((methods gnus-valid-select-methods)
414 (gnus-inhibit-demon t)
413 func method) 415 func method)
414 (while (setq method (pop methods)) 416 (while (setq method (pop methods))
415 (when (fboundp (setq func (intern 417 (when (fboundp (setq func (intern
416 (concat (car method) "-request-close")))) 418 (concat (car method) "-request-close"))))
417 (funcall func))))) 419 (funcall func)))))