diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-07-13 17:20:34 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-07-13 17:20:34 +0000 |
| commit | 2fbc1118b3cd67547b6482061ba7c6ee1e7a57a9 (patch) | |
| tree | 5ff863b663b336c359d9d46c966275a68ed03311 /lisp/mail | |
| parent | df7eb2bd5f2ab3ece2551ae7e65d022372b07d2a (diff) | |
| download | emacs-2fbc1118b3cd67547b6482061ba7c6ee1e7a57a9.tar.gz | |
(smtpmail-send-it): Create smtpmail-queue-dir if it doesn't exist.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/smtpmail.el | 2 |
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) |