code.delx.au - gnu-emacs-elpa/blob - smtpmail-async.el

   1 ;;; smtpmail-async --- Send e-mail with smtpmail.el asynchronously
   2
   3 ;; Copyright (C) 2012~2014 John Wiegley
   4
   5 ;; Author: John Wiegley <jwiegley@gmail.com>
   6 ;; Created: 18 Jun 2012
   7 ;; Version: 1.0
   8 ;; Keywords: email async
   9 ;; X-URL: https://github.com/jwiegley/emacs-async
  10
  11 ;; This program is free software; you can redistribute it and/or
  12 ;; modify it under the terms of the GNU General Public License as
  13 ;; published by the Free Software Foundation; either version 2, or (at
  14 ;; your option) any later version.
  15
  16 ;; This program is distributed in the hope that it will be useful, but
  17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  19 ;; General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  24 ;; Boston, MA 02111-1307, USA.
  25 \f
  26 ;;; Commentary:
  27
  28 ;; Send e-mail with smtpmail.el asynchronously.  To use:
  29 ;;
  30 ;;   (require 'smtpmail-async)
  31 ;;
  32 ;;   (setq send-mail-function 'async-smtpmail-send-it
  33 ;;         message-send-mail-function 'async-smtpmail-send-it)
  34 ;;
  35 ;; This assumes you already have smtpmail.el working.
  36
  37 (defgroup smtpmail-async nil
  38   "Send e-mail with smtpmail.el asynchronously"
  39   :group 'smptmail)
  40
  41 (require 'async)
  42 (require 'smtpmail)
  43
  44 (defvar async-smtpmail-before-send-hook nil
  45   "Hook running in the child emacs in `async-smtpmail-send-it'.
  46 It is called just before calling `smtpmail-send-it'.")
  47
  48 (defun async-smtpmail-send-it ()
  49   (let ((to          (message-field-value "To"))
  50         (buf-content (buffer-substring-no-properties
  51                       (point-min) (point-max))))
  52     (message "Delivering message to %s..." to)
  53     (async-start
  54      `(lambda ()
  55         (require 'smtpmail)
  56         (with-temp-buffer
  57           (insert ,buf-content)
  58           (set-buffer-multibyte nil)
  59           ;; Pass in the variable environment for smtpmail
  60           ,(async-inject-variables
  61             "\\`\\(smtpmail\\|async-smtpmail\\|\\(user-\\)?mail\\)-\\|auth-sources"
  62             nil "\\`\\(mail-header-format-function\\|smtpmail-address-buffer\\|mail-mode-abbrev-table\\)")
  63           (run-hooks 'async-smtpmail-before-send-hook)
  64           (smtpmail-send-it)))
  65      `(lambda (&optional ignore)
  66         (message "Delivering message to %s...done" ,to)))))
  67
  68 (provide 'smtpmail-async)
  69
  70 ;;; smtpmail-async.el ends here