1 files changed, 13 insertions, 0 deletions
diff --git a/piem.el b/piem.el
index 872da22..f014cbc 100644
--- a/piem.el
+++ b/piem.el
@@ -87,6 +87,19 @@ should return a function that takes no arguments and inserts the
 mbox's contents in the current buffer."
   :type 'hook)
 
+(defvar piem-link-re
+  (rx "/" (group (one-or-more (not (any "/" "\n"))))
+      "/" (group (one-or-more (not (any "/" "\n"))))
+      "/" (group (zero-or-one
+                  (or "raw"
+                      "t.mbox.gz"
+                      (and (or "t" "T") "/#"
+                           (one-or-more (not (any "/" "\n")))))))
+      string-end)
+  "Regular expression matching public-inbox HTTP link.
+The first group is the inbox, the second is the message ID, and
+the rest is any trailing endpoint.")
+
 (defun piem-inbox-by-header-match ()
   "Return inbox based on matching message headers.
 This should be called from a buffer containing a message and is