[elpa] externals/gnorb bd97393 420/449: gnorb: Fix bug in post-message-send action triggering

[Stefan Monnier]

branch: externals/gnorb
commit bd973939449f60f133038d0bc8ecfa838f74fe3a
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    gnorb: Fix bug in post-message-send action triggering
    
    * packages/gnorb/gnorb-gnus.el (gnorb-gnus-outgoing-do-todo):
      rel-headings is a list of a list. Also, use `derived-mode-p'.
---
 gnorb-gnus.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnorb-gnus.el b/gnorb-gnus.el
index 16cf7ac..3c56f47 100644
--- a/gnorb-gnus.el
+++ b/gnorb-gnus.el
@@ -356,7 +356,7 @@ work."
                          (find-file (nth 1 rel-headings))
                          (goto-char (nth 3 rel-headings))
                          (org-id-get-create))))))
-    (if (not (eq major-mode 'message-mode))
+    (if (not (derived-mode-p 'message-mode 'mail-mode))
        ;; The message is already sent, so we're relying on whatever was
        ;; stored into `gnorb-gnus-message-info'.
        (if (equal arg '(16))
@@ -364,7 +364,7 @@ work."
            unsent message.")
          (if arg
              (progn
-               (push (car rel-headings) gnorb-message-org-ids)
+               (push (caar rel-headings) gnorb-message-org-ids)
                (gnorb-org-restore-after-send))
            (setq ref-ids (plist-get gnorb-gnus-message-info :refs))
            (if ref-ids