From 95bfb362924d09d57de27dc9d4003fa4f64f69f5 Mon Sep 17 00:00:00 2001
From: Jim Meyering <meyering@fb.com>
Date: Mon, 6 Nov 2017 06:34:49 -0800
Subject: [PATCH] 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.
---
 scripts/git-hooks/commit-msg | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/scripts/git-hooks/commit-msg b/scripts/git-hooks/commit-msg
index e6b38bb21..3dbddc63d 100755
--- 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:");