From 6ed8ea24874587e25631b00b4919c83f5380922d Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 16 Jun 2000 17:39:22 +0000 Subject: [PATCH] Set NAME parameter on MIME file attachments. Change key bindings in attachment browser; shouldn't use #\- for a command. --- v7/src/edwin/sendmail.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/v7/src/edwin/sendmail.scm b/v7/src/edwin/sendmail.scm index e403bea58..b87ab2d1d 100644 --- a/v7/src/edwin/sendmail.scm +++ b/v7/src/edwin/sendmail.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: sendmail.scm,v 1.61 2000/06/15 20:58:56 cph Exp $ +;;; $Id: sendmail.scm,v 1.62 2000/06/16 17:39:22 cph Exp $ ;;; ;;; Copyright (c) 1991-2000 Massachusetts Institute of Technology ;;; @@ -1169,8 +1169,8 @@ Commands available in this mode: "An event distributor that is invoked when entering MIME Attachments mode." (make-event-distributor)) -(define-key 'mime-attachments #\+ 'add-mime-file-attachment) -(define-key 'mime-attachments #\- 'kill-mime-attachment) +(define-key 'mime-attachments #\a 'add-mime-file-attachment) +(define-key 'mime-attachments #\k 'kill-mime-attachment) (define-key 'mime-attachments #\? 'describe-mode) (define-key 'mime-attachments #\q 'mime-attachments-quit) @@ -1200,7 +1200,9 @@ Commands available in this mode: (lambda () (pathname->mime-type pathname mail-buffer)) (lambda (type subtype parameters) (add-buffer-mime-attachment! - mail-buffer type subtype parameters + mail-buffer type subtype + `(,@parameters + (NAME ,(pathname-name pathname))) `(,(if (eq? type 'TEXT) 'INLINE 'ATTACHMENT) -- 2.25.1