[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 73635ed: Small rmailmm fix (bug#27203)
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master 73635ed: Small rmailmm fix (bug#27203) |
Date: |
Fri, 2 Jun 2017 20:42:17 -0400 (EDT) |
branch: master
commit 73635edb43e0e4a31cfe8af41ccb07c32836b148
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
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.
---
lisp/mail/rmailmm.el | 13 +++++++------
1 file changed, 7 insertions(+), 6 deletions(-)
diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el
index c6b9cfd..1ffd466 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"))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 73635ed: Small rmailmm fix (bug#27203),
Glenn Morris <=