X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/7d50f6b5485b6f2e69149a367eefa2b7f86d0d5d..ad47985be821de6d3ae64d22e412709434f78a79:/packages/debbugs/debbugs-gnu.el

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 0a19bca7c..50487fc5a 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -1243,6 +1243,7 @@ removed instead."
 	    "owner" "noowner"
 	    "invalid"
 	    "reassign"
+	    "retitle"
 	    "patch" "wontfix" "moreinfo" "unreproducible" "fixed" "notabug"
 	    "pending" "help" "security" "confirmed"
 	    "usertag")
@@ -1296,6 +1297,8 @@ removed instead."
 		  " ")))
 	       ((equal message "owner")
 		(format "owner %d !\n" id))
+	       ((equal message "retitle")
+		(format "retitle %d %s\n" id (read-string "New title: ")))
 	       ((equal message "reassign")
 		(format "reassign %d %s\n" id (read-string "Package(s): ")))
 	       ((equal message "close")