Commit af5e96cd authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(mml-minibuffer-read-disposition): Don't use inline by default

for text/rtf.  Display default in prompt.  Pass default for M-n.
parent dd44836c
......@@ -943,13 +943,15 @@ See Info node `(emacs-mime)Composing'.
description))
(defun mml-minibuffer-read-disposition (type &optional default)
(let* ((default (or default
(if (string-match "^text/.*" type)
"inline"
"attachment")))
(disposition (completing-read "Disposition: "
'(("attachment") ("inline") (""))
nil t)))
(unless default (setq default
(if (and (string-match "\\`text/" type)
(not (string-match "\\`text/rtf\\'" type)))
"inline"
"attachment")))
(let ((disposition (completing-read
(format "Disposition (default %s): " default)
'(("attachment") ("inline") (""))
nil t nil nil default)))
(if (not (equal disposition ""))
disposition
default)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment