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 8559e2ae4538cee3e3f5436bb7d5c470e3fd1c3b..c47c6cd06345532f435577cec39572e3cc4bf4f1 100644 (file)
--- 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 c2bab2f56b7208426fabc93345e2f1ed5ab88014..e4153a20c083efa6bb5644828738c8e796231fb5 100644 (file)
--- 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!