* mml2015.el (mml2015-epg-key-image): protect call to

set-buffer-multibyte for XEmacs compability.

diff --git a/lisp/mml2015.el b/lisp/mml2015.el
index 5d97603..e9c52b5 100644 (file)
--- a/lisp/mml2015.el
+++ b/lisp/mml2015.el
@@ -823,7 +823,8 @@ If set, it overrides the setting of `mml2015-sign-with-sender'."
 (defun mml2015-epg-key-image (key-id)
   "Return the image of a key, if any"
   (with-temp-buffer
-    (set-buffer-multibyte nil)
+    (when (fboundp 'set-buffer-multibyte)
+      (set-buffer-multibyte nil))
     (let* ((coding-system-for-write 'binary)
            (coding-system-for-read 'binary)
            (data (shell-command-to-string