wanderlust

I recently needed to send an email to many people¹.

Putting all of them into the BCC field did not work (mail rejected by provider) and when I split it into 2 emails, many did not see my mail because it was flagged as potential spam (they were not in the To-Field)².

I did not want to put them all into the To-Field, because that would have spread their email-addresses around, which many would not want³.

So I needed a different solution. Which I found in the extensibility of emacs and wanderlust⁴. It now carries the name wl-draft-send-to-multiple-receivers-from-buffer.

You simply write the email as usual via wl-draft, then put all email addresses you want write to into a buffer and call M-x wl-draft-send-to-multiple-receivers-from-buffer. It asks you about the buffer with email addresses, then shows you all addresses and asks for confirmation.

Then it sends one email after the other, with a randomized wait of 0-10 seconds between messages to avoid flagging as spam.

If you want to use it, just add the following to your .emacs:

(defun wl-draft-clean-mail-address (address)
  (replace-regexp-in-string "," "" address))

(defun wl-draft-send-to-multiple-receivers (addresses)
  (loop for address in addresses do
        (progn 
          (wl-user-agent-insert-header "To" 
            (wl-draft-clean-mail-address address))
          (let ((wl-interactive-send nil))
            (wl-draft-send))
          (sleep-for (random 10)))))

(defun wl-draft-send-to-multiple-receivers-from-buffer 
    (&optional addresses-buffer-name)
  "Send a mail to multiple recipients - one recipient at a time"
  (interactive "BBuffer with one address per line")
  (let ((addresses nil))
    (with-current-buffer addresses-buffer-name
      (setq addresses (split-string (buffer-string) "\n")))
    (if (y-or-n-p (concat "Send this mail to " 
            (mapconcat 'identity addresses ", ")))
        (wl-draft-send-to-multiple-receivers addresses))))

Happy Hacking!

This is my wanderlust.el file to read kmail maildirs. You need to define every folder you want to read.

;; mode:-*-emacs-lisp-*-
;; wanderlust 
(setq 
  elmo-maildir-folder-path "~/.kde/share/apps/kmail/mail"
          ;; where i store my mail

  wl-stay-folder-window t                       ;; show the folder pane (left)
  wl-folder-window-width 25                     ;; toggle on/off with 'i'
  
  wl-smtp-posting-server "smtp.web.de"            ;; put the smtp server here
  wl-local-domain "draketo.de"          ;; put something here...
  wl-message-id-domain "web.de"     ;; ...