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.

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"))