-(defun debbugs-org-show-next-reports (hits)
- "Show next HITS of bug reports."
- (with-current-buffer (get-buffer-create (debbugs-org-show-buffer-name))
- (save-excursion
- (goto-char (point-max))
- (when (re-search-backward
- "^* COMMENT \\[\\[elisp:(debbugs-org-show-next-reports" nil t)
- (forward-line -1)
- (delete-region (point) (point-max)))
- (debbugs-org-show-reports
- (butlast debbugs-org-ids (- (length debbugs-org-ids) hits)))
- (setq debbugs-org-ids
- (last debbugs-org-ids (- (length debbugs-org-ids) hits)))
- (goto-char (point-max))
- (when debbugs-org-ids
- (insert
- (format
- "* COMMENT [[elisp:(debbugs-org-show-next-reports %s)][Next bugs]]\n\n"
- hits)))
- (insert "* COMMENT Local " "Variables\n")
- (when debbugs-org-ids
- (insert "#+NAME: init\n"
- "#+BEGIN_SRC elisp\n"
- (format "(setq debbugs-org-ids '%s)\n" debbugs-org-ids)
- "#+END_SRC\n\n"))
- (insert "# Local " "Variables:\n"
- "# mode: org\n"
- "# eval: (debbugs-org-mode 1)\n")
- (when debbugs-org-ids
- (insert (format "# eval: (%s \"init\")\n"
- (if (macrop 'org-sbe) "org-sbe" "sbe"))))
- (insert "# End:\n")
- (goto-char (point-min))
- (org-overview)
- (set-buffer-modified-p nil))))
-