From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 24 Mar 2004 21:16:55 +0000 (+0000)
Subject: Allow "utf7" and "utf8" character sets.
X-Git-Tag: 20090517-FFI~1655
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1f3449d7c72423013715799fb81f4b29e554c6d4;p=mit-scheme.git

Allow "utf7" and "utf8" character sets.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 6b44ce910..3a038dcee 100644
--- 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?)