Skip to main content
Improve title
Link
rpluim
  • 5.6k
  • 12
  • 25

Gnus send Send multiple emails using Gnus?

Improve formatting
Source Link
Basil
  • 12.6k
  • 44
  • 70

gnus Gnus send multiple emails

I want to send multiple emails from gnusGnus. I have over 1000 addresses. I have found a great solution here: https://lists.gnu.org/archive/html/help-gnu-emacs/2014-04/msg00584.html

(defun message-send-and-exit-multiple () (interactive) (let ((addresses (split-string (message-fetch-field "All") "," t))) (while addresses (let ((address (car addresses))) (setq addresses (cdr addresses)) (message-remove-header "To") (message-add-header (format "To: %s" address)) (if addresses (progn (message-send)) (message-send-and-exit))))))

(defun message-send-and-exit-multiple ()
  (interactive)
  (let ((addresses 
         (split-string 
          (message-fetch-field "All")
          "," t)))
    (while addresses
      (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))))))

But emacsEmacs asks me for every email: "Already sent message via mail; resend? (y or n)". So how I can automate the process? Also maybe it willwould be a good idea to add some sleep between sending emails? Like send 50 emails wait some time then send another?

gnus send multiple emails

I want to send multiple emails from gnus. I have over 1000 addresses. I have found great solution here https://lists.gnu.org/archive/html/help-gnu-emacs/2014-04/msg00584.html

(defun message-send-and-exit-multiple () (interactive) (let ((addresses (split-string (message-fetch-field "All") "," t))) (while addresses (let ((address (car addresses))) (setq addresses (cdr addresses)) (message-remove-header "To") (message-add-header (format "To: %s" address)) (if addresses (progn (message-send)) (message-send-and-exit))))))

But emacs asks me every email: "Already sent message via mail; resend? (y or n)". So how I can automate the process? Also maybe it will be a good idea to add some sleep between sending emails? Like send 50 emails wait some time then send another?

Gnus send multiple emails

I want to send multiple emails from Gnus. I have over 1000 addresses. I have found a great solution here: https://lists.gnu.org/archive/html/help-gnu-emacs/2014-04/msg00584.html

(defun message-send-and-exit-multiple ()
  (interactive)
  (let ((addresses 
         (split-string 
          (message-fetch-field "All")
          "," t)))
    (while addresses
      (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))))))

But Emacs asks me for every email: "Already sent message via mail; resend? (y or n)". So how I can automate the process? Also maybe it would be a good idea to add some sleep between sending emails? Like send 50 emails wait some time then send another?

Source Link
slk500
  • 473
  • 2
  • 15

gnus send multiple emails

I want to send multiple emails from gnus. I have over 1000 addresses. I have found great solution here https://lists.gnu.org/archive/html/help-gnu-emacs/2014-04/msg00584.html

(defun message-send-and-exit-multiple () (interactive) (let ((addresses (split-string (message-fetch-field "All") "," t))) (while addresses (let ((address (car addresses))) (setq addresses (cdr addresses)) (message-remove-header "To") (message-add-header (format "To: %s" address)) (if addresses (progn (message-send)) (message-send-and-exit))))))

But emacs asks me every email: "Already sent message via mail; resend? (y or n)". So how I can automate the process? Also maybe it will be a good idea to add some sleep between sending emails? Like send 50 emails wait some time then send another?