diff options
| author | Sacha Chua <sacha@sachachua.com> | 2025-06-25 09:07:49 -0400 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2025-06-25 09:07:49 -0400 |
| commit | 25cc4d1a55bf55ccbabe08bd79e8b766f6d1e080 (patch) | |
| tree | 5aaa26e7d6bf4b56a56aab1633dc4d8ecae81feb /emacsconf-mail.el | |
| parent | ca01649acc6ea66ca75e6e45660107d57d0e306e (diff) | |
| download | emacsconf-el-25cc4d1a55bf55ccbabe08bd79e8b766f6d1e080.tar.xz emacsconf-el-25cc4d1a55bf55ccbabe08bd79e8b766f6d1e080.zip | |
switch to unsent mail buffer if there's been an error
Diffstat (limited to 'emacsconf-mail.el')
| -rw-r--r-- | emacsconf-mail.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/emacsconf-mail.el b/emacsconf-mail.el index 23743e8..ee6fb88 100644 --- a/emacsconf-mail.el +++ b/emacsconf-mail.el @@ -253,7 +253,9 @@ insert into the current buffer instead of drafting e-mails." (add-hook 'message-sent-hook `(lambda () (save-window-excursion - (emacsconf-add-to-talk-logbook ,(plist-get o :slug) ,message))) + (emacsconf-add-to-talk-logbook ,(plist-get o :slug) ,message)) + (when (match-buffers "*unsent") + (switch-to-buffer (car (match-buffers "*unsent"))))) nil t)) (defun emacsconf-mail-group-by-email (&optional info) |