Extract the insert-issue function

ogi.el

@@ -52,12 +52,8 @@
   "From alist OBJ get the value of PROP."
   `(cdr (assq ',prop ,obj)))
 
-;;;###autoload
-(defun ogi-insert (project)
-  "Insert (new) issues for PROJECT under the current entry."
-  (interactive "MGet issues for: ")
-  (goto-char (point-max))
-  (mapc (lambda (issue)
+(defun ogi-insert-entry (issue)
+  "Insert a single issue into the current buffer, unless it exists."
   (let ((id (number-to-string (ogiprop issue id))))
     (unless (org-find-entry-with-id id)
       (org-insert-heading-after-current)
@@ -73,7 +69,13 @@
                                   "-" "_" (ogiprop itm name)))
                                (ogiprop issue labels)))
       (org-entry-put (point) "ID" id))))
-        (ogi-get project)))
+
+;;;###autoload
+(defun ogi-insert (project)
+  "Insert (new) issues for PROJECT under the current entry."
+  (interactive "MGet issues for: ")
+  (goto-char (point-max))
+  (mapc #'ogi-insert-entry (ogi-get project)))
 
 (provide 'ogi)