branch: externals/gnorb
commit ba991103467b79bd50ab135c9d12b356d5506f65
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
Check for relevant headings when handling attachments
* gnorb-gnus.el (gnorb-gnus-attach-part): When the user wants to attach
a mail attachment to a TODO heading, check if the message is
already associated with a heading, offer that first.
---
gnorb-gnus.el | 25 +++++++++++++++++++------
1 file changed, 19 insertions(+), 6 deletions(-)
diff --git a/gnorb-gnus.el b/gnorb-gnus.el
index e6c6a1d..ba72107 100644
--- a/gnorb-gnus.el
+++ b/gnorb-gnus.el
@@ -156,15 +156,28 @@ each message."
(defun gnorb-gnus-attach-part (handle &optional org-heading)
"Attach HANDLE to an existing org heading."
(let* ((filename (gnorb-gnus-save-part handle))
- ;; we should probably do the automatic location routine here,
- ;; as well.
(org-refile-targets gnorb-gnus-trigger-refile-targets)
- (org-heading (or org-heading
- (org-refile-get-location "Attach part to" nil t))))
+ (ref-msg-ids
+ (concat (gnus-fetch-original-field "references") " "
+ (gnus-fetch-original-field "in-reply-to")))
+ (rel-heading
+ (when gnorb-tracking-enabled
+ (car (gnorb-find-visit-candidates
+ ref-msg-ids))))
+ (org-heading
+ (if (and rel-heading
+ (y-or-n-p (message
+ "Attach part to %s"
+ (gnorb-pretty-outline rel-heading))))
+ rel-heading
+ (org-refile-get-location "Attach part to" nil t))))
(require 'org-attach)
(save-window-excursion
- (find-file (nth 1 org-heading))
- (goto-char (nth 3 org-heading))
+ (if (stringp org-heading)
+ (org-id-goto org-heading)
+ (progn
+ (find-file (nth 1 org-heading))
+ (goto-char (nth 3 org-heading))))
(org-attach-attach filename nil 'mv))))
(defun gnorb-gnus-save-part (handle)
