Add "mime-codec" to package.

diff --git a/v7/src/imail/compile.scm b/v7/src/imail/compile.scm
index 321625d24b106a899133f4bd816acd422f7af94c..8c07824186b6c6af28ea72fec5113ed21bc426a6 100644 (file)
--- a/v7/src/imail/compile.scm
+++ b/v7/src/imail/compile.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: compile.scm,v 1.7 2000/05/17 20:53:24 cph Exp $
+;;; $Id: compile.scm,v 1.8 2000/06/01 18:23:55 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -33,6 +33,7 @@
                "imail-util"
                "imap-response"
                "imap-syntax"
+               "mime-codec"
                "parser"
                "rexp"
                "rfc822"

diff --git a/v7/src/imail/ed-ffi.scm b/v7/src/imail/ed-ffi.scm
index 3846fd99ad758e57379e70f8eca3133cc1e14d22..d6f09e659790589b838b567f277980fdfc20dd11 100644 (file)
--- a/v7/src/imail/ed-ffi.scm
+++ b/v7/src/imail/ed-ffi.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: ed-ffi.scm,v 1.9 2000/05/17 20:53:26 cph Exp $
+;;; $Id: ed-ffi.scm,v 1.10 2000/06/01 18:23:56 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -31,6 +31,7 @@
     ("imail-util"      (edwin imail)           system-global-syntax-table)
     ("imap-response"   (edwin imail imap-response) system-global-syntax-table)
     ("imap-syntax"     (edwin imail imap-syntax) system-global-syntax-table)
+    ("mime-codec"      (edwin imail mime-codec) system-global-syntax-table)
     ("parser"          (edwin imail parser)    system-global-syntax-table)
     ("rexp"            (edwin imail rexp)      system-global-syntax-table)
     ("rfc822"          (edwin imail rfc822)    system-global-syntax-table)

diff --git a/v7/src/imail/imail.pkg b/v7/src/imail/imail.pkg
index 18f98c29b65292e0959cd6b9aa0cadf787f6d0ff..6c637fd83c59ad94ef177f0c29bde92b3edcec10 100644 (file)
--- a/v7/src/imail/imail.pkg
+++ b/v7/src/imail/imail.pkg
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail.pkg,v 1.40 2000/05/22 13:52:25 cph Exp $
+;;; $Id: imail.pkg,v 1.41 2000/06/01 18:23:58 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -126,6 +126,17 @@
          rfc822:strip-quoted-names
          rfc822:tokens->string))
 
+(define-package (edwin imail mime-codec)
+  (files "mime-codec")
+  (parent (edwin imail))
+  (export (edwin imail)
+         decode-base64-binary-string
+         decode-base64-binary-substring
+         decode-base64-text-string
+         decode-base64-text-substring
+         decode-quoted-printable-string
+         decode-quoted-printable-substring))
+
 (define-package (edwin imail imap-syntax)
   (files "imap-syntax")
   (parent (edwin imail))