:group 'gnus-visual)
;; Maybe this should go.
-(defcustom smiley-data-directory (nnheader-find-etc-directory "smilies")
+(defcustom smiley-data-directory (nnheader-find-etc-directory "images/smilies")
"*Location of the smiley faces files."
:type 'directory
:group 'smiley)
(push "xbm" types))
types)
"*List of suffixes on picon file names to try."
+ :version "22.1"
:type '(repeat string)
:group 'smiley)
(gnus-add-image 'smiley image)
(put-text-property (point)
(progn
- (gnus-put-image image string)
+ (gnus-put-image image string 'smiley)
(point))
'smilified t)))))
(put-text-property beg (or end (point-max)) 'smilified nil)