Mercurial > emacs

changeset 32107:31d231ad0b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quoted-printable-encode-region): Don't use mm-find-charset-region.
author Dave Love <fx@gnu.org>
date Tue, 03 Oct 2000 17:38:06 +0000
parents d559924db6ba
children 98f4d3514188
files lisp/gnus/qp.el
diffstat 1 files changed, 7 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/qp.el	Tue Oct 03 17:35:47 2000 +0000
+++ b/lisp/gnus/qp.el	Tue Oct 03 17:38:06 2000 +0000
@@ -85,10 +85,13 @@
 If `mm-use-ultra-safe-encoding' is set, fold lines unconditionally and
 encode lines starting with \"From\"."
   (interactive "r")
-  (if (delq 'eight-bit-graphic
-	    (delq 'eight-bit-control
-		  (delq 'ascii (mm-find-charset-region from to))))
-      (error "Multibyte character in QP encoding region"))
+  ;; Fixme: what should this do in XEmacs/Mule?
+  (if (fboundp 'find-charset-region)	; else XEmacs, non-Mule
+      (if (delq 'unknown		; Emacs 20 unibyte
+		(delq 'eight-bit-graphic ; Emacs 21
+		      (delq 'eight-bit-control
+			    (delq 'ascii (find-charset-region from to)))))
+	  (error "Multibyte character in QP encoding region")))
   (unless class
     (setq class "^\000-\007\013\015-\037\200-\377="))
   (if (fboundp 'string-as-multibyte)