add org-capture refile advice

diff --git a/.emacs b/.emacs
index 98063beef144eb8ef9dd46eb997895dfba28e6e9..d28fe5472c6ced8c8c5f0563c622d77548687f1e 100644 (file)
--- a/.emacs
+++ b/.emacs
@@ -175,6 +175,15 @@
   "Delete frame at remember finalization"
   (progn (if my-org-protocol-flag (delete-frame))
          (setq my-org-protocol-flag nil)))
+(defadvice org-capture-refile (around delete-frame-after-refile activate)
+  "Delete frame at remember refile"
+  (if my-org-protocol-flag
+      (progn
+        (setq my-org-protocol-flag nil)
+        ad-do-it
+        (delete-frame))
+    ad-do-it)
+  )
 (defadvice org-capture-kill (after delete-frame-at-end activate)
   "Delete frame at remember abort"
   (progn (if my-org-protocol-flag (delete-frame))