diff options
| author | Sacha Chua <sacha@sachachua.com> | 2023-11-19 16:02:53 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2023-11-19 16:02:53 -0500 |
| commit | 1fc1c7e45b32421e17fcec1b23327bfb264a3fab (patch) | |
| tree | 24dd9452f93ceb3dd19f89f81d4968162b87aba9 | |
| parent | 0fa05d446121d582574988cd7cdc89a18bd3603b (diff) | |
| download | emacsconf-el-1fc1c7e45b32421e17fcec1b23327bfb264a3fab.tar.xz emacsconf-el-1fc1c7e45b32421e17fcec1b23327bfb264a3fab.zip | |
New function emacsconf-mail-merge-check-drafts
| -rw-r--r-- | emacsconf-mail.el | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/emacsconf-mail.el b/emacsconf-mail.el index 0546a1e..1656bef 100644 --- a/emacsconf-mail.el +++ b/emacsconf-mail.el @@ -507,6 +507,21 @@ Include some other things, too, such as emacsconf-year, title, name, email, url, (when note (insert "#+NOTE: " note "\n======== Delete above before sending =============\n\n")) (insert body)))) +(defun emacsconf-mail-merge-check-drafts () + "Put all the drafts in one buffer to check." + (interactive) + (let (result) + (mapc (lambda (buffer) + (when (string-match "unsent" (buffer-name buffer)) + (with-current-buffer buffer + (add-to-list 'result (buffer-string))))) + (buffer-list)) + (with-current-buffer (get-buffer-create "*Drafts*") + (erase-buffer) + (insert (string-join result "\n-------------------------------------------------------\n")) + (goto-char (point-min)) + (switch-to-buffer (current-buffer))))) + (defun emacsconf-mail-merge-cancel () (interactive) (mapc (lambda (buffer) |