From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 11 Apr 2001 01:14:28 +0000 (+0000)
Subject: Allow attachments to have MESSAGE type.
X-Git-Tag: 20090517-FFI~2863
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=40355df54158fba55b18b24495bd98462d00846f;p=mit-scheme.git

Allow attachments to have MESSAGE type.
---

diff --git a/v7/src/edwin/sendmail.scm b/v7/src/edwin/sendmail.scm
index 2d81ab560..1e2f71a0f 100644
--- a/v7/src/edwin/sendmail.scm
+++ b/v7/src/edwin/sendmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: sendmail.scm,v 1.76 2001/04/11 00:47:06 cph Exp $
+;;; $Id: sendmail.scm,v 1.77 2001/04/11 01:14:28 cph Exp $
 ;;;
 ;;; Copyright (c) 1991-2001 Massachusetts Institute of Technology
 ;;;
@@ -1590,7 +1590,7 @@ This is a list, each element of which is a list of three items:
 1. The file type as a string, e.g. \"jpg\".
    This can also be #F for files with no type.
 2. The MIME type, one of the following symbols:
-      TEXT IMAGE AUDIO VIDEO APPLICATION
+      TEXT IMAGE AUDIO VIDEO APPLICATION MESSAGE
 3. The MIME subtype, also specified as a symbol."
   '(("scm" TEXT X-SCHEME)
     ("text" TEXT PLAIN)
@@ -1608,4 +1608,4 @@ This is a list, each element of which is a list of three items:
 
 (define mime-top-level-types
   (map (lambda (s) (cons (symbol->string s) s))
-       '(TEXT IMAGE AUDIO VIDEO APPLICATION)))
\ No newline at end of file
+       '(TEXT IMAGE AUDIO VIDEO APPLICATION MESSAGE)))
\ No newline at end of file