diff options
| author | Dirk-Jan C. Binnema <djcb@djcbsoftware.nl> | 2025-09-01 00:52:03 +0300 |
|---|---|---|
| committer | Dirk-Jan C. Binnema <djcb@djcbsoftware.nl> | 2025-09-01 00:52:03 +0300 |
| commit | 6d0a9f4c146ffcd173d45c4eecc1420eb141c9c0 (patch) | |
| tree | 16d1985ae5646cca5fe1e97d2b6834749f8e95d8 /mu4e | |
| parent | ba573cadd057096f16d63ff9c487e56badff3287 (diff) | |
mu4e-labels: don't require emacs-30 rx
Use an old-school regexp instead.
Diffstat (limited to 'mu4e')
| -rw-r--r-- | mu4e/mu4e-labels.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/mu4e/mu4e-labels.el b/mu4e/mu4e-labels.el index a3a6f04..053d24b 100644 --- a/mu4e/mu4e-labels.el +++ b/mu4e/mu4e-labels.el @@ -30,13 +30,15 @@ (require 'mu4e-helpers) (defconst mu4e-label-regex - (rx-let ((taboo (any cntrl blank "\"'\\/`$")) - (taboo1-extra (any "-+"))) - (rx (seq - ;; First character: base forbidden + extra chars - (not (or taboo taboo1-extra)) - ;; Rest: just base forbidden chars - (zero-or-more (not taboo))))) + "[^\"'+/\\`[:cntrl:][:blank:]-][^\"'/\\`[:cntrl:][:blank:]]*" + ;;Emacs 30: + ;;(rx-let ((taboo (any cntrl blank "\"'\\/`$")) + ;; (taboo1-extra (any "-+"))) + ;; (rx (seq + ;; ;; First character: base forbidden + extra chars + ;; (not (or taboo taboo1-extra)) + ;; ;; Rest: just base forbidden chars + ;; (zero-or-more (not taboo))))) "Unanchored regular expression matching a valid label. Any character is allowed that is not a control-character, a |