Commits

Arne Babenhauserheide committed 3f03f6f

shorter lines.

  • Participants
  • Parent commits 866bfe1
  • Branches fluss

Comments (0)

Files changed (1)

lisplets/activate-wanderlust.el

 (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))
+          (wl-user-agent-insert-header "To" 
+                                       (wl-draft-clean-mail-address address))
           (let ((wl-interactive-send nil))
             (wl-draft-send))
-          ; (sit-for random-delay) → wait (interruptable) to not overload the SMTP server or trigger anti-spam measures.
           (sleep-for (random 10))
           )))
 
   (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 ", ")))
+    (if (y-or-n-p (concat "Send this mail to " 
+                          (mapconcat 'identity addresses ", ")))
         (wl-draft-send-to-multiple-receivers addresses))))