[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.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index e3735816ff26855732ba47965f7e5457f0088616..0de7af4128d24a793e692fe83c0c38e477579b09 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,9 @@
+2015-02-05  Vincent Bernat  <bernat@luffy.cx>  (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  <larsi@gnus.org>
 
        * 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 dd938ce07586caeeada7ee51f02574cc7c28e3e8..4e870bb84bb9a1d1f4a268c08ea25d0925cefcaf 100644 (file)
--- 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 e619c0f13c29dd16863ea70c291599fb0d6732f8..cdbc2a68709b180e902d380c4abc9833eeaf2ba8 100644 (file)
--- 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)