Mercurial > emacs
comparison lisp/gnus/gnus-draft.el @ 112432:27320025ed54
Merge chages made in Gnus trunk.
mailcap.el (mailcap-mime-extensions): Rename text/org to text/x-org.
gnus-draft.el (gnus-group-send-queue): Update the queue group in the group buffer after sending the queue.
gnus-draft.el (gnus-group-send-queue): Really refresh the queue group after sending.
gnus-agent.el (gnus-agent-send-mail): Ditto.
gnus-group.el (gnus-group-refresh-group): New convenience function.
message.el (message-bogus-addresses): Remove commented-out value.
message.el (message-check-recipients): Display the encoded version of the bogus address if they differ.
flow-fill.el (fill-flowed): Make `delete-space' option correspond to "DelSp" parameter in RFC3676.
gnus-sum.el (gnus-summary-move-article): Protect against backends (i.e., nnimap) returning nil as the article number.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Sun, 23 Jan 2011 00:34:08 +0000 |
| parents | 417b1e4d63cd |
| children |
comparison
equal
deleted
inserted
replaced
| 112431:7a578da192b9 | 112432:27320025ed54 |
|---|---|
| 219 (while (setq article (pop articles)) | 219 (while (setq article (pop articles)) |
| 220 (unless (memq article unsendable) | 220 (unless (memq article unsendable) |
| 221 (let ((message-sending-message | 221 (let ((message-sending-message |
| 222 (format "Sending message %d of %d..." | 222 (format "Sending message %d of %d..." |
| 223 (- total (length articles)) total))) | 223 (- total (length articles)) total))) |
| 224 (gnus-draft-send article)))))))) | 224 (gnus-draft-send article)))))) |
| 225 (gnus-group-refresh-group "nndraft:queue"))) | |
| 225 | 226 |
| 226 ;;;###autoload | 227 ;;;###autoload |
| 227 (defun gnus-draft-reminder () | 228 (defun gnus-draft-reminder () |
| 228 "Reminder user if there are unsent drafts." | 229 "Reminder user if there are unsent drafts." |
| 229 (interactive) | 230 (interactive) |