Mercurial > emacs

comparison lisp/gnus/qp.el @ 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 a48838267750
children 5b42e5f7e809
comparison
equal deleted inserted replaced
32106:d559924db6ba 32107:31d231ad0b91
83 the form expected by `skip-chars-forward'. 83 the form expected by `skip-chars-forward'.
84 84
85 If `mm-use-ultra-safe-encoding' is set, fold lines unconditionally and 85 If `mm-use-ultra-safe-encoding' is set, fold lines unconditionally and
86 encode lines starting with \"From\"." 86 encode lines starting with \"From\"."
87 (interactive "r") 87 (interactive "r")
88 (if (delq 'eight-bit-graphic 88 ;; Fixme: what should this do in XEmacs/Mule?
89 (delq 'eight-bit-control 89 (if (fboundp 'find-charset-region) ; else XEmacs, non-Mule
90 (delq 'ascii (mm-find-charset-region from to)))) 90 (if (delq 'unknown ; Emacs 20 unibyte
91 (error "Multibyte character in QP encoding region")) 91 (delq 'eight-bit-graphic ; Emacs 21
92 (delq 'eight-bit-control
93 (delq 'ascii (find-charset-region from to)))))
94 (error "Multibyte character in QP encoding region")))
92 (unless class 95 (unless class
93 (setq class "^\000-\007\013\015-\037\200-\377=")) 96 (setq class "^\000-\007\013\015-\037\200-\377="))
94 (if (fboundp 'string-as-multibyte) 97 (if (fboundp 'string-as-multibyte)
95 (setq class (string-as-multibyte class))) 98 (setq class (string-as-multibyte class)))
96 (save-excursion 99 (save-excursion