From 0cf950b1a93ba7d22628af2829156c328a0fa1c0 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 23 Sep 1998 21:51:50 +0000 Subject: [PATCH] (mh-mhn-compose-insertion): Use quotes. --- lisp/mail/mh-mime.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/mail/mh-mime.el b/lisp/mail/mh-mime.el index 5c715878ebd..812a577ac41 100644 --- a/lisp/mail/mh-mime.el +++ b/lisp/mail/mh-mime.el @@ -28,7 +28,7 @@ ;;; Change Log: -;; $Id: mh-mime.el,v 1.6 1996/01/14 07:34:30 erik Exp rms $ +;; $Id: mh-mime.el,v 1.7 1997/01/13 03:25:05 rms Exp kwzh $ ;;; Code: @@ -79,8 +79,9 @@ Content-description header. See also \\[mh-edit-mhn]." mh-mime-content-types nil nil nil) (read-string "Content-description: ") (read-string "Content-Attributes: " - (concat "name=" - (file-name-nondirectory filename)))))) + (concat "name=\"" + (file-name-nondirectory filename) + "\""))))) (mh-mhn-compose-type filename type description attributes )) (defun mh-mhn-compose-type (filename type