From: Juanma Barranquero <lekktu@gmail.com>
Date: Sun, 13 Jul 2003 17:20:34 +0000 (+0000)
Subject: (smtpmail-send-it): Create smtpmail-queue-dir if it doesn't exist.
X-Git-Tag: ttn-vms-21-2-B4~9363
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2fbc1118b3cd67547b6482061ba7c6ee1e7a57a9;p=emacs.git

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