Added support for sending mail with sendmail package

* wl-draft.el (wl-draft-send-mail-with-sendmail): New
function. Send mail with sendmail package.
* wl-vars.el (wl-draft-send-mail-function): Add function to list
of prepared send mail functions.

Wrapper function for sendmail-send-it was provided by Michael Lex.

diff --git a/NEWS b/NEWS
index c28552b..9b83aa9 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -1,7 +1,10 @@
+
 Wanderlust NEWS -- User-visible changes in Wanderlust.
 
 * Changes in 2.16.0 from 2.14.x
 
+** Added support for sending mail with sendmail package
+
 ** Prevent accidental loss of messages when renaming IMAP folder
 
 ** Put spam mark on the message registered as spam.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 9cb66e4..e3c7930 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2011-07-10  David Maus  <dmaus@ictsoc.de>
+
+       * wl-draft.el (wl-draft-send-mail-with-sendmail): New
+       function. Send mail with sendmail package.
+       * wl-vars.el (wl-draft-send-mail-function): Add function to list
+       of prepared send mail functions.
+
 2011-06-03  Erik Hetzner  <egh@e6h.org>
 
        * wl-vars.el (wl-summary-line-format): Document missing control

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 9e966d7..b05eac1 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1126,6 +1126,22 @@ non-nil."
         (signal (car error) (cdr error))))))
   (wl-draft-send-mail-with-smtp))
 
+(defun wl-draft-send-mail-with-sendmail ()
+  "Send the prepared message buffer with `sendmail-send-it'.
+The function `sendmail-send-it' uses the external program
+`sendmail-program'."
+  (let ((id (std11-field-body "message-id"))
+       (to (std11-field-body "to")))
+    (run-hooks 'wl-mail-send-pre-hook)
+    (require 'sendmail)
+    (condition-case err
+       (sendmail-send-it)
+      (error
+       (wl-draft-write-sendlog 'failed 'sendmail nil (list to) id)
+       (signal (car err) (cdr err))))
+    (wl-draft-set-sent-message 'mail 'sent)
+    (wl-draft-write-sendlog 'ok 'sendmail nil (list to) id)))
+
 (defun wl-draft-insert-required-fields (&optional force-msgid)
   "Insert Message-ID, Date, and From field.
 If FORCE-MSGID, insert message-id regardless of `wl-insert-message-id'."

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 568be98..170d744 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -898,8 +898,10 @@ reasons of system internal to accord facilities for the Emacs variants.")
 (defcustom wl-draft-send-mail-function 'wl-draft-send-mail-with-smtp
   "A function to send mail.
 Prepared candidates are 'wl-draft-send-mail-with-smtp,
-'wl-draft-send-mail-with-qmail and 'wl-draft-send-mail-with-pop-before-smtp."
+'wl-draft-send-mail-with-sendmail, 'wl-draft-send-mail-with-qmail
+and 'wl-draft-send-mail-with-pop-before-smtp."
   :type '(radio (function-item wl-draft-send-mail-with-smtp)
+               (function-item wl-draft-send-mail-with-sendmail)
                (function-item wl-draft-send-mail-with-qmail)
                (function-item wl-draft-send-mail-with-pop-before-smtp)
                (function :tag "Other"))