'gnorb-org-restore-after-send t))
(setq gnorb-message-org-ids nil)))))
- ;; This sets the global value, but the hook is made buffer-local in
- ;; `gnus-inews-add-send-actions', so this is ignored
- ;(add-hook 'message-header-hook 'gnorb-gnus-check-outgoing-headers)
- (add-hook 'message-send-hook 'gnorb-gnus-check-outgoing-headers t)
+ (add-hook 'message-sent-hook 'gnorb-gnus-check-outgoing-headers t)
;;;###autoload
(defun gnorb-gnus-outgoing-do-todo (&optional arg)
(targ (car-safe related-headings)))
(if targ
(let ((ret (make-marker)))
+ (setq gnorb-window-conf (current-window-configuration))
+ (move-marker gnorb-return-marker (point))
;; Assume the first heading is the one we want.
(gnorb-registry-make-entry
msg-id from subject targ group)
:raw-value
head)
strings)
- (org-element-map tree 'paragraph
+ (org-element-map tree '(paragraph drawer)
(lambda (p)
(push (org-element-interpret-data p)
strings))
"Export backend: "
(mapcar (lambda (b)
(symbol-name (org-export-backend-name b)))
- org-export--registered-backends) nil t))
+ org-export--registered-backends)
+ nil t))
(backend-symbol (intern backend-string))
(f-or-t (org-completing-read "Export as file or text? "
'("file" "text") nil t))
;; Copyright (C) 2014 Free Software Foundation, Inc.
- ;; Version: 1.1.0
+ ;; Version: 1.1.1
;; Package-Requires: ((cl-lib "0.5"))
;; Maintainer: Eric Abrahamsen <eric@ericabrahamsen.net>
(with-eval-after-load 'org
(require 'gnorb-org))
-
(provide 'gnorb)
;;; gnorb.el ends here