X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fsmiley.el;h=8c1282d0b66bf81e03dd79dc2bd36409920bb97f;hb=9a60f093f45ad3169be0d0cc4a2bf75ba599aca8;hp=c2841cb83d3bbcb78d6a355b8a274a9ba48a8469;hpb=4e6ed4bd8e175ab78acf62b8f5e9a8af0e703992;p=gnus

diff --git a/lisp/smiley.el b/lisp/smiley.el
index c2841cb83..8c1282d0b 100644
--- a/lisp/smiley.el
+++ b/lisp/smiley.el
@@ -132,9 +132,19 @@ A list of images is returned."
 	      (push image images)
 	      (gnus-add-wash-type 'smiley)
 	      (gnus-add-image 'smiley image)
-	      (gnus-put-image image string))))
+	      (gnus-put-image image string 'smiley))))
 	images))))
 
+;;;###autoload
+(defun smiley-buffer (&optional buffer)
+  "Run `smiley-region' at the buffer, specified in the argument or
+interactively. If there's no argument, do it at the current buffer"
+  (interactive "bBuffer to run smiley-region: ")
+  (save-excursion
+    (if buffer
+	(set-buffer (get-buffer buffer)))
+    (smiley-region (point-min) (point-max))))
+
 (defun smiley-toggle-buffer (&optional arg)
   "Toggle displaying smiley faces in article buffer.
 With arg, turn displaying on if and only if arg is positive."