mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(mh-mhn-compose-insertion): Use quotes.

Browse Source
This commit is contained in:
Karl Heuer 1998-09-23 21:51:50 +00:00
parent bd21f930c9
commit 0cf950b1a9
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/mail/mh-mime.el
View File

@ -28,7 +28,7 @@
;;; Change Log: ;;; 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: ;;; Code:
@ -79,8 +79,9 @@ Content-description header. See also \\[mh-edit-mhn]."
mh-mime-content-types nil nil nil) mh-mime-content-types nil nil nil)
(read-string "Content-description: ") (read-string "Content-description: ")
(read-string "Content-Attributes: " (read-string "Content-Attributes: "
(concat "name=" (concat "name=\""
(file-name-nondirectory filename)))))) (file-name-nondirectory filename)
"\"")))))
(mh-mhn-compose-type filename type description attributes )) (mh-mhn-compose-type filename type description attributes ))
(defun mh-mhn-compose-type (filename type (defun mh-mhn-compose-type (filename type