diff options
| author | Vincent Bernat <bernat@luffy.cx> | 2015-02-05 03:59:47 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2015-02-05 03:59:47 +0000 |
| commit | 2c6d035968e865d70512086c310f0584b1d6eadc (patch) | |
| tree | 802f2731ee765f47627c6e3f82a8c98d80ea797c | |
| parent | a68786dd2d9e1ca82f3afe29d61953a1eb36b75c (diff) | |
| download | emacs-2c6d035968e865d70512086c310f0584b1d6eadc.tar.gz | |
[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.
| -rw-r--r-- | lisp/gnus/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/gnus/gnus-int.el | 2 | ||||
| -rw-r--r-- | 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 <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 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) |