(const right))
:group 'gnus-picon)
+(defface gnus-picon '((t (:foreground "black" :background "white")))
+ "Face to show picon in."
+ :group 'gnus-picon)
+
;;; Internal variables:
(defvar gnus-picon-glyph-alist nil
(insert glyph)
(gnus-add-wash-type category)
(gnus-add-image category (car glyph))
- (gnus-put-image (car glyph) (unless nostring (cdr glyph)) category)))
+ (let ((start (point)))
+ (gnus-put-image (car glyph) (unless nostring (cdr glyph)) category)
+ (put-text-property start (point) 'face 'gnus-picon))))
(defun gnus-picon-create-glyph (file)
(or (cdr (assoc file gnus-picon-glyph-alist))