projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Synch to No Gnus 200406292138.
[elisp/gnus.git-]
/
lisp
/
gnus-xmas.el
diff --git
a/lisp/gnus-xmas.el
b/lisp/gnus-xmas.el
index
92d9d8e
..
f13a1e4
100644
(file)
--- a/
lisp/gnus-xmas.el
+++ b/
lisp/gnus-xmas.el
@@
-914,12
+914,13
@@
Warning: Don't insert text immediately after the image."
glyph)
(defun gnus-xmas-remove-image (image &optional category)
glyph)
(defun gnus-xmas-remove-image (image &optional category)
+ "Remove the image matching IMAGE and CATEGORY found first."
(map-extents
(lambda (ext unused)
(when (equal (extent-end-glyph ext) image)
(set-extent-property ext 'invisible nil)
(map-extents
(lambda (ext unused)
(when (equal (extent-end-glyph ext) image)
(set-extent-property ext 'invisible nil)
- (set-extent-property ext 'end-glyph nil))
- nil)
+ (set-extent-property ext 'end-glyph nil)
+ t))
nil nil nil nil nil 'gnus-image category))
(defun gnus-xmas-assq-delete-all (key alist)
nil nil nil nil nil 'gnus-image category))
(defun gnus-xmas-assq-delete-all (key alist)