From: yamaoka <yamaoka>
Date: Tue, 19 Oct 1999 23:02:57 +0000 (+0000)
Subject: (gnus-copy-article-buffer): Encode smileys to ordinary text if the feature
X-Git-Tag: t-gnus-6_13_2-10~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cd0f907ceb70f915da3c4501433662ee22413395;p=elisp%2Fgnus.git-

(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.
---

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)))