diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2015-01-26 04:18:57 +0000 |
---|---|---|
committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2015-01-26 04:18:57 +0000 |
commit | 8e39ec680c7068c2dc2143bf915e5acca7bf7c0f (patch) | |
tree | 89598639b850e639377adea7a877a1a1a5a40739 /lisp/gnus/gnus-int.el | |
parent | 44df0a8f506db385473ed36c2a5fa26e06e7788d (diff) | |
download | emacs-8e39ec680c7068c2dc2143bf915e5acca7bf7c0f.tar.gz |
[Gnus] Make moving IMAP articles faster in large groups
Diffstat (limited to 'lisp/gnus/gnus-int.el')
-rw-r--r-- | lisp/gnus/gnus-int.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el index 487b85f581d..dd938ce0758 100644 --- a/lisp/gnus/gnus-int.el +++ b/lisp/gnus/gnus-int.el @@ -439,6 +439,14 @@ If it is down, start it up (again)." (funcall (gnus-get-function gnus-command-method func) (gnus-group-real-name group) (nth 1 gnus-command-method))))) +(defun gnus-request-group-scan (group info) + "Request that GROUP get a complete rescan." + (let ((gnus-command-method (gnus-find-method-for-group group)) + (func 'request-group-description)) + (when (gnus-check-backend-function func group) + (funcall (gnus-get-function gnus-command-method func) + (gnus-group-real-name group) (nth 1 gnus-command-method) info)))) + (defun gnus-close-group (group) "Request the GROUP be closed." (let ((gnus-command-method (inline (gnus-find-method-for-group group)))) |