Sync up with Pterodactyl Gnus v0.98.

[elisp/gnus.git-] / lisp / binhex.el

diff --git a/lisp/binhex.el b/lisp/binhex.el
index 9137a0a..b562051 100644 (file)
--- a/lisp/binhex.el
+++ b/lisp/binhex.el
@@ -3,7 +3,7 @@
 
 ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
 ;; Create Date: Oct 1, 1998
-;; $Revision: 1.1.2.7 $
+;; $Revision: 1.1.2.7.6.1 $
 ;; Time-stamp: <Tue Oct  6 23:48:38 EDT 1998 zsh>
 ;; Keywords: binhex
 
@@ -199,12 +199,12 @@ If HEADER-ONLY is non-nil only decode header and return filename."
        (save-excursion
          (goto-char start)
          (when (re-search-forward binhex-begin-line end t)
-           (if (boundp 'enable-multibyte-characters)
+           (if (and (not (string-match "XEmacs\\|Lucid" emacs-version))
+                    (boundp 'enable-multibyte-characters))
                (let ((multibyte
                       (default-value 'enable-multibyte-characters)))
                  (setq-default enable-multibyte-characters nil)
-                 (setq work-buffer
-                       (generate-new-buffer " *binhex-work*"))
+                 (setq work-buffer (generate-new-buffer " *binhex-work*"))
                  (setq-default enable-multibyte-characters multibyte))
              (setq work-buffer (generate-new-buffer " *binhex-work*")))
            (buffer-disable-undo work-buffer)