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