Re: Multiple Mailings

[Bob Newell <bobnewell@bobnewell.net>]

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")))

-- 
Bob Newell
Honolulu, Hawai`i
* Via Gnus/BBDB/Org/Emacs/Linux *