branch: master
commit 36914ac05d017975a8388be538637cf3e6bfed61
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
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
