From cd0f907ceb70f915da3c4501433662ee22413395 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 19 Oct 1999 23:02:57 +0000 Subject: [PATCH] (gnus-copy-article-buffer): Encode smileys to ordinary text if the feature `smiley-mule' is provided and FSF Emacs is used. (TopLevel): Require `static' at the compile time. --- lisp/gnus-msg.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 3ced920..9ba9f4e 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -30,7 +30,9 @@ ;;; Code: -(eval-when-compile (require 'cl)) +(eval-when-compile + (require 'cl) + (require 'static)) (require 'gnus) (require 'gnus-ems) @@ -479,6 +481,10 @@ header line with the old Message-ID." (set-buffer gnus-article-copy) (delete-region (goto-char (point-min)) (or (search-forward "\n\n" nil t) (point-max))) + ;; Encode bitmap smileys to ordinary text. + (static-unless (featurep 'xemacs) + (when (featurep 'smiley-mule) + (smiley-encode-buffer))) ;; Insert the original article headers. (insert-buffer-substring gnus-original-article-buffer beg end) (article-decode-encoded-words))) -- 1.7.10.4