[Top][All Lists]

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

[elpa] externals/gnorb 123b521 031/449: gnorb-org.el: bugfix gnorb-org-r

From: Stefan Monnier
Subject: [elpa] externals/gnorb 123b521 031/449: gnorb-org.el: bugfix gnorb-org-restore-after-send
Date: Fri, 27 Nov 2020 23:15:02 -0500 (EST)

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

    gnorb-org.el: bugfix gnorb-org-restore-after-send
    This won't always be called within a gnus summary buffer, check for
 lisp/gnorb-org.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/gnorb-org.el b/lisp/gnorb-org.el
index ac6c623..f7e16bb 100644
--- a/lisp/gnorb-org.el
+++ b/lisp/gnorb-org.el
@@ -54,7 +54,8 @@ point."
   after the mail is sent.")
 (defun gnorb-org-restore-after-send ()
-  (gnus-summary-exit nil t)
+  (when (eq major-mode 'gnus-summary-exit)
+    (gnus-summary-exit nil t))
   (when (window-configuration-p gnorb-org-window-conf)
     (set-window-configuration gnorb-org-window-conf))
   (let ((todo (org-entry-get (point) "TODO")))

reply via email to

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