Store message in `gnus-article-save-directory' after successful sending. It is
possible that mail rejected and I lost it completely, this func save it for
me.
--- a/.emacs-my Fri Jul 06 22:11:21 2012 +0300
+++ b/.emacs-my Sun Jul 08 21:39:10 2012 +0300
@@ -1270,6 +1270,23 @@
;; Kill message buffer after mail send. You always can use C-c C-s to preserve it.
(setq message-kill-buffer-on-exit t)
+(defun my-message-save ()
+ "Store message in `gnus-article-save-directory' after
+successful sending. It is possible that mail rejected and I lost
+it completely, this func save it for me."
+ (unless (eq major-mode 'message-mode)
+ (error "Attempt to call my-message-save in non message-mode buffer"))
+ (make-directory gnus-article-save-directory t)
+ (let ( (buf (current-buffer))
+ (field-to (message-fetch-field "To"))
+ (field-subject (message-fetch-field "Subject"))
+ file )
+ (setq file (concat gnus-article-save-directory "/" (format-time-string "%F_%T") "_" field-to "_" field-subject))
+ (with-temp-file file
+ (insert-buffer buf)
+ )) )
+(add-hook 'message-sent-hook 'my-message-save)
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(message "smtp, smtpmail")