Re: Multiple Mailings

[Eric Abrahamsen <eric@ericabrahamsen.net>]

On 09/08/19 18:33 PM, Bob Newell wrote:
> I see what you are doing in your code, but it didn't quite work for me
> although I'm sure with some tweaking it could.
>
> I solved the issue another way, which is hackish but at least a little
> less so. The code is below; it's for my own environment, but could be
> generally useful if the connectivity check were to be removed. I can't
> take much credit; it's mostly stuff found on the web with a few of my
> own changes.
>
> I now get around the prompting by resetting 'message-sent-message-via to
> nil, so gnus doesn't realize I'm sending duplicates and therefore
> doesn't nag.
>
> I tie 'message-send-and-exit-multiple to C-c C-m C-m in 'message-mode-map.
>
> (defun message-send-and-exit-multiple ()
>   (interactive) 
> ;;; Check connectivity once, assume(!) it stays up for the duration of
> ;;; the mass mailing.
>   (if (outbound-port-test "smtp.gmail.com" 587)
>       (progn
> 	(let ((addresses
> 	       (split-string
> 		(message-fetch-field "To")
> 		"," t)))
> 	  (while addresses
> 	    ;; Avoid prompts for mailing duplicate copies.
> 	    (setq message-sent-message-via nil)
> 	    (let ((address (car addresses)))
> 	      (setq addresses (cdr addresses))
> 	      (message-remove-header "To")
> 	      (message-add-header (format "To: %s" address))
> 	      (if addresses
>   	        (message-send)
> 		(message-send-and-exit))))))
>        (message "No smtp connectivity, save as draft instead")))

I don't suppose it really matters in the end, though the one thing I
would be wary of is the potential of sending multiple messages with the
same message ID. You're probably not going to end up breaking the
internet if you do, but I wouldn't be surprised if there's plenty of
software out there (including Gnus) that might get confused by identical
IDs.

Let's see if that actually happens...