comparison lisp/gnus/qp.el @ 90104:a01e7a9f1659

Revision: [e-mail]--gnu-2005/emacs--unicode--0--patch-14 Update unicode-branch version numbers and ChangeLog file names 2005-02-12 Miles Bader <[e-mail]> * etc/TODO, etc/PROBLEMS, etc/NEWS: Replace references to Emacs version "22" with "23". 2005-02-12 Miles Bader <[e-mail]> * lisp/version.el (emacs-version): Change to "23.0.0". * lisp/descr-text.el (describe-char-unidata-list): Replace references to Emacs version "22" with "23". * lisp/emacs-lisp/bytecomp.el (byte-compile-fix-header) (byte-compile-insert-header): Likewise. * lisp/international/mule.el (charset-list, set-coding-priority) (ignore-relative-composition): Likewise. * lisp/international/mule-util.el (detect-coding-with-priority): Likewise. * lisp/international/mule-diag.el: Likewise. * lisp/international/mule-cmds.el (language-info-custom-alist): Likewise. * lisp/international/codepage.el (codepage-setup): Likewise. 2005-02-13 Miles Bader <[e-mail]> Rename unicode-branch-specific ChangeLog files to "ChangeLog.unicode" from "ChangeLog.22"

90103:3ebd9bdb4fe5

;;; qp.el --- Quoted-Printable functions

;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003 Free Software Foundation, Inc.

;; Author: Lars Magne Ingebrigtsen <[e-mail]>
;; Keywords: mail, extensions

;; This file is part of GNU Emacs.

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)

      (goto-char (point-min))
      (while (and (skip-chars-forward class)
		  (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))
      (while (re-search-forward "[ \t]+$" nil t)

90104:a01e7a9f1659

;;; qp.el --- Quoted-Printable functions

;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2005 Free Software Foundation, Inc.

;; Author: Lars Magne Ingebrigtsen <[e-mail]>
;; Keywords: mail, extensions

;; This file is part of GNU Emacs.

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

      (goto-char (point-min))
      (while (and (skip-chars-forward class)
		  (not (eobp)))
	(insert
	 (prog1
	     ;; To unibyte in case of Emacs 23 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))
      (while (re-search-forward "[ \t]+$" nil t)