Fix drafts not counted for broken links

1 files changed, 4 insertions, 3 deletions

diff --git a/lisp/seam.el b/lisp/seam.el
index a228f4c..2330b97 100644
--- a/lisp/seam.el
+++ b/lisp/seam.el
@@ -312,12 +312,13 @@ completion prompt is given to choose the type."
     seam-note-directory type
     (concat (when draft "-") slug ".org"))))
 
-(defun seam-get-links-to-file (file)
+(defun seam-get-links-to-file (file &optional include-drafts)
   "Return filename of each note which links to FILE."
   (cl-loop for file in (remove (expand-file-name file)
                                (seam-note-files-containing-string
                                 (format "[[seam:%s]" (file-name-base file))))
-           when (or seam-export--include-drafts
+           when (or include-drafts
+                    seam-export--include-drafts
                     (not (seam-draft-p file)))
            collect file))
 
@@ -619,7 +620,7 @@ buffer is killed after deletion."
    (let ((file (buffer-file-name)))
      (seam-get-note-type file)        ;Error if file isn't a Seam note.
      (list
-      (let ((incoming (length (seam-get-links-to-file file))))
+      (let ((incoming (length (seam-get-links-to-file file t))))
         (and (yes-or-no-p
               (format "Really %s `%s' and kill buffer%s?"
                       (if delete-by-moving-to-trash