branch: externals/gnorb
commit 6aef624fec0ccbdd0c77e56325dbd7315b4cd637
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
Restore the layout after the restore process
* gnorb-org.el (gnorb-org-restore-after-send): Call gnorb-restore-layout
as the last action.
---
gnorb-org.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/gnorb-org.el b/gnorb-org.el
index 5a21701..104ff90 100644
--- a/gnorb-org.el
+++ b/gnorb-org.el
@@ -136,17 +136,18 @@ future!"
link)))
(defun gnorb-org-restore-after-send ()
- "After an email is sent, clean up the gnus summary buffer, put
-us back where we came from, and go through all the org ids that
-might have been in the outgoing message's headers and call
-`gnorb-trigger-todo-action' on each one."
+ "After an email is sent, go through all the org ids that might
+have been in the outgoing message's headers and call
+`gnorb-trigger-todo-action' on each one, then put us back where
+we came from."
(delete-other-windows)
(dolist (id gnorb-message-org-ids)
(org-id-goto id)
(gnorb-trigger-todo-action nil id))
;; this is a little unnecessary, but it may save grief
(setq gnorb-gnus-message-info nil)
- (setq gnorb-message-org-ids nil))
+ (setq gnorb-message-org-ids nil)
+ (gnorb-restore-layout))
(defun gnorb-org-extract-links (&optional arg region)
"See if there are viable links in the subtree under point."
