From 8db9e3edf2060cc5d4b8854da1c925607bf56887 Mon Sep 17 00:00:00 2001 From: Christian Schwarzgruber Date: Sun, 1 Jan 2023 10:33:03 +0100 Subject: [PATCH] mu4e-view: ask to create directory when saving attachments --- mu4e/mu4e-view.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/mu4e/mu4e-view.el b/mu4e/mu4e-view.el index 88e8e593..53e5eb43 100644 --- a/mu4e/mu4e-view.el +++ b/mu4e/mu4e-view.el @@ -1146,6 +1146,12 @@ containing commas." dir (if arg (read-directory-name "Save to directory: ") mu4e-attachment-dir)) (cl-loop for (f . h) in handles + initially + do (when + (and + (not (file-directory-p dir)) + (y-or-n-p (format "Create directory `%s'? " dir))) + (make-directory dir t)) when (member f files) do (mm-save-part-to-file h (let ((file (expand-file-name f dir)))