From d98ae99839a81c6279387a5e7679298f799fa99e Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sat, 13 Feb 2016 19:00:04 +1100 Subject: [PATCH] Remove some Message compat functions * lisp/gnus/message.el (message-kill-all-overlays): Define unconditionally. (message-window-inside-pixel-edges): Remove. (mail-dont-reply-to): Remove. --- lisp/gnus/message.el | 18 +++--------------- 1 file changed, 3 insertions(+), 15 deletions(-) diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 0a806467058..9ab44fab12d 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -1936,20 +1936,8 @@ You must have the \"hashcash\" binary installed, see `hashcash-path'." (autoload 'rmail-msg-is-pruned "rmail") (autoload 'rmail-output "rmailout") -;; Emacs < 24.1 do not have mail-dont-reply-to -(unless (fboundp 'mail-dont-reply-to) - (defalias 'mail-dont-reply-to 'rmail-dont-reply-to)) - -(eval-and-compile - (if (featurep 'emacs) - (progn - (defun message-kill-all-overlays () - (mapcar #'delete-overlay (overlays-in (point-min) (point-max)))) - (defalias 'message-window-inside-pixel-edges - 'window-inside-pixel-edges)) - (defun message-kill-all-overlays () - (map-extents (lambda (extent ignore) (delete-extent extent)))) - (defalias 'message-window-inside-pixel-edges 'ignore))) +(defun message-kill-all-overlays () + (mapcar #'delete-overlay (overlays-in (point-min) (point-max)))) @@ -8510,7 +8498,7 @@ Used in `message-simplify-recipients'." (goto-char (point-min)) (while (re-search-forward "