maint: make hook script reject "/archive/html" in lists.gnu.org URLS

* scripts/git-hooks/commit-msg: Require the abbreviated "/r/"
form in any log message URL.

diff --git a/scripts/git-hooks/commit-msg b/scripts/git-hooks/commit-msg
index e6b38bb21bdb632356941c6e082b8f2742eeab9f..3dbddc63d845da20e03e6712299082a29ed65829 100755 (executable)
--- a/scripts/git-hooks/commit-msg
+++ b/scripts/git-hooks/commit-msg
@@ -130,6 +130,9 @@ sub check_msg($$)
   $buf =~ m!https?://debbugs\.gnu\.org/(?:cgi/bugreport\.cgi\?bug=)?(\d+)!s
     and return "use shorter https://bugs.gnu.org/$1";
 
+  $buf =~ m!https://lists\.gnu\.org/archive/html/!s
+    and return "use '/r/' in place of '/archive/html/' in lists.gnu.org URLs";
+
   $buf =~ /^ *Signed-off-by:/mi
     and return q(do not use "Signed-off-by:");