Mercurial > emacs

comparison lisp/mail/mh-mime.el @ 23305:61483b4c169c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mh-mhn-compose-insertion): Use quotes.
author Karl Heuer <kwzh@gnu.org>
date Wed, 23 Sep 1998 21:51:50 +0000
parents 7417db9e3f61
children 67b464da13ec
comparison
equal deleted inserted replaced
23304:3a7a029df593 23305:61483b4c169c
26 ;; Support for generating an mhn composition file. 26 ;; Support for generating an mhn composition file.
27 ;; MIME is supported only by MH 6.8 or later. 27 ;; MIME is supported only by MH 6.8 or later.
28 28
29 ;;; Change Log: 29 ;;; Change Log:
30 30
31 ;; $Id: mh-mime.el,v 1.6 1996/01/14 07:34:30 erik Exp rms $ 31 ;; $Id: mh-mime.el,v 1.7 1997/01/13 03:25:05 rms Exp kwzh $
32 32
33 ;;; Code: 33 ;;; Code:
34 34
35 (provide 'mh-mime) 35 (provide 'mh-mime)
36 (require 'mh-comp) 36 (require 'mh-comp)
77 filename 77 filename
78 (completing-read "Content-type: " 78 (completing-read "Content-type: "
79 mh-mime-content-types nil nil nil) 79 mh-mime-content-types nil nil nil)
80 (read-string "Content-description: ") 80 (read-string "Content-description: ")
81 (read-string "Content-Attributes: " 81 (read-string "Content-Attributes: "
82 (concat "name=" 82 (concat "name=\""
83 (file-name-nondirectory filename)))))) 83 (file-name-nondirectory filename)
84 "\"")))))
84 (mh-mhn-compose-type filename type description attributes )) 85 (mh-mhn-compose-type filename type description attributes ))
85 86
86 (defun mh-mhn-compose-type (filename type 87 (defun mh-mhn-compose-type (filename type
87 &optional description attributes comment) 88 &optional description attributes comment)
88 (beginning-of-line) 89 (beginning-of-line)