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

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

[elpa] master 36914ac: gnorb: Fix bug in post-message-send action trigge


From: Eric Abrahamsen
Subject: [elpa] master 36914ac: gnorb: Fix bug in post-message-send action triggering
Date: Thu, 20 Sep 2018 13:14:04 -0400 (EDT)

branch: master
commit 36914ac05d017975a8388be538637cf3e6bfed61
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    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'.
---
 packages/gnorb/gnorb-gnus.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/gnorb/gnorb-gnus.el b/packages/gnorb/gnorb-gnus.el
index 16cf7ac..3c56f47 100644
--- a/packages/gnorb/gnorb-gnus.el
+++ b/packages/gnorb/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



reply via email to

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