[Top][All Lists]

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

[elpa] externals/gnorb 357c9c6 220/449: Always append function to messag

From: Stefan Monnier
Subject: [elpa] externals/gnorb 357c9c6 220/449: Always append function to message-exit-actions
Date: Fri, 27 Nov 2020 23:15:43 -0500 (EST)

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

    Always append function to message-exit-actions
    Probably safest to have our return/restore functions at the end of the
    message-exit-actions list.
    * lisp/gnorb-gnus.el (gnorb-gnus-check-outgoing-headers,
      gnorb-gnus-outgoing-do-todo): Use the 't argument to add-to-list.
    * lisp/nngnorb.el (gnorb-summary-reply-hook): Ditto.
 lisp/gnorb-gnus.el | 5 +++--
 lisp/nngnorb.el    | 2 +-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/gnorb-gnus.el b/lisp/gnorb-gnus.el
index a69b5d1..b53629f 100644
--- a/lisp/gnorb-gnus.el
+++ b/lisp/gnorb-gnus.el
@@ -294,7 +294,7 @@ information about the outgoing message into
            ;; if we're working from a draft, or triggering this from
            ;; a reply, it might not be there yet.
            (add-to-list 'message-exit-actions
-                        'gnorb-org-restore-after-send))
+                        'gnorb-org-restore-after-send t))
        (setq gnorb-message-org-ids nil)))))
 (add-hook 'message-header-hook 'gnorb-gnus-check-outgoing-headers)
@@ -409,7 +409,8 @@ work."
        (if header-ids
-        'gnorb-gnus-outgoing-make-todo-1))
+        'gnorb-gnus-outgoing-make-todo-1)
+       t)
        (if header-ids
           "Message will trigger TODO state-changes after sending"
diff --git a/lisp/nngnorb.el b/lisp/nngnorb.el
index 864c78d..8048304 100644
--- a/lisp/nngnorb.el
+++ b/lisp/nngnorb.el
@@ -251,7 +251,7 @@ continue to provide tracking of sent messages."
           (intern gnorb-mail-header)
          (add-to-list 'message-exit-actions
-                      'gnorb-org-restore-after-send))))))
+                      'gnorb-org-restore-after-send t))))))
 (defun gnorb-summary-exit ()
   "Like `gnus-summary-exit', but restores the gnorb window conf."

reply via email to

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