From 4e1f886db07f621d73621179ed8c47308e35cae5 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 7 Dec 1999 09:22:30 +0000 Subject: [PATCH] (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. --- lisp/gnus-art.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 1a6bc9e..a44f97d 100644 --- 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") -- 1.7.10.4