projects
/
elisp
/
semi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a87d9e3
)
Ask user for MIME type and subtype during interactive file insertion,
author
vitaly
<vitaly>
Mon, 25 Jan 2010 09:27:20 +0000
(09:27 +0000)
committer
vitaly
<vitaly>
Mon, 25 Jan 2010 09:27:20 +0000
(09:27 +0000)
not only encoding.
ChangeLog
patch
|
blob
|
history
mime-edit.el
patch
|
blob
|
history
diff --git
a/ChangeLog
b/ChangeLog
index
f3f48e2
..
b945855
100644
(file)
--- a/
ChangeLog
+++ b/
ChangeLog
@@
-1,4
+1,10
@@
+2010-01-25 Vitaly Mayatskikh <v.mayatskih@gmail.com>
+
+ * mime-edit.el (mime-edit-insert-file): Ask user for MIME type and
+ subtype during interactive file insertion, not only encoding.
+
2010-01-19 Vitaly Mayatskikh <v.mayatskih@gmail.com>
2010-01-19 Vitaly Mayatskikh <v.mayatskih@gmail.com>
+
* mime-view.el (toplevel): New defcustom: mime-view-buttons-visible
* mime-view.el (mime-display-entity): Use mime-view-buttons-visible
to control visibility of MIME buttons.
* mime-view.el (toplevel): New defcustom: mime-view-buttons-visible
* mime-view.el (mime-display-entity): Use mime-view-buttons-visible
to control visibility of MIME buttons.
diff --git
a/mime-edit.el
b/mime-edit.el
index
e1577f0
..
fc68f79
100644
(file)
--- a/
mime-edit.el
+++ b/
mime-edit.el
@@
-1157,13
+1157,10
@@
If optional argument SUBTYPE is not nil, text/SUBTYPE tag is inserted."
(disposition-type (nth 4 guess))
(disposition-params (nth 5 guess))
)
(disposition-type (nth 4 guess))
(disposition-params (nth 5 guess))
)
- (if verbose
- (setq type (mime-prompt-for-type type)
- subtype (mime-prompt-for-subtype type subtype)
- ))
(if (or (interactive-p) verbose)
(if (or (interactive-p) verbose)
- (setq encoding (mime-prompt-for-encoding encoding))
- )
+ (setq type (mime-prompt-for-type type)
+ subtype (mime-prompt-for-subtype type subtype)
+ encoding (mime-prompt-for-encoding encoding)))
(if (or (consp parameters) (stringp disposition-type))
(let ((rest parameters) cell attribute value)
(setq parameters "")
(if (or (consp parameters) (stringp disposition-type))
(let ((rest parameters) cell attribute value)
(setq parameters "")