From 76dfbae7f30d20897d951f7b53ed54a376fc2bf5 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 1 Jun 2000 18:23:58 +0000
Subject: [PATCH] Add "mime-codec" to package.

---
 v7/src/imail/compile.scm |  3 ++-
 v7/src/imail/ed-ffi.scm  |  3 ++-
 v7/src/imail/imail.pkg   | 13 ++++++++++++-
 3 files changed, 16 insertions(+), 3 deletions(-)

diff --git a/v7/src/imail/compile.scm b/v7/src/imail/compile.scm
index 321625d24..8c0782418 100644
--- 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 3846fd99a..d6f09e659 100644
--- 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 18f98c29b..6c637fd83 100644
--- 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))
-- 
2.25.1