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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 440cc54..fa78392 100644 (file)
--- 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 9f77e9c..c9e21e0 100644 (file)
--- 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)))))