projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Feedback from the t-gnus-6_15 branch.
[elisp/gnus.git-]
/
lisp
/
messagexmas.el
diff --git
a/lisp/messagexmas.el
b/lisp/messagexmas.el
index
b3be4ee
..
d94afa8
100644
(file)
--- a/
lisp/messagexmas.el
+++ b/
lisp/messagexmas.el
@@
-1,6
+1,6
@@
;;; messagexmas.el --- XEmacs extensions to message
;;; 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>
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@
-118,12
+118,16
@@
If it is non-nil, it must be a toolbar. The five valid values are
(defun message-xmas-redefine ()
"Redefine message functions for XEmacs."
(defun message-xmas-redefine ()
"Redefine message functions for XEmacs."
- (defalias 'message-exchange-point-and-mark
+ (defalias 'message-exchange-point-and-mark
'message-xmas-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
(when (>= emacs-major-version 20)
(defalias 'message-make-caesar-translation-table
- 'message-xmas-make-caesar-translation-table)))
+ 'message-xmas-make-caesar-translation-table))
+ (defalias 'message-make-overlay 'make-extent)
+ (defalias 'message-delete-overlay 'delete-extent)
+ (defalias 'message-overlay-put 'set-extent-property))
(message-xmas-redefine)
(message-xmas-redefine)