Mercurial > emacs
comparison lisp/mail/smtpmail.el @ 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 | 7f434a265bfa |
children | e4b050573b12 |
comparison
equal
deleted
inserted
replaced
51894:4dafe305a193 | 51895:2f47cd5fd50d |
---|---|
352 (file-data (convert-standard-filename file-data)) | 352 (file-data (convert-standard-filename file-data)) |
353 (file-elisp (concat file-data ".el")) | 353 (file-elisp (concat file-data ".el")) |
354 (buffer-data (create-file-buffer file-data)) | 354 (buffer-data (create-file-buffer file-data)) |
355 (buffer-elisp (create-file-buffer file-elisp)) | 355 (buffer-elisp (create-file-buffer file-elisp)) |
356 (buffer-scratch "*queue-mail*")) | 356 (buffer-scratch "*queue-mail*")) |
357 (unless (file-exists-p smtpmail-queue-dir) | |
358 (make-directory smtpmail-queue-dir t)) | |
357 (with-current-buffer buffer-data | 359 (with-current-buffer buffer-data |
358 (erase-buffer) | 360 (erase-buffer) |
359 (insert-buffer tembuf) | 361 (insert-buffer tembuf) |
360 (write-file file-data) | 362 (write-file file-data) |
361 (set-buffer buffer-elisp) | 363 (set-buffer buffer-elisp) |