Synch to No Gnus 200501120840.

[elisp/gnus.git-] / lisp / smiley.el

diff --git a/lisp/smiley.el b/lisp/smiley.el
index 0411264..0a4107e 100644 (file)
--- a/lisp/smiley.el
+++ b/lisp/smiley.el
@@ -137,6 +137,7 @@ regexp to replace with IMAGE.  IMAGE is the name of a PBM file in
       (push "xbm" types))
     types)
   "*List of suffixes on picon file names to try."
+  :version "21.4"
   :type '(repeat string)
   :group 'smiley)
 
@@ -195,7 +196,7 @@ A list of images is returned."
                (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)