mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 07:00:31 -08:00
Code Issues Projects Releases Wiki Activity

(quoted-printable-encode-region): Avoid

Browse source 
find-charset-region.
This commit is contained in:
Dave Love 2002-06-24 19:06:00 +00:00
parent c724d286c7
commit f1bf026ea4
1 changed files with 3 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/gnus/qp.el
View file

@ -92,13 +92,9 @@ 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")
;; 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="