Function: mh-mml-attach-file

mh-mml-attach-file is a byte-compiled function defined in mh-mime.el.gz.

Signature

(mh-mml-attach-file &optional DISPOSITION)

Documentation

Add a tag to insert a MIME message part from a file.

You are prompted for the filename containing the object, the media type if it cannot be determined automatically, a content description and the DISPOSITION of the attachment.

This is basically mml-attach-file from Gnus, modified such that a prefix argument yields an "inline" disposition and Content-Type is determined automatically.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-mime.el.gz
(defun mh-mml-attach-file (&optional disposition)
  "Add a tag to insert a MIME message part from a file.

You are prompted for the filename containing the object, the
media type if it cannot be determined automatically, a content
description and the DISPOSITION of the attachment.

This is basically `mml-attach-file' from Gnus, modified such that a prefix
argument yields an \"inline\" disposition and Content-Type is determined
automatically."
  (let* ((file (mml-minibuffer-read-file "Attach file: "))
         (type (mh-minibuffer-read-type file))
         (description (mml-minibuffer-read-description))
         (dispos (or disposition
                     (mh-mml-minibuffer-read-disposition type))))
    (mml-insert-empty-tag 'part 'type type 'filename file
                          'disposition dispos 'description description)))