Mercurial > emacs
changeset 51895:2f47cd5fd50d
(smtpmail-send-it): Create smtpmail-queue-dir if it doesn't exist.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Sun, 13 Jul 2003 17:20:34 +0000 |
| parents | 4dafe305a193 |
| children | b0d51b510fb5 |
| files | lisp/mail/smtpmail.el |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/smtpmail.el Sun Jul 13 17:20:00 2003 +0000 +++ b/lisp/mail/smtpmail.el Sun Jul 13 17:20:34 2003 +0000 @@ -354,6 +354,8 @@ (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)