;;; messagexmas.el --- XEmacs extensions to message
-;; Copyright (C) 1996, 1997, 1998, 1999, 2000
+;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2003
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
"Redefine message functions for XEmacs."
(defalias 'message-exchange-point-and-mark
'message-xmas-exchange-point-and-mark)
-
+ (defalias 'message-mark-active-p
+ 'region-exists-p)
(when (>= emacs-major-version 20)
(defalias 'message-make-caesar-translation-table
'message-xmas-make-caesar-translation-table)))