(defvar smiley-data-directory (message-xmas-find-glyph-directory "smilies")
"Location of the smiley faces files.")
(defvar smiley-data-directory (message-xmas-find-glyph-directory "smilies")
"Location of the smiley faces files.")
(when (extentp (setq ext (extent-property ant 'smiley-extent)))
(set-extent-property ext 'invisible nil)
(hide-annotation ant))
(when (extentp (setq ext (extent-property ant 'smiley-extent)))
(set-extent-property ext 'invisible nil)
(hide-annotation ant))
- (if pt
- (while (setq ext (extent-at pt (event-buffer event) nil ext 'at))
- (when (annotationp (setq ant
- (extent-property ext 'smiley-annotation)))
- (reveal-annotation ant)
- (set-extent-property ext 'invisible t)))))))
+ (when pt
+ (while (setq ext (extent-at pt (event-buffer event) nil ext 'at))
+ (when (annotationp (setq ant
+ (extent-property ext 'smiley-annotation)))
+ (reveal-annotation ant)
+ (set-extent-property ext 'invisible t)))))))
(let ((ext (make-extent start end))
(ant (make-annotation glyph end 'text)))
;; set text extent params
(let ((ext (make-extent start end))
(ant (make-annotation glyph end 'text)))
;; set text extent params
(set-extent-property ext 'keymap smiley-map)
(set-extent-property ext 'mouse-face gnus-article-mouse-face)
(set-extent-property ext 'keymap smiley-map)
(set-extent-property ext 'mouse-face gnus-article-mouse-face)
;; set annotation params
(set-extent-property ant 'mouse-face gnus-article-mouse-face)
(set-extent-property ant 'keymap smiley-map)
;; set annotation params
(set-extent-property ant 'mouse-face gnus-article-mouse-face)
(set-extent-property ant 'keymap smiley-map)