/[emacs]/emacs/lisp/gnus/qp.el
ViewVC logotype

Diff of /emacs/lisp/gnus/qp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15 by miles, Sat Sep 4 13:13:44 2004 UTC revision 1.16 by miles, Wed Apr 13 21:38:05 2005 UTC
# Line 100  You should probably avoid non-ASCII char Line 100  You should probably avoid non-ASCII char
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="

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26