[elpa] master cb82e81: gnorb: More guards for visiting an original Org capture buffer

[Eric Abrahamsen]

branch: master
commit cb82e811d50dff0af84f7b787bfcf6413c496cee
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    gnorb: More guards for visiting an original Org capture buffer
    
    * packages/gnorb/gnorb-registry.el (gnorb-registry-capture): Chances
      are good the buffer is no longer live.
---
 packages/gnorb/gnorb-registry.el | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

diff --git a/packages/gnorb/gnorb-registry.el b/packages/gnorb/gnorb-registry.el
index d87892d..0f9509e 100644
--- a/packages/gnorb/gnorb-registry.el
+++ b/packages/gnorb/gnorb-registry.el
@@ -81,16 +81,18 @@ sent. Save the relevant Org ids in the 'gnorb-ids key."
 (defun gnorb-registry-capture ()
   "When capturing from a Gnus message, add our new Org heading id
 to the message's registry entry, under the `gnorb-ids' key."
-  (when (and (with-current-buffer
-                (org-capture-get :original-buffer)
-              (memq major-mode '(gnus-summary-mode gnus-article-mode)))
-            (not org-note-abort))
-    (let* ((msg-id
-           (gnorb-bracket-message-id
-            (plist-get org-store-link-plist :message-id)))
-          (org-id (org-id-get-create)))
-      (plist-put org-capture-plist :gnorb-id org-id)
-      (gnorb-registry-make-entry msg-id nil nil org-id nil))))
+  (let ((orig-buff (org-capture-get :original-buffer)))
+    (when (and (buffer-live-p orig-buff)
+              (with-current-buffer
+                  orig-buff
+                (memq major-mode '(gnus-summary-mode gnus-article-mode)))
+              (not org-note-abort))
+      (let* ((msg-id
+             (gnorb-bracket-message-id
+              (plist-get org-store-link-plist :message-id)))
+            (org-id (org-id-get-create)))
+       (plist-put org-capture-plist :gnorb-id org-id)
+       (gnorb-registry-make-entry msg-id nil nil org-id nil)))))
 
 (defun gnorb-find-visit-candidates (ids &optional include-zombies)
   "For all message-ids in IDS (which should be a list of