* 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.

diff --git a/ChangeLog b/ChangeLog
index 1328779..3f5d92a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,13 @@
 2002-03-04  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+       * 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  <yamaoka@jpl.org>
+
        * 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 (file)
--- 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 (file)
--- 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