Commits

Arne Babenhauserheide committed a37e9fe

wl: added a chaining send function: send to multiple addresses.

Comments (0)

Files changed (2)

 780fa1dab3774fdba8c6791db985a6657a547b7a libs/ropemode
 d60799e4eed42e31a0468b92102b22bb67a21382 libs/vimpulse
 d807929f45225c02dedfd808dda87d7c40094412 libs/wanderlust
-fbdbe9953c375baac93d1b66440985530c62c084 private
+451eeda8f92783867f1b84640b0a8e9bac07ce2a private

lisplets/activate-wanderlust.el

 ))
 
 
+(defun wl-draft-clean-mail-address (address)
+  (replace-regexp-in-string "," "" address))
+
+(defun wl-draft-send-to-multiple-receivers-from-buffer (&optional addresses-buffer-name)
+  (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 ", ")))
+        (loop for address in addresses do
+              (wl-user-agent-insert-header "To" (wl-draft-clean-mail-address address))
+              (let ((wl-interactive-send nil))
+                (wl-draft-send))))))
+
+
+
 (require 'private-wanderlust)
 
 (provide 'activate-wanderlust)
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.