From 1f4735b90f34ec9189df1c9fa51761202e4f73c0 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Apr 2011 03:14:03 +0200 Subject: [PATCH] lisp/mh-e/mh-funcs.el (mh-undo-folder): Make compatible with `revert-buffer' (bug#8431). --- lisp/mh-e/ChangeLog | 5 +++++ lisp/mh-e/mh-funcs.el | 5 +++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index 4b904ed2b7..7b48dcbbe8 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -1,3 +1,8 @@ +2011-04-06 Juanma Barranquero + + * mh-funcs.el (mh-undo-folder): Accept and ignore arguments, + for compatibility with `revert-buffer'. Doc fix. (Bug#8431) + 2011-03-05 Antoine Levitt * mh-funcs.el (mh-store-msg, mh-store-buffer): diff --git a/lisp/mh-e/mh-funcs.el b/lisp/mh-e/mh-funcs.el index c3f301e649..dfac684ed5 100644 --- a/lisp/mh-e/mh-funcs.el +++ b/lisp/mh-e/mh-funcs.el @@ -349,8 +349,9 @@ See `mh-store-msg' for a description of DIRECTORY." (error "Error occurred during execution of %s" command))))) ;;;###mh-autoload -(defun mh-undo-folder () - "Undo all refiles and deletes in the current folder." +(defun mh-undo-folder (&rest _ignored) + "Undo all refiles and deletes in the current folder. +Arguments are IGNORED (for `revert-buffer')." (interactive) (cond ((or mh-do-not-confirm-flag (yes-or-no-p "Undo all commands in folder? ")) -- 2.20.1