(gnus-article-prepare-mime-display): Don't use `get-text-property' in the

outside of the boundary.
(gnus-article-smiley-display): New function.
(gnus-treatment-function-alist): Use it.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 1a6bc9e..a44f97d 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1002,7 +1002,7 @@ See the manual for details."
      gnus-article-strip-multiple-blank-lines)
     (gnus-treat-overstrike gnus-article-treat-overstrike)
     (gnus-treat-buttonize-head gnus-article-add-buttons-to-head)
-    (gnus-treat-display-smileys gnus-smiley-display)
+    (gnus-treat-display-smileys gnus-article-smiley-display)
     (gnus-treat-capitalize-sentences gnus-article-capitalize-sentences)
     (gnus-treat-display-picons gnus-article-display-picons)
     (gnus-treat-play-sounds gnus-earcon-display)))
@@ -3049,8 +3049,8 @@ If ALL-HEADERS is non-nil, no headers are hidden."
                              (if (eq entity last-entity)
                                  1 2)
                              type)
-         (setq entity (get-text-property next 'mime-view-entity))
-         (goto-char (point-max)))))))
+         (goto-char (point-max)))
+       (setq entity (get-text-property next 'mime-view-entity))))))
 
 ;;;###autoload
 (defun gnus-article-prepare-display ()
@@ -4903,6 +4903,10 @@ forbidden in URL encoding."
   "Browse ADDRESS."
   (browse-url (gnus-strip-whitespace address)))
 
+(defun gnus-article-smiley-display ()
+  "Display \"smileys\" as small graphical icons."
+  (smiley-toggle-buffer 1 (current-buffer) (point-min) (point-max)))
+
 ;;; Next/prev buttons in the article buffer.
 
 (defvar gnus-next-page-line-format "%{%(Next page...%)%}\n")