emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/gnorb 6aef624 265/449: Restore the layout after the res


From: Stefan Monnier
Subject: [elpa] externals/gnorb 6aef624 265/449: Restore the layout after the restore process
Date: Fri, 27 Nov 2020 23:15:52 -0500 (EST)

branch: externals/gnorb
commit 6aef624fec0ccbdd0c77e56325dbd7315b4cd637
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    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."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]