Mercurial > emacs
diff lisp/gnus/gnus-ems.el @ 110054:fe1595694e7e
Fix previous merge from Gnus trunk.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Tue, 31 Aug 2010 00:51:08 +0000 |
parents | 46d881ed5491 |
children | 2af503eb57ef |
line wrap: on
line diff
--- a/lisp/gnus/gnus-ems.el Tue Aug 31 00:42:27 2010 +0000 +++ b/lisp/gnus/gnus-ems.el Tue Aug 31 00:51:08 2010 +0000 @@ -274,15 +274,13 @@ (setq props (plist-put props :background (face-background face)))) (apply 'create-image file type data-p props))) -(defun gnus-put-image (glyph &optional string category point) - (let ((point (or point (point)))) - (save-excursion - (goto-char point) - (insert-image glyph (or string " ")) - (put-text-property point (point) 'gnus-image-category category) - (unless string - (put-text-property (1- (point)) (point) - 'gnus-image-text-deletable t))) +(defun gnus-put-image (glyph &optional string category) + (let ((point (point))) + (insert-image glyph (or string " ")) + (put-text-property point (point) 'gnus-image-category category) + (unless string + (put-text-property (1- (point)) (point) + 'gnus-image-text-deletable t)) glyph)) (defun gnus-remove-image (image &optional category)