;;; smiley.el --- displaying smiley faces
-;; Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
;; Author: Dave Love <fx@gnu.org>
;; Keywords: news mail multimedia
(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."
(interactive "P")
(gnus-with-article-buffer
- (if (if (numberp arg)
+ (if (if (numberp arg)
(> arg 0)
(not (memq 'smiley gnus-article-wash-types)))
(smiley-region (point-min) (point-max))