From 2fbc1118b3cd67547b6482061ba7c6ee1e7a57a9 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sun, 13 Jul 2003 17:20:34 +0000 Subject: [PATCH] (smtpmail-send-it): Create smtpmail-queue-dir if it doesn't exist. --- lisp/mail/smtpmail.el | 2 ++ 1 file changed, 2 insertions(+) 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) -- 2.39.2