Allow "utf7" and "utf8" character sets.

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 6b44ce910f2cdddc7c977c8cc7c9ab30d22ea733..3a038dcee42943753e5eab286b6ef0670a2e1345 100644 (file)
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: imail-top.scm,v 1.288 2003/10/31 05:30:33 cph Exp $
+$Id: imail-top.scm,v 1.289 2004/03/24 21:16:55 cph Exp $
 
-Copyright 1999,2000,2001,2002,2003 Massachusetts Institute of Technology
+Copyright 1999,2000,2001,2002,2003,2004 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -164,7 +164,7 @@ Otherwise, they are inserted into the message body."
   "List of regular expressions matching character-set names.
 Text messages using these character sets are displayed inline;
  when other character sets are used, the text is treated as an attachment."
-  (list "us-ascii" "iso-8859-[0-9]+" "utf-[78]"
+  (list "us-ascii" "iso-8859-[0-9]+" "utf-?[78]"
        "unicode-[0-9]+-[0-9]+-utf-[78]" ; RFC 1641
        "windows-[0-9]+" "unknown-8bit")
   list-of-strings?)