From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 15 Jun 2000 20:30:45 +0000 (+0000)
Subject: Implement MIME attachment browser, with commands to add and delete
X-Git-Tag: 20090517-FFI~3514
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b1092559e92dcf6ce2fd316c3e4ececae6269019;p=mit-scheme.git

Implement MIME attachment browser, with commands to add and delete
attachments.
---

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 8559e2ae4..c47c6cd06 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.261 2000/06/12 03:38:09 cph Exp $
+$Id: edwin.pkg,v 1.262 2000/06/15 20:30:45 cph Exp $
 
 Copyright (c) 1989-2000 Massachusetts Institute of Technology
 
@@ -1456,8 +1456,11 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	  buffer-mime-attachments
 	  buffer-mime-processing-enabled?
 	  disable-buffer-mime-processing!
+	  edwin-command$add-mime-file-attachment
+	  edwin-command$kill-mime-attachment
 	  edwin-command$mail
 	  edwin-command$mail-bcc
+	  edwin-command$mail-browse-attachments
 	  edwin-command$mail-cc
 	  edwin-command$mail-fill-yanked-message
 	  edwin-command$mail-other-window
@@ -1467,7 +1470,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	  edwin-command$mail-subject
 	  edwin-command$mail-to
 	  edwin-command$mail-yank-original
+	  edwin-command$mime-attachments-quit
 	  edwin-mode$mail
+	  edwin-mode$mime-attachments
+	  edwin-variable$file-type-to-mime-type
 	  edwin-variable$mail-abbreviate-mime
 	  edwin-variable$mail-archive-file-name
 	  edwin-variable$mail-default-reply-to
@@ -1485,6 +1491,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	  edwin-variable$mail-self-blind
 	  edwin-variable$mail-setup-hook
 	  edwin-variable$mail-yank-ignored-headers
+	  edwin-variable$mime-attachments-mode-hook
 	  edwin-variable$send-mail-procedure
 	  edwin-variable$sendmail-program
 	  edwin-variable$smtp-require-valid-recipients
diff --git a/v7/src/edwin/sendmail.scm b/v7/src/edwin/sendmail.scm
index c2bab2f56..e4153a20c 100644
--- a/v7/src/edwin/sendmail.scm
+++ b/v7/src/edwin/sendmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: sendmail.scm,v 1.58 2000/06/15 20:24:21 cph Exp $
+;;; $Id: sendmail.scm,v 1.59 2000/06/15 20:28:49 cph Exp $
 ;;;
 ;;; Copyright (c) 1991-2000 Massachusetts Institute of Technology
 ;;;
@@ -359,7 +359,8 @@ Here are commands that move to a header field (and create it if there isn't):
 	 \\[mail-cc]  move to CC:	\\[mail-bcc]  move to BCC:
 \\[mail-signature]  mail-signature (insert ~/.signature file).
 \\[mail-yank-original]  mail-yank-original (insert current message, in Rmail).
-\\[mail-fill-yanked-message]  mail-fill-yanked-message (fill what was yanked)."
+\\[mail-fill-yanked-message]  mail-fill-yanked-message (fill what was yanked).
+\\[mail-browse-attachments]  view, add, or delete MIME attachments."
   (lambda (buffer)
     (add-kill-buffer-hook buffer mail-kill-buffer)
     (local-set-variable!