From 2c6d035968e865d70512086c310f0584b1d6eadc Mon Sep 17 00:00:00 2001 From: Vincent Bernat Date: Thu, 5 Feb 2015 03:59:47 +0000 Subject: [PATCH] [Gnus] Make `M-g' in the group buffer work again * gnus-int.el (gnus-request-group-scan): Use the correct function name. * nnimap.el (nnimap-request-group-scan): Fix the function name. --- lisp/gnus/ChangeLog | 6 ++++++ lisp/gnus/gnus-int.el | 2 +- lisp/gnus/nnimap.el | 2 +- 3 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index e3735816ff2..0de7af4128d 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2015-02-05 Vincent Bernat (tiny change) + + * nnimap.el (nnimap-request-group-scan): Fix the function name. + + * gnus-int.el (gnus-request-group-scan): Use the correct function name. + 2015-02-05 Lars Ingebrigtsen * gnus-sum.el (gnus-select-newsgroup): Pass the group info along so diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el index dd938ce0758..4e870bb84bb 100644 --- a/lisp/gnus/gnus-int.el +++ b/lisp/gnus/gnus-int.el @@ -442,7 +442,7 @@ If it is down, start it up (again)." (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)) + (func 'request-group-scan)) (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)))) diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el index e619c0f13c2..cdbc2a68709 100644 --- a/lisp/gnus/nnimap.el +++ b/lisp/gnus/nnimap.el @@ -820,7 +820,7 @@ textual parts.") group)) t)))) -(deffoo nnimap-request-scan-group (group &optional server info) +(deffoo nnimap-request-group-scan (group &optional server info) (setq group (nnimap-decode-gnus-group group)) (let (marks high low) (with-current-buffer (nnimap-buffer) -- 2.39.2