summaryrefslogtreecommitdiff
path: root/admin
diff options
context:
space:
mode:
authorMichael Albinus <michael.albinus@gmx.de>2020-08-25 15:19:11 +0200
committerMichael Albinus <michael.albinus@gmx.de>2020-08-25 16:26:30 +0200
commitf9754ef74a0afea1ea46e06ec39e09f094152df6 (patch)
tree4994b9a3fb6aaa99459cc083a53f2bf5985b1a36 /admin
parent36f2f67c96d44c82ce31dafb38cd4e2622a5a372 (diff)
downloademacs-f9754ef74a0afea1ea46e06ec39e09f094152df6.tar.gz
* admin/admin.el (reminder-for-release-blocking-bugs): New command.
Diffstat (limited to 'admin')
-rw-r--r--admin/admin.el45
1 files changed, 45 insertions, 0 deletions
diff --git a/admin/admin.el b/admin/admin.el
index 310cd54e957..728aab8b1ae 100644
--- a/admin/admin.el
+++ b/admin/admin.el
@@ -921,6 +921,51 @@ changes (in a non-trivial way). This function does not check for that."
'help-echo "Mouse-2: visit this definition"
:type 'cusver-xref)))))))
+
+;; Reminder message for open release-blocking bugs. This requires the
+;; GNU ELPA package `debbugs'.
+
+(defun reminder-for-release-blocking-bugs (version)
+ "Submit a reminder message for release-blocking bugs of Emacs VERSION."
+ (interactive
+ (list (completing-read
+ "Emacs release: "
+ (mapcar #'identity debbugs-gnu-emacs-blocking-reports)
+ nil t debbugs-gnu-emacs-current-release)))
+
+ (require 'reporter)
+ (require 'debbugs-gnu)
+
+ (when-let ((id (alist-get version debbugs-gnu-emacs-blocking-reports
+ nil nil #'string-equal))
+ (status-id (debbugs-get-status id))
+ (blockedby-ids (debbugs-get-attribute (car status-id) 'blockedby))
+ (blockedby-status
+ (apply #'debbugs-get-status (sort blockedby-ids #'<))))
+
+ (reporter-submit-bug-report
+ "<emacs-devel@gnu.org>" ; to-address
+ nil nil nil
+ (lambda () ; posthook
+ (goto-char (point-min))
+ (mail-position-on-field "subject")
+ (insert (format "Release-blocking bugs for Emacs %s" version))
+ (mail-text)
+ (delete-region (point) (point-max))
+ (insert "
+The following bugs are regarded as release-blocking for Emacs " version ".
+People are encouraged to work on them with priority.\n\n")
+ (dolist (_ blockedby-status)
+ (unless (equal (debbugs-get-attribute _ 'pending) "done")
+ (insert (format "bug#%d %s\n"
+ (debbugs-get-attribute _ 'id)
+ (debbugs-get-attribute _ 'subject)))))
+ (insert "
+If you use the debbugs package from GNU ELPA, you can apply the
+following form to see all bugs which block a given release:
+
+ (debbugs-gnu-emacs-release-blocking-reports \"" version "\")\n")))))
+
(provide 'admin)
;;; admin.el ends here