lisp/mh-e/mh-funcs.el (mh-undo-folder): Make compatible with `revert-buffer' (bug...

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 4b904ed2b7a4ea2cbdbb80b3eb8aa804a7a6bb8f..7b48dcbbe83c6abe430726d18ff64ac43e79c6a8 100644 (file)
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-06  Juanma Barranquero  <lekktu@gmail.com>
+
+       * mh-funcs.el (mh-undo-folder): Accept and ignore arguments,
+       for compatibility with `revert-buffer'.  Doc fix.  (Bug#8431)
+
 2011-03-05  Antoine Levitt  <antoine.levitt@gmail.com>
 
        * 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 c3f301e649d5114e749f489145e5f042477e8fd8..dfac684ed50285cb54c717b742221934a9742c3a 100644 (file)
--- 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? "))