2000-12-25 00:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

[gnus] / lisp / qp.el

diff --git a/lisp/qp.el b/lisp/qp.el
index a5993de..3470a9b 100644 (file)
--- a/lisp/qp.el
+++ b/lisp/qp.el
@@ -99,8 +99,8 @@ encode lines starting with \"From\"."
     (save-restriction
       (narrow-to-region from to)
       (mm-with-unibyte-current-buffer-mule4
-       ;; Fixme: what should this do in XEmacs/Mule?
-       (if (fboundp 'find-charset-region)      ; else XEmacs, non-Mule
+       (if (and (not (featurep 'xemacs)) ;; Don't check XEmacs Mule.
+                (fboundp 'find-charset-region))
            (if (delq 'unknown          ; Emacs 20 unibyte
                      (delq 'eight-bit-graphic ; Emacs 21
                            (delq 'eight-bit-control