From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 13 Dec 2005 01:41:39 +0000 (+0000)
Subject: Fix typo: "$Id $" --> "$Id$".  Reindent a couple of forms.  Move page
X-Git-Tag: 20090517-FFI~1168
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e28d5e0d0ea416e4bea5ac9b31cdebb55d658c4f;p=mit-scheme.git

Fix typo: "$Id $" --> "$Id$".  Reindent a couple of forms.  Move page
marks around to fix overlong page.
---

diff --git a/v7/src/imail/imail-mime.scm b/v7/src/imail/imail-mime.scm
index ce52f66ea..098b21dc0 100644
--- a/v7/src/imail/imail-mime.scm
+++ b/v7/src/imail/imail-mime.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id $
+$Id: imail-mime.scm,v 1.2 2005/12/13 01:41:39 cph Exp $
 
 Copyright 2005 Taylor Campbell
 
@@ -135,7 +135,7 @@ USA.
                   (else #f)))
           (string=? (apply string-append (reverse! out))
                     "1.0")))))
-
+
 (define mime:media-parsers '())
 
 ;++ What about top-level media types whose subtypes are mandated to
@@ -173,7 +173,7 @@ USA.
                                (list #f (cons subtype parser))
                                (list parser)))
                      mime:media-parsers)))))
-
+
 (define-class <message-part> ()
   (string define accessor)
   (start  define accessor)
@@ -421,14 +421,13 @@ USA.
                       (if (string? subtype)
                           (cons* (intern type)
                                  (intern subtype)
-                                 (mime:parse-parameters
-                                  tokens
-                                  "Content-Type"))
+                                 (mime:parse-parameters tokens
+							"Content-Type"))
                           #f))
                     #f))
               #f))
         #f)))
-
+
 ;;;; Other Content-... Fields
 
 (define mime:default-encoding '7BIT)
@@ -475,18 +474,18 @@ USA.
 ;;;; Extended RFC 822 Tokenizer
 
 (define mime:special-chars
-        (char-set #\( #\) #\< #\> #\@
-                  #\, #\; #\: #\\ #\"
-                  #\/ #\[ #\] #\? #\=))
+  (char-set #\( #\) #\< #\> #\@
+	    #\, #\; #\: #\\ #\"
+	    #\/ #\[ #\] #\? #\=))
 
 ;;; STRING->TOKENS includes whitespace & parenthesis comments;
 ;;; STRING->NON-IGNORED-TOKENS omits them.
 
 (define mime:string->tokens
-        (rfc822:string-tokenizer mime:special-chars #t))
+  (rfc822:string-tokenizer mime:special-chars #t))
 
 (define mime:string->non-ignored-tokens
-        (rfc822:string-tokenizer mime:special-chars #f))
+  (rfc822:string-tokenizer mime:special-chars #f))
 
 ;;; Too bad the parser language works only on strings; it would be
 ;;; nice to be able to use it for general tokens, like RFC822 tokens.