From 26aa385656dcf8acd2063327dbbbfb0ccab43b52 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 30 Jun 2000 19:07:55 +0000
Subject: [PATCH] File attachments should always have a disposition of
 ATTACHMENT.

---
 v7/src/edwin/sendmail.scm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/v7/src/edwin/sendmail.scm b/v7/src/edwin/sendmail.scm
index ef6b4a457..d653f826b 100644
--- a/v7/src/edwin/sendmail.scm
+++ b/v7/src/edwin/sendmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: sendmail.scm,v 1.63 2000/06/22 20:18:31 cph Exp $
+;;; $Id: sendmail.scm,v 1.64 2000/06/30 19:07:55 cph Exp $
 ;;;
 ;;; Copyright (c) 1991-2000 Massachusetts Institute of Technology
 ;;;
@@ -1210,10 +1210,7 @@ Commands available in this mode:
 		  mail-buffer type subtype
 		  `(,@parameters
 		    (NAME ,(pathname-name pathname)))
-		  `(,(if (eq? type 'TEXT)
-			 'INLINE
-			 'ATTACHMENT)
-		    (FILENAME ,(file-namestring pathname)))
+		  `(ATTACHMENT (FILENAME ,(file-namestring pathname)))
 		  pathname)))))
 	(let ((buffer (get-mime-attachments-buffer mail-buffer #f)))
 	  (if buffer
-- 
2.25.1