From 850c333d90b3ffd7408c346c9f57f25dd6508471 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Wed, 13 Apr 2005 21:38:06 +0000 Subject: Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-256 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 65) - Update from CVS 2005-04-13 Katsumi Yamaoka * lisp/gnus/gnus-art.el (gnus-mime-inline-part): Use mm-string-to-multibyte. * lisp/gnus/qp.el (quoted-printable-encode-region): Use mm-string-to-multibyte. --- lisp/gnus/qp.el | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) (limited to 'lisp/gnus/qp.el') diff --git a/lisp/gnus/qp.el b/lisp/gnus/qp.el index 6a27b20eb1e..3789e0efda8 100644 --- a/lisp/gnus/qp.el +++ b/lisp/gnus/qp.el @@ -100,15 +100,10 @@ You should probably avoid non-ASCII characters in this arg. If `mm-use-ultra-safe-encoding' is set, fold lines unconditionally and encode lines starting with \"From\"." (interactive "r") - (save-excursion - (goto-char from) - (if (fboundp 'string-to-multibyte) ; Emacs 22 - (if (re-search-forward (string-to-multibyte "[^\x0-\x7f\x80-\xff]") - to t) - ;; Fixme: This is somewhat misleading. - (error "Multibyte character in QP encoding region")) - (if (re-search-forward (mm-string-as-multibyte "[^\0-\377]") to t) - (error "Multibyte character in QP encoding region")))) + (goto-char from) + (if (re-search-forward (mm-string-to-multibyte "[^\x0-\x7f\x80-\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=" -- cgit v1.2.3