[gnus git] branch master updated: m0-13-41-g6c0308e =1= Work for XEmacs

       via  6c0308e124c47cdf7efbd8512089904b05f33d9b (commit)
      from  37b1b9ea0c7f7482525330d35a752bdd3ba43d68 (commit)


- Log -----------------------------------------------------------------
commit 6c0308e124c47cdf7efbd8512089904b05f33d9b
Author: Katsumi Yamaoka <[email protected]>
Date:   Mon Aug 17 23:14:12 2015 +0000

    Work for XEmacs
    
    * message.el (message-overlay-get, message-overlays-in)
    (message-window-inside-pixel-edges):
    * messagexmas.el (message-overlay-get, message-overlays-in):
    XEmacs compatible functions.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ae950f1..1453f60 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2015-08-17  Katsumi Yamaoka  <[email protected]>
+
+	* message.el (message-overlay-get, message-overlays-in)
+	(message-window-inside-pixel-edges):
+	* messagexmas.el (message-overlay-get, message-overlays-in):
+	XEmacs compatible functions.
+
 2015-08-17  Lars Magne Ingebrigtsen  <[email protected]>
 
 	* message.el (message-toggle-image-thumbnails): New command.
diff --git a/lisp/message.el b/lisp/message.el
index 4775af7..9e54a94 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -7929,13 +7929,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)
@@ -8604,12 +8610,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
@@ -8617,7 +8623,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
diff --git a/lisp/messagexmas.el b/lisp/messagexmas.el
index 1746310..2bb020d 100644
--- a/lisp/messagexmas.el
+++ b/lisp/messagexmas.el
@@ -182,9 +182,17 @@ If NOW, use that time instead."
     'region-exists-p)
   (defalias 'message-make-caesar-translation-table
     'message-xmas-make-caesar-translation-table)
-  (defalias 'message-make-overlay 'make-extent)
   (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)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog      |    7 +++++++
 lisp/message.el     |   28 +++++++++++++++++-----------
 lisp/messagexmas.el |   10 +++++++++-
 3 files changed, 33 insertions(+), 12 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project