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