354 |
(buffer-data (create-file-buffer file-data)) |
(buffer-data (create-file-buffer file-data)) |
355 |
(buffer-elisp (create-file-buffer file-elisp)) |
(buffer-elisp (create-file-buffer file-elisp)) |
356 |
(buffer-scratch "*queue-mail*")) |
(buffer-scratch "*queue-mail*")) |
357 |
|
(unless (file-exists-p smtpmail-queue-dir) |
358 |
|
(make-directory smtpmail-queue-dir t)) |
359 |
(with-current-buffer buffer-data |
(with-current-buffer buffer-data |
360 |
(erase-buffer) |
(erase-buffer) |
361 |
(insert-buffer tembuf) |
(insert-buffer tembuf) |