From: yamaoka <yamaoka>
Date: Mon, 9 Jun 2003 08:39:48 +0000 (+0000)
Subject: * message.el (message-fix-before-sending): Don't check for `illegible text'
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d395f1429cee3bc264caa3cc6b936257dd632054;p=elisp%2Fgnus.git-

* message.el (message-fix-before-sending): Don't check for `illegible text'
 messages (see the comment).
---

diff --git a/ChangeLog b/ChangeLog
index f15393f..4e33638 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-09  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/message.el (message-fix-before-sending): Don't check for
+	`illegible text' messages (see the comment).
+
 2003-05-22  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/gnus-vers.el (gnus-revision-number): Increment to 01.
diff --git a/lisp/message.el b/lisp/message.el
index ff8da24..d8d8e15 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3818,52 +3818,56 @@ used to distinguish whether the invisible text is a MIME part or not."
 	(unless (yes-or-no-p
 		 "Invisible text found and made visible; continue sending? ")
 	  (error "Invisible text found and made visible")))))
-  (message-check 'illegible-text
-    (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))
-	(when (let ((char (char-after)))
-		(or (< (mm-char-int char) 128)
-		    (and (mm-multibyte-p)
-			 (> (length (mm-find-mime-charset-region
-				     (point) (point-max)))
-			    1))))
-	  (message-overlay-put (message-make-overlay (point) (1+ (point)))
-			       'face 'highlight)
-	  (setq found t))
-	(forward-char)
-	(skip-chars-forward mm-7bit-chars))
-      (when found
-	(setq choice
-	      (gnus-multiple-choice
-	       "Non-printable characters found.  Continue sending?"
-	       '((?d "Remove non-printable characters and send")
-		 (?r "Replace non-printable characters with dots and send")
-		 (?i "Ignore non-printable characters and send")
-		 (?e "Continue editing"))))
-	(if (eq choice ?e)
-	  (error "Non-printable characters"))
-	(message-goto-body)
-	(skip-chars-forward mm-7bit-chars)
-	(while (not (eobp))
-	  (when (let ((char (char-after)))
-		  (or (< (mm-char-int char) 128)
-		      (and (mm-multibyte-p)
-			   ;; Fixme: Wrong for Emacs 22 and for things
-			   ;; like undecable utf-8.  Should at least
-			   ;; use find-coding-systems-region.
-			   (memq (char-charset char)
-				 '(eight-bit-control eight-bit-graphic
-						     control-1)))))
-	    (if (eq choice ?i)
-		(message-kill-all-overlays)
-	      (delete-char 1)
-	      (when (eq choice ?r)
-		(insert "."))))
-	  (forward-char)
-	  (skip-chars-forward mm-7bit-chars))))))
+;; The following check is needless to T-gnus since T-gnus determines
+;; a MIME charset forcibly (even if it cannot be determined properly,
+;; the value of the `default-mime-charset-for-write' variable is used).
+;;  (message-check 'illegible-text
+;;    (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))
+;;	(when (let ((char (char-after)))
+;;		(or (< (mm-char-int char) 128)
+;;		    (and (mm-multibyte-p)
+;;			 (> (length (mm-find-mime-charset-region
+;;				     (point) (point-max)))
+;;			    1))))
+;;	  (message-overlay-put (message-make-overlay (point) (1+ (point)))
+;;			       'face 'highlight)
+;;	  (setq found t))
+;;	(forward-char)
+;;	(skip-chars-forward mm-7bit-chars))
+;;      (when found
+;;	(setq choice
+;;	      (gnus-multiple-choice
+;;	       "Non-printable characters found.  Continue sending?"
+;;	       '((?d "Remove non-printable characters and send")
+;;		 (?r "Replace non-printable characters with dots and send")
+;;		 (?i "Ignore non-printable characters and send")
+;;		 (?e "Continue editing"))))
+;;	(if (eq choice ?e)
+;;	  (error "Non-printable characters"))
+;;	(message-goto-body)
+;;	(skip-chars-forward mm-7bit-chars)
+;;	(while (not (eobp))
+;;	  (when (let ((char (char-after)))
+;;		  (or (< (mm-char-int char) 128)
+;;		      (and (mm-multibyte-p)
+;;			   ;; Fixme: Wrong for Emacs 22 and for things
+;;			   ;; like undecable utf-8.  Should at least
+;;			   ;; use find-coding-systems-region.
+;;			   (memq (char-charset char)
+;;				 '(eight-bit-control eight-bit-graphic
+;;						     control-1)))))
+;;	    (if (eq choice ?i)
+;;		(message-kill-all-overlays)
+;;	      (delete-char 1)
+;;	      (when (eq choice ?r)
+;;		(insert "."))))
+;;	  (forward-char)
+;;	  (skip-chars-forward mm-7bit-chars)))))
+  )
 
 (defun message-add-action (action &rest types)
   "Add ACTION to be performed when doing an exit of type TYPES."