Quoting fixes

[gnus] / lisp / messagexmas.el

diff --git a/lisp/messagexmas.el b/lisp/messagexmas.el
index 2bb020d..22f93e5 100644 (file)
--- a/lisp/messagexmas.el
+++ b/lisp/messagexmas.el
@@ -182,17 +182,6 @@ If NOW, use that time instead."
     'region-exists-p)
   (defalias 'message-make-caesar-translation-table
     'message-xmas-make-caesar-translation-table)
-  (defalias 'message-delete-overlay 'delete-extent)
-  (defun message-make-overlay (beg end &optional buffer
-                                  front-advance rear-advance)
-    "Create a new overlay with range BEG to END in BUFFER.
-FRONT-ADVANCE and REAR-ADVANCE are ignored."
-    (make-extent beg end buffer))
-  (defalias 'message-overlay-get 'extent-property)
-  (defalias 'message-overlay-put 'set-extent-property)
-  (defun message-overlays-in (beg end)
-    "Return a list of the extents that overlap the region BEG ... END."
-    (mapcar-extents #'identity nil nil beg end))
   (defalias 'message-make-date 'message-xmas-make-date))
 
 (message-xmas-redefine)