[Emacs-diffs] Changes to emacs/lisp/gnus/mm-view.el,v

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   07/11/16 16:50:36

Index: gnus/mm-view.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/mm-view.el,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- gnus/mm-view.el     28 Oct 2007 09:18:29 -0000      1.31
+++ gnus/mm-view.el     16 Nov 2007 16:50:32 -0000      1.32
@@ -97,6 +97,7 @@
          (delete-region b (+ b 2)))))))
 
 (defun mm-inline-image-xemacs (handle)
+  (when (featurep 'xemacs)
   (insert "\n\n")
   (forward-char -2)
   (let ((annot (make-annotation (mm-get-image handle) nil 'text))
@@ -109,7 +110,7 @@
          (delete-annotation ,annot)
          (delete-region (- b 2) b))))
     (set-extent-property annot 'mm t)
-    (set-extent-property annot 'duplicable t)))
+      (set-extent-property annot 'duplicable t))))
 
 (eval-and-compile
   (if (featurep 'xemacs)
@@ -568,7 +569,7 @@
       ;; By default, XEmacs font-lock uses non-duplicable text
       ;; properties.  This code forces all the text properties
       ;; to be copied along with the text.
-      (when (fboundp 'extent-list)
+      (when (featurep 'xemacs)
        (map-extents (lambda (ext ignored)
                       (set-extent-property ext 'duplicable t)
                       nil)