* message.el (message-make-overlay): Defalias it to make-overlay.

(message-delete-overlay): Defalias it to delete-overlay.
(message-overlay-put): Defalias it to overlay-put.
(message-idna-to-ascii-rhs-1): Use them.

* messagexmas.el (message-xmas-redefine): Defalias some overlay functions
 to extent functions.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 099ce5e..ce6a708 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2003-03-20  Katsumi Yamaoka <yamaoka@jpl.org>
+
+       * message.el (message-make-overlay): Defalias it to make-overlay.
+       (message-delete-overlay): Defalias it to delete-overlay.
+       (message-overlay-put): Defalias it to overlay-put.
+       (message-idna-to-ascii-rhs-1): Use them.
+
+       * messagexmas.el (message-xmas-redefine): Defalias some overlay
+       functions to extent functions.
+
 2003-03-20  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * message.el (message-check-news-header-syntax): Fixed regexp.

diff --git a/lisp/message.el b/lisp/message.el
index e78d07c..eb1ab4e 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4677,12 +4677,13 @@ I.e., calling it on a Subject: header is useless."
                     (if (eq message-use-idna 'ask)
                         (unwind-protect
                             (progn
-                              (setq ovl (make-overlay startpos endpos))
-                              (overlay-put ovl 'face 'highlight)
+                              (setq ovl (message-make-overlay startpos
+                                                              endpos))
+                              (message-overlay-put ovl 'face 'highlight)
                               (y-or-n-p
                                (format "Replace with `%s'? " ace)))
                           (message "")
-                          (delete-overlay ovl))
+                          (message-delete-overlay ovl))
                       message-use-idna)))
          (replace-match (concat "@" ace)))))))
 
@@ -6137,6 +6138,9 @@ which specify the range to operate on."
            (delete-char -2))))))
 
 (defalias 'message-exchange-point-and-mark 'exchange-point-and-mark)
+(defalias 'message-make-overlay 'make-overlay)
+(defalias 'message-delete-overlay 'delete-overlay)
+(defalias 'message-overlay-put 'overlay-put)
 
 ;; Support for toolbar
 (eval-when-compile

diff --git a/lisp/messagexmas.el b/lisp/messagexmas.el
index 694626e..364e685 100644 (file)
--- a/lisp/messagexmas.el
+++ b/lisp/messagexmas.el
@@ -124,7 +124,10 @@ If it is non-nil, it must be a toolbar.  The five valid values are
     'region-exists-p)
   (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)