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

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 2f15ac2fe7365dd2b3d2c39de3cf6697b39ef900..e24f20b86914d4a7b4afa4968a10512726e8a342 100644 (file)
--- 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)