[Emacs-diffs] /srv/bzr/emacs/trunk r103833: lisp/mh-e/mh-funcs.el (mh-undo-folder): Make compatible with `revert-buffer' (bug#8431).

[Juanma Barranquero]

------------------------------------------------------------
revno: 103833
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Wed 2011-04-06 03:14:03 +0200
message:
  lisp/mh-e/mh-funcs.el (mh-undo-folder): Make compatible with `revert-buffer' 
(bug#8431).
modified:
  lisp/mh-e/ChangeLog
  lisp/mh-e/mh-funcs.el

=== modified file 'lisp/mh-e/ChangeLog'
--- a/lisp/mh-e/ChangeLog       2011-03-12 19:19:47 +0000
+++ b/lisp/mh-e/ChangeLog       2011-04-06 01:14:03 +0000
@@ -1,3 +1,8 @@
+2011-04-06  Juanma Barranquero  <address@hidden>
+
+       * mh-funcs.el (mh-undo-folder): Accept and ignore arguments,
+       for compatibility with `revert-buffer'.  Doc fix.  (Bug#8431)
+
 2011-03-05  Antoine Levitt  <address@hidden>
 
        * mh-funcs.el (mh-store-msg, mh-store-buffer):

=== modified file 'lisp/mh-e/mh-funcs.el'
--- a/lisp/mh-e/mh-funcs.el     2011-03-05 21:56:00 +0000
+++ b/lisp/mh-e/mh-funcs.el     2011-04-06 01:14:03 +0000
@@ -349,8 +349,9 @@
         (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? "))