* message.el (message-fix-before-sending): Add an option that

	ignores illegible text.
	Trivial change from Mark Milhollan <mlm@attglobal.net>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2ec7b00..c0a597f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,12 @@
 2002-03-21  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * message.el (message-fix-before-sending): Add an option that
+       ignores illegible text.
+       Trivial change from Mark Milhollan <mlm@attglobal.net>
+       
        * message.el (message-font-lock-keywords): Support multi-line MML
        tags.
-
+       
        * gnus-sum.el (gnus-print-buffer): Remove gnus-decoration.
        Trivial change from lorentey@elte.hu (L\e,Bu\e(Brentey K\e,Ba\e(Broly)
 

diff --git a/lisp/message.el b/lisp/message.el
index 0789eca..fe75652 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2746,6 +2746,7 @@ It should typically alter the sending method in some way or other."
               "Illegible text found. Continue posting? "
               '((?d "Remove and continue posting")
                 (?r "Replace with dots and continue posting")
+                (?i "Ignore and continue posting")
                 (?e "Continue editing"))))
        (if (eq choice ?e)
          (error "Illegible text found"))
@@ -2758,9 +2759,11 @@ It should typically alter the sending method in some way or other."
                           (memq (char-charset char)
                                 '(eight-bit-control eight-bit-graphic
                                                     control-1)))))
-           (delete-char 1)
-           (if (eq choice ?r)
-               (insert ".")))
+           (if (eq choice ?i)
+               (remove-text-properties (point) (1+ (point)) '(highlight t))
+             (delete-char 1)
+             (if (eq choice ?r)
+                 (insert "."))))
          (forward-char)
          (skip-chars-forward mm-7bit-chars))))))