(message-info): Don't use booleanp which isn't supported

in Emacs 21 and XEmacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2ae4425..e59d961 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-03-24  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * message.el (message-info): Don't use booleanp which isn't supported
+       in Emacs 21 and XEmacs.
+
 2008-03-22  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * gnus-group.el (gnus-gmane-group-download-format): Rename from

diff --git a/lisp/message.el b/lisp/message.el
index 37705e4..16440db 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2485,7 +2485,8 @@ PGG manual, depending on the value of `mml2015-use'."
   (Info-goto-node (format "(%s)Top"
                          (cond ((eq arg 16) mml2015-use)
                                ((eq arg  4) 'emacs-mime)
-                               ((and (not (booleanp arg))
+                               ;; `booleanp' only available in Emacs 22+
+                               ((and (not (memq arg '(nil t)))
                                      (symbolp arg))
                                 arg)
                                (t