[elpa] externals/gnorb ab9b441 147/449: Clearing list of saved attachments

[Stefan Monnier]

branch: externals/gnorb
commit ab9b441c3e076f45a22bccc5df030f3662c5d35e
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    Clearing list of saved attachments
    
    * lisp/gnorb-utils.el (gnorb-trigger-todo-action): This is where
      gnorb-gnus-capture-attachments should be set to nil.
    
    * lisp/gnorb-gnus.el (gnorb-gnus-incoming-do-todo): Don't do it here.
---
 lisp/gnorb-gnus.el  | 1 -
 lisp/gnorb-utils.el | 1 +
 2 files changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/gnorb-gnus.el b/lisp/gnorb-gnus.el
index ef911ed..94d7fe4 100644
--- a/lisp/gnorb-gnus.el
+++ b/lisp/gnorb-gnus.el
@@ -474,7 +474,6 @@ to t (it is, by default)."
        (find-file (nth 1 targ))
        (goto-char (nth 3 targ))
        (gnorb-trigger-todo-action arg)))
-    (setq gnorb-gnus-capture-attachments nil)
     (message
      "Insert a link to the message with org-insert-link (%s)"
      (key-description
diff --git a/lisp/gnorb-utils.el b/lisp/gnorb-utils.el
index ce40b28..5c87da1 100644
--- a/lisp/gnorb-utils.el
+++ b/lisp/gnorb-utils.el
@@ -154,6 +154,7 @@ the prefix arg."
        (lambda (a) (org-attach-attach a nil 'mv))
        gnorb-gnus-capture-attachments
        '("file" "files" "attach"))
+      (setq gnorb-gnus-capture-attachments nil)
       (if (eq action 'note)
          (call-interactively note-func)
        (call-interactively todo-func)))))