[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 2c6d035 4/5: [Gnus] Make `M-g' in the group buffer
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] master 2c6d035 4/5: [Gnus] Make `M-g' in the group buffer work again |
Date: |
Thu, 05 Feb 2015 04:03:13 +0000 |
branch: master
commit 2c6d035968e865d70512086c310f0584b1d6eadc
Author: Vincent Bernat <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>
[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 e373581..0de7af4 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,9 @@
+2015-02-05 Vincent Bernat <address@hidden> (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 <address@hidden>
* 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 dd938ce..4e870bb 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 e619c0f..cdbc2a6 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)