From: Reiner Steib <Reiner.Steib@gmx.de>
Date: Sat, 3 Jan 2009 22:34:26 +0000 (+0000)
Subject: (message-fix-before-sending): Add `eight-bit' to illegible-text check.
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=892102d98f78baab842a7e694feb84c66b97f158;p=gnus

(message-fix-before-sending): Add `eight-bit' to illegible-text check.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 440cc542f..fa783923d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-01-03  Reiner Steib  <Reiner.Steib@gmx.de>
+
+	* message.el (message-fix-before-sending): Add `eight-bit' to
+	illegible-text check.
+
 2009-01-01  Dave Love  <fx@gnu.org>
 
 	* imap.el (imap-string-to-integer): Fix typo.
diff --git a/lisp/message.el b/lisp/message.el
index 9f77e9c3c..c9e21e00c 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1,7 +1,7 @@
 ;;; message.el --- composing mail and news messages
 
 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;;   2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: mail, news
@@ -4142,6 +4142,8 @@ conformance."
 		  (and (mm-multibyte-p)
 		       (memq (char-charset char)
 			     '(eight-bit-control eight-bit-graphic
+						 ;; Emacs 23, Bug#1770:
+						 eight-bit
 						 control-1))
 		       (not (get-text-property
 			     (point) 'untranslated-utf-8))))
@@ -4172,6 +4174,8 @@ conformance."
 			   ;; use find-coding-systems-region.
 			   (memq (char-charset char)
 				 '(eight-bit-control eight-bit-graphic
+						     ;; Emacs 23, Bug#1770:
+						     eight-bit
 						     control-1))
 			   (not (get-text-property
 				 (point) 'untranslated-utf-8)))))