(smtpmail-send-it): Create smtpmail-queue-dir if it doesn't exist.

1 files changed, 2 insertions, 0 deletions

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 2f15ac2fe73..e24f20b8691 100644
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -354,6 +354,8 @@ This is relative to `smtpmail-queue-dir'.")
                    (buffer-data (create-file-buffer file-data))
                    (buffer-elisp (create-file-buffer file-elisp))
                    (buffer-scratch "*queue-mail*"))
+              (unless (file-exists-p smtpmail-queue-dir)
+                (make-directory smtpmail-queue-dir t))
               (with-current-buffer buffer-data
                 (erase-buffer)
                 (insert-buffer tembuf)