2003-03-26 Vasily Korytov <deskpot@myrealbox.com>

	* smiley.el (smiley-buffer): New function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8c55822..223fa23 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-03-26  Vasily Korytov  <deskpot@myrealbox.com>
+
+       * smiley.el (smiley-buffer): New function.
+       
 2003-03-26  Kevin Greiner <kgreiner@xpediantsolutions.com>
 
        * gnus-agent.el (gnus-agent-fetch-selected-article): Replaced

diff --git a/lisp/smiley.el b/lisp/smiley.el
index c2841cb..a85a170 100644 (file)
--- a/lisp/smiley.el
+++ b/lisp/smiley.el
@@ -135,6 +135,16 @@ A list of images is returned."
              (gnus-put-image image string))))
        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."