1267 ) |
1267 ) |
1268 (add-hook 'message-setup-hook 'my-message-setup-routine) |
1268 (add-hook 'message-setup-hook 'my-message-setup-routine) |
1269 |
1269 |
1270 ;; Kill message buffer after mail send. You always can use C-c C-s to preserve it. |
1270 ;; Kill message buffer after mail send. You always can use C-c C-s to preserve it. |
1271 (setq message-kill-buffer-on-exit t) |
1271 (setq message-kill-buffer-on-exit t) |
|
1272 |
|
1273 (defun my-message-save () |
|
1274 "Store message in `gnus-article-save-directory' after |
|
1275 successful sending. It is possible that mail rejected and I lost |
|
1276 it completely, this func save it for me." |
|
1277 (unless (eq major-mode 'message-mode) |
|
1278 (error "Attempt to call my-message-save in non message-mode buffer")) |
|
1279 (make-directory gnus-article-save-directory t) |
|
1280 (let ( (buf (current-buffer)) |
|
1281 (field-to (message-fetch-field "To")) |
|
1282 (field-subject (message-fetch-field "Subject")) |
|
1283 file ) |
|
1284 (setq file (concat gnus-article-save-directory "/" (format-time-string "%F_%T") "_" field-to "_" field-subject)) |
|
1285 (with-temp-file file |
|
1286 (insert-buffer buf) |
|
1287 )) ) |
|
1288 (add-hook 'message-sent-hook 'my-message-save) |
1272 |
1289 |
1273 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1290 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1274 (message "smtp, smtpmail") |
1291 (message "smtp, smtpmail") |
1275 |
1292 |
1276 (when (and (not (eq system-type 'gnu/linux)) (boundp 'smtpmail-smtp-server)) |
1293 (when (and (not (eq system-type 'gnu/linux)) (boundp 'smtpmail-smtp-server)) |