[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master d98ae99 2/2: Remove some Message compat functions
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master d98ae99 2/2: Remove some Message compat functions |
Date: |
Sat, 13 Feb 2016 08:01:22 +0000 |
branch: master
commit d98ae99839a81c6279387a5e7679298f799fa99e
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
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 files changed, 3 insertions(+), 15 deletions(-)
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 0a80646..9ab44fa 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 "<img.*src=\"\\([^\"]+\\)" nil t)
(let ((file (match-string 1))
- (edges (message-window-inside-pixel-edges
+ (edges (window-inside-pixel-edges
(get-buffer-window (current-buffer)))))
(put-image
(create-image