Mercurial > emacs

changeset 88781:2d97add2d48b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quoted-printable-encode-region): Avoid find-charset-region.
author Dave Love <fx@gnu.org>
date Mon, 24 Jun 2002 19:06:00 +0000
parents 0e7007f49f07
children 3e2e82acc047
files lisp/gnus/qp.el
diffstat 1 files changed, 3 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/qp.el	Mon Jun 24 19:05:12 2002 +0000
+++ b/lisp/gnus/qp.el	Mon Jun 24 19:06:00 2002 +0000
@@ -92,13 +92,9 @@
 If `mm-use-ultra-safe-encoding' is set, fold lines unconditionally and
 encode lines starting with \"From\"."
   (interactive "r")
-  ;; 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")))
+  (save-excursion
+    (if (re-search-forward "[^\x0-\xff]" to t)
+      (error "Multibyte character in QP encoding region")))
   (unless class
     ;; Avoid using 8bit characters. = is \075.
     ;; Equivalent to "^\000-\007\013\015-\037\200-\377="