2003-06-24 Lars Magne Ingebrigtsen <larsi@gnus.org>
+ * gnus-ems.el (gnus-put-image): Mark the right text segment with
+ gnus-image-category.
+
* gnus-srvr.el (gnus-browse-unsubscribe-group): Strip prefix from
native groups.
(apply 'create-image file type data-p props)))
(defun gnus-put-image (glyph &optional string category)
- (insert-image glyph (or string " "))
- (put-text-property (1- (point)) (point) 'gnus-image-category category)
- (unless string
- (put-text-property (1- (point)) (point)
- 'gnus-image-text-deletable t))
- glyph)
+ (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)
(dolist (position (message-text-with-property 'display))