From: yamaoka <yamaoka>
Date: Mon, 4 Mar 2002 07:20:02 +0000 (+0000)
Subject: * message.el (message-fix-before-sending): Bind `mm-7bit-chars' to the value
X-Git-Tag: t-gnus-6_15_6-01-quimby~24
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=797f77acc37b6b652529832050c1257bc2ec6f6d;p=elisp%2Fgnus.git-

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