- (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"))))