From 797f77acc37b6b652529832050c1257bc2ec6f6d Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 4 Mar 2002 07:20:02 +0000 Subject: [PATCH] * message.el (message-fix-before-sending): Bind `mm-7bit-chars' to the value that concat the original value and escape. * nnheader.el (mm-7bit-chars): Remove. --- ChangeLog | 8 ++++++++ lisp/message.el | 3 ++- lisp/nnheader.el | 6 ------ 3 files changed, 10 insertions(+), 7 deletions(-) diff --git a/ChangeLog b/ChangeLog index 1328779..3f5d92a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,13 @@ 2002-03-04 Katsumi Yamaoka + * lisp/message.el (message-fix-before-sending): Bind + `mm-7bit-chars' to the value that concat the original value and + escape. + + * lisp/nnheader.el (mm-7bit-chars): Remove. + +2002-03-04 Katsumi Yamaoka + * lisp/gnus-art.el (gnus-article-edit-mode): Don't call `mml-mode'. * lisp/nnheader.el (mm-7bit-chars): Copied from mm-bodies.el. diff --git a/lisp/message.el b/lisp/message.el index 02b2206..fc3c8c7 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3184,7 +3184,8 @@ used to distinguish whether the invisible text is a MIME part or not." "Invisible text found and made visible; continue posting? ") (error "Invisible text found and made visible"))))) (message-check 'illegible-text - (let (found choice) + (let ((mm-7bit-chars "\x20-\x7f\r\n\t\x7\x8\xb\xc\x1f\x1b") + found choice) (message-goto-body) (skip-chars-forward mm-7bit-chars) (while (not (eobp)) diff --git a/lisp/nnheader.el b/lisp/nnheader.el index 23bee21..1db7d6d 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -420,12 +420,6 @@ given, the return value will not contain the last newline." (defalias 'mail-header-field-value 'std11-field-value)) -;; Should keep track of the same variable in mm-bodies.el. -;; Don't use `defvar-maybe', it won't create a byte-code!!! -;; 8bit treatment gets any char except: 0x32 - 0x7f, CR, LF, TAB, BEL, -;; BS, vertical TAB, form feed, and ^_ -(defvar mm-7bit-chars "\x20-\x7f\r\n\t\x7\x8\xb\xc\x1f") - ;;; Header access macros. ;; These macros may look very much like the ones in GNUS 4.1. They -- 1.7.10.4