From: yamaoka Date: Tue, 7 Dec 1999 09:22:30 +0000 (+0000) Subject: (gnus-article-prepare-mime-display): Don't use `get-text-property' in the X-Git-Tag: t-gnus-6_14_0-04~2 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4e1f886db07f621d73621179ed8c47308e35cae5;p=elisp%2Fgnus.git- (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 --- 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")