dialog-boxes in mailcrypt under XEmacs

I had to apply the following to make mailcrypt work on an XEmacs without dialog boxes. I don't have any FSF emacs around -- do they have something like should-use-dialog-box-p? patch is against the 1.08 XEmacs package (3.5.3) Gunnar --- mailcrypt/mailcrypt.el.orig Sat Jun 12 14:06:45 1999 +++ mailcrypt/mailcrypt.el Sat Jun 12 14:14:51 1999 ＠＠ -430,7 +430,7 ＠＠ (match-beginning 0) (match-end 0)) (setq retval nil) default)))) - (if msg (if window-system + (if msg (if (should-use-dialog-box-p) (progn (message nil) (message-box "%s" msg)) (message "%s" msg))) retval)) -- Gunnar Evermann Speech, Vision & Robotics Group Engineering Department Cambridge University