66 |
;;; Code: |
;;; Code: |
67 |
|
|
68 |
(require 'sendmail) |
(require 'sendmail) |
|
(require 'time-stamp) |
|
69 |
(autoload 'starttls-open-stream "starttls") |
(autoload 'starttls-open-stream "starttls") |
70 |
(autoload 'starttls-negotiate "starttls") |
(autoload 'starttls-negotiate "starttls") |
71 |
(autoload 'mail-strip-quoted-names "mail-utils") |
(autoload 'mail-strip-quoted-names "mail-utils") |
342 |
smtpmail-recipient-address-list tembuf)) |
smtpmail-recipient-address-list tembuf)) |
343 |
(error "Sending failed; SMTP protocol error")) |
(error "Sending failed; SMTP protocol error")) |
344 |
(error "Sending failed; no recipients")) |
(error "Sending failed; no recipients")) |
345 |
(let* ((file-data (concat |
(let* ((file-data |
346 |
smtpmail-queue-dir |
(expand-file-name |
347 |
(concat (time-stamp-yyyy-mm-dd) |
(format "%s_%i" |
348 |
"_" (time-stamp-hh:mm:ss) |
(format-time-string "%Y-%m-%d_%H:%M:%S") |
349 |
"_" |
(setq smtpmail-queue-counter |
350 |
(setq smtpmail-queue-counter |
(1+ smtpmail-queue-counter))) |
351 |
(1+ smtpmail-queue-counter))))) |
smtpmail-queue-dir)) |
352 |
(file-elisp (concat file-data ".el")) |
(file-data (convert-standard-filename file-data)) |
353 |
|
(file-elisp (concat file-data ".el")) |
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*")) |