Make mh-do-in-gnu-emacs obsolete

* lisp/mh-e/mh-acros.el (mh-do-in-gnu-emacs): Make obsolete.
* lisp/mh-e/mh-tool-bar.el: Don't use above obsolete macro.
(mh-acros): Require to avoid warnings.
Thanks to Lars Ingebrigtsen <larsi@gnus.org>.

diff --git a/lisp/mh-e/mh-acros.el b/lisp/mh-e/mh-acros.el
index d18579d7ea6cbf6d7c9a8abb49f36ffde811b373..575b233e1be374c3f1357b9a2dba5ffbbe358841 100644 (file)
--- a/lisp/mh-e/mh-acros.el
+++ b/lisp/mh-e/mh-acros.el
@@ -47,16 +47,13 @@
 ;;;###mh-autoload
 (defmacro mh-do-in-gnu-emacs (&rest body)
   "Execute BODY if in GNU Emacs."
-  ;; FIXME: This cannot yet be obsoleted, due to one remaining call in
-  ;; mh-tool-bar.el.  Once that is removed, this can be obsoleted.
-  (declare ;; (obsolete nil "29.1")
-   (debug t) (indent defun))
+  (declare (obsolete progn "29.1") (debug t) (indent defun))
   (unless (featurep 'xemacs) `(progn ,@body)))
 
 ;;;###mh-autoload
 (defmacro mh-do-in-xemacs (&rest body)
   "Execute BODY if in XEmacs."
-  (declare (obsolete nil "29.1") (debug t) (indent defun))
+  (declare (obsolete ignore "29.1") (debug t) (indent defun))
   (when (featurep 'xemacs) `(progn ,@body)))
 
 ;;;###mh-autoload

diff --git a/lisp/mh-e/mh-tool-bar.el b/lisp/mh-e/mh-tool-bar.el
index 22ed477b57c27eab32b12826f1bef75459b2c23e..ca08cc3b35dddeabd595bb6879a4980424813bf3 100644 (file)
--- a/lisp/mh-e/mh-tool-bar.el
+++ b/lisp/mh-e/mh-tool-bar.el
@@ -27,10 +27,8 @@
 ;;; Code:
 
 (require 'mh-e)
-;; FIXME: Figure out why removing the call to the `mh-do-in-gnu-emacs'
-;;        macro here leads to errors.
-(mh-do-in-gnu-emacs
-  (require 'tool-bar))
+(require 'mh-acros)
+(require 'tool-bar)
 
 ;;; Tool Bar Commands