[Emacs-diffs] Changes to emacs/lisp/gnus/qp.el

[Miles Bader]

Index: emacs/lisp/gnus/qp.el
diff -c emacs/lisp/gnus/qp.el:1.15 emacs/lisp/gnus/qp.el:1.16
*** emacs/lisp/gnus/qp.el:1.15  Sat Sep  4 13:13:44 2004
--- emacs/lisp/gnus/qp.el       Wed Apr 13 21:38:05 2005
***************
*** 100,114 ****
  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"))))
    (unless class
      ;; Avoid using 8bit characters. = is \075.
      ;; Equivalent to "^\000-\007\013\015-\037\200-\377="
--- 100,109 ----
  If `mm-use-ultra-safe-encoding' is set, fold lines unconditionally and
  encode lines starting with \"From\"."
    (interactive "r")
!   (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="