100 |
If `mm-use-ultra-safe-encoding' is set, fold lines unconditionally and |
If `mm-use-ultra-safe-encoding' is set, fold lines unconditionally and |
101 |
encode lines starting with \"From\"." |
encode lines starting with \"From\"." |
102 |
(interactive "r") |
(interactive "r") |
103 |
(save-excursion |
(goto-char from) |
104 |
(goto-char from) |
(if (re-search-forward (mm-string-to-multibyte "[^\x0-\x7f\x80-\xff]") |
105 |
(if (fboundp 'string-to-multibyte) ; Emacs 22 |
to t) |
106 |
(if (re-search-forward (string-to-multibyte "[^\x0-\x7f\x80-\xff]") |
(error "Multibyte character in QP encoding region")) |
|
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")))) |
|
107 |
(unless class |
(unless class |
108 |
;; Avoid using 8bit characters. = is \075. |
;; Avoid using 8bit characters. = is \075. |
109 |
;; Equivalent to "^\000-\007\013\015-\037\200-\377=" |
;; Equivalent to "^\000-\007\013\015-\037\200-\377=" |