diff options
author | Glenn Morris <rgm@gnu.org> | 2017-06-02 20:42:01 -0400 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2017-06-02 20:42:01 -0400 |
commit | 73635edb43e0e4a31cfe8af41ccb07c32836b148 (patch) | |
tree | d94dbbc295c6e160ad607a68b9327c12444f530d /lisp/mail/rmailmm.el | |
parent | 606bfcf00ed39f4f05045dbbdb3a6f12ec4baf03 (diff) | |
download | emacs-73635edb43e0e4a31cfe8af41ccb07c32836b148.tar.gz |
Small rmailmm fix (bug#27203)
* lisp/mail/rmailmm.el (rmail-mime-insert-bulk):
Fall back to HOME if no match in rmail-mime-attachment-dirs-alist.
Diffstat (limited to 'lisp/mail/rmailmm.el')
-rw-r--r-- | lisp/mail/rmailmm.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el index c6b9cfddb66..1ffd4668ac8 100644 --- a/lisp/mail/rmailmm.el +++ b/lisp/mail/rmailmm.el @@ -817,12 +817,13 @@ directly." (bulk-data (aref tagline 1)) (body (rmail-mime-entity-body entity)) ;; Find the default directory for this media type. - (directory (catch 'directory - (dolist (entry rmail-mime-attachment-dirs-alist) - (when (string-match (car entry) (car content-type)) - (dolist (dir (cdr entry)) - (when (file-directory-p dir) - (throw 'directory dir))))))) + (directory (or (catch 'directory + (dolist (entry rmail-mime-attachment-dirs-alist) + (when (string-match (car entry) (car content-type)) + (dolist (dir (cdr entry)) + (when (file-directory-p dir) + (throw 'directory dir)))))) + "~")) (filename (or (cdr (assq 'name (cdr content-type))) (cdr (assq 'filename (cdr content-disposition))) "noname")) |