emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/gnus/qp.el
Date: Fri, 04 Apr 2003 01:22:17 -0500

Index: emacs/lisp/gnus/qp.el
diff -c emacs/lisp/gnus/qp.el:1.12 emacs/lisp/gnus/qp.el:1.13
*** emacs/lisp/gnus/qp.el:1.12  Tue Mar  5 14:26:30 2002
--- emacs/lisp/gnus/qp.el       Fri Oct 18 06:43:12 2002
***************
*** 1,6 ****
  ;;; qp.el --- Quoted-Printable functions
  
! ;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
  ;; Keywords: mail, extensions
--- 1,6 ----
  ;;; qp.el --- Quoted-Printable functions
  
! ;; Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
  ;; Keywords: mail, extensions
***************
*** 66,72 ****
                 (let ((byte (string-to-int (buffer-substring (1+ (point))
                                                              (+ 3 (point)))
                                            16)))
!                  (insert byte)
                   (delete-char 3)
                   (unless (eq byte ?=)
                     (backward-char))))
--- 66,72 ----
                 (let ((byte (string-to-int (buffer-substring (1+ (point))
                                                              (+ 3 (point)))
                                            16)))
!                  (mm-insert-byte byte 1)
                   (delete-char 3)
                   (unless (eq byte ?=)
                     (backward-char))))
***************
*** 95,107 ****
  If `mm-use-ultra-safe-encoding' is set, fold lines unconditionally and
  encode lines starting with \"From\"."
    (interactive "r")
!   ;; Fixme: what should this do in XEmacs/Mule?
!   (if (fboundp 'find-charset-region)  ; else XEmacs, non-Mule
!       (if (delq 'unknown              ; Emacs 20 unibyte
!               (delq 'eight-bit-graphic ; Emacs 21
!                     (delq 'eight-bit-control
!                           (delq 'ascii (find-charset-region from to)))))
!         (error "Multibyte character in QP encoding region")))
    (unless class
      ;; Avoid using 8bit characters. = is \075.
      ;; Equivalent to "^\000-\007\013\015-\037\200-\377="
--- 95,109 ----
  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="
***************
*** 115,121 ****
                  (not (eobp)))
        (insert
         (prog1
!            (format "=%02X" (char-after))
           (delete-char 1))))
        ;; Encode white space at the end of lines.
        (goto-char (point-min))
--- 117,124 ----
                  (not (eobp)))
        (insert
         (prog1
!            ;; To unibyte in case of Emacs 22 eight-bit.
!            (format "=%02X" (mm-multibyte-char-to-unibyte (char-after)))
           (delete-char 1))))
        ;; Encode white space at the end of lines.
        (goto-char (point-min))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]