118 |
(while (setq article (pop articles)) |
(while (setq article (pop articles)) |
119 |
(gnus-summary-remove-process-mark article) |
(gnus-summary-remove-process-mark article) |
120 |
(unless (memq article gnus-newsgroup-unsendable) |
(unless (memq article gnus-newsgroup-unsendable) |
121 |
(let ((message-sending-message |
(let ((message-sending-message |
122 |
(format "Sending message %d of %d..." |
(format "Sending message %d of %d..." |
123 |
(- total (length articles)) total))) |
(- total (length articles)) total))) |
124 |
(gnus-draft-send article gnus-newsgroup-name t)) |
(gnus-draft-send article gnus-newsgroup-name t)) |
125 |
(gnus-summary-mark-article article gnus-canceled-mark))))) |
(gnus-summary-mark-article article gnus-canceled-mark))))) |
128 |
"Send message ARTICLE." |
"Send message ARTICLE." |
129 |
(let ((message-syntax-checks (if interactive nil |
(let ((message-syntax-checks (if interactive nil |
130 |
'dont-check-for-anything-just-trust-me)) |
'dont-check-for-anything-just-trust-me)) |
131 |
(message-inhibit-body-encoding (or (not group) |
(message-inhibit-body-encoding (or (not group) |
132 |
(equal group "nndraft:queue") |
(equal group "nndraft:queue") |
133 |
message-inhibit-body-encoding)) |
message-inhibit-body-encoding)) |
134 |
(message-send-hook (and group (not (equal group "nndraft:queue")) |
(message-send-hook (and group (not (equal group "nndraft:queue")) |
185 |
article) |
article) |
186 |
(while (setq article (pop articles)) |
(while (setq article (pop articles)) |
187 |
(unless (memq article unsendable) |
(unless (memq article unsendable) |
188 |
(let ((message-sending-message |
(let ((message-sending-message |
189 |
(format "Sending message %d of %d..." |
(format "Sending message %d of %d..." |
190 |
(- total (length articles)) total))) |
(- total (length articles)) total))) |
191 |
(gnus-draft-send article))))))) |
(gnus-draft-send article))))))) |
192 |
|
|