Posting illegible text

[Mark Milhollan <mlm@attglobal.net>]

Sometimes posting `illegible' text is just what you want to do.  So,
another option for message-fix-before-sending would be helpful.

Index: message.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/message.el,v
retrieving revision 6.220
diff -u -r6.220 message.el
--- message.el	2002/03/13 19:51:34	6.220
+++ message.el	2002/03/20 10:48:36
@@ -2746,6 +2746,7 @@
 	       "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 @@
 			   (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))))))
 

/mark