diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2015-08-17 23:21:29 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2015-08-17 23:21:29 +0000 |
| commit | 0b67a2005656395d1f8dbdaebf0150893e130aaf (patch) | |
| tree | 339ca4f32c9629ebb72c2a4142e9dfea44147f15 /lisp/gnus/message.el | |
| parent | bb86261cbcc9d0f25730e0044042e43748b84134 (diff) | |
| download | emacs-0b67a2005656395d1f8dbdaebf0150893e130aaf.tar.gz | |
* lisp/gnus/message.el (message-overlay-get, message-overlays-in)
(message-window-inside-pixel-edges): XEmacs compatible functions.
Diffstat (limited to 'lisp/gnus/message.el')
| -rw-r--r-- | lisp/gnus/message.el | 28 |
1 files changed, 17 insertions, 11 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index bc6185fd517..7e39aa9d3c1 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -7885,13 +7885,19 @@ which specify the range to operate on." (goto-char (prog1 (mark t) (set-marker (mark-marker) (point))))) -(defalias 'message-make-overlay 'make-overlay) -(defalias 'message-delete-overlay 'delete-overlay) -(defalias 'message-overlay-put 'overlay-put) -(defun message-kill-all-overlays () - (if (featurep 'xemacs) - (map-extents (lambda (extent ignore) (delete-extent extent))) - (mapcar #'delete-overlay (overlays-in (point-min) (point-max))))) +(if (featurep 'emacs) + (progn + (defalias 'message-delete-overlay 'delete-overlay) + (defun message-kill-all-overlays () + (mapcar #'delete-overlay (overlays-in (point-min) (point-max)))) + (defalias 'message-make-overlay 'make-overlay) + (defalias 'message-overlay-get 'overlay-get) + (defalias 'message-overlay-put 'overlay-put) + (defalias 'message-overlays-in 'overlays-in) + (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)) ;; Support for toolbar (defvar tool-bar-mode) @@ -8559,12 +8565,12 @@ Used in `message-simplify-recipients'." (defun message-toggle-image-thumbnails () "For any included image files, insert a thumbnail of that image." (interactive) - (let ((overlays (overlays-in (point-min) (point-max))) + (let ((overlays (message-overlays-in (point-min) (point-max))) (displayed nil)) (while overlays (let ((overlay (car overlays))) - (when (overlay-get overlay 'put-image) - (delete-overlay overlay) + (when (message-overlay-get overlay 'put-image) + (message-delete-overlay overlay) (setq displayed t))) (setq overlays (cdr overlays))) (unless displayed @@ -8572,7 +8578,7 @@ Used in `message-simplify-recipients'." (goto-char (point-min)) (while (re-search-forward "<img.*src=\"\\([^\"]+\\)" nil t) (let ((file (match-string 1)) - (edges (window-inside-pixel-edges + (edges (message-window-inside-pixel-edges (get-buffer-window (current-buffer))))) (put-image (create-image |