[Top][All Lists]

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

[elpa] externals/gnorb 5d20bb5 125/449: Clean up saved sent-message info

From: Stefan Monnier
Subject: [elpa] externals/gnorb 5d20bb5 125/449: Clean up saved sent-message info
Date: Fri, 27 Nov 2020 23:15:23 -0500 (EST)

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

    Clean up saved sent-message info
    lisp/gnorb-gnus.el: (gnorb-gnus-outgoing-make-todo-1) Sets
                    gnorb-bnus-sending-message-info to nil when it's
 lisp/gnorb-gnus.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/gnorb-gnus.el b/lisp/gnorb-gnus.el
index 357f089..b730862 100644
--- a/lisp/gnorb-gnus.el
+++ b/lisp/gnorb-gnus.el
@@ -388,7 +388,10 @@ work."
                     :toaddress ,toaddress :date ,date))
     (org-capture nil gnorb-gnus-new-todo-capture-key)
     (when msg-id
-      (org-entry-put (point) gnorb-org-msg-id-key msg-id))))
+      (org-entry-put (point) gnorb-org-msg-id-key msg-id))
+    ;; it would be better to only do this if we knew the capture went
+    ;; through, ie wasn't aborted
+    (setq gnorb-gnus-sending-message-info nil)))
 ;;; If an incoming message should trigger state-change for a Org todo,
 ;;; call this function on it.

reply via email to

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