alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mu4e: tweak label comments

Browse Source
This commit is contained in:
Dirk-Jan C. Binnema
2025-09-02 21:11:36 +03:00
committed by Seth Ladygo
parent 124b371850
commit 152182a567
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
mu4e/mu4e-labels.el
View File

@ -71,14 +71,18 @@ See `mu4e-label-regex' for the definition of the valid format."
(defun mu4e-label-parse-expr (expr) (defun mu4e-label-parse-expr (expr)
"Parse a single delta expression EXPR. "Parse a single delta expression EXPR.
If EXPR is non-empty, raises an error if EXPR is not a valid If EXPR is non-empty, raises a warning if EXPR is not a valid
delta. Otherwise, returns EXPR with extra whitespace removed. delta expression. Otherwise, returns EXPR with extra whitespace
removed.
If STR is empty, return nil." If STR is empty, return nil."
(let ((op (aref expr 0)) (let ((op (aref expr 0))
(label (substring expr 1))) (label (substring expr 1)))
;; guess we could _imply_ '+', but for now let's not
;; be too magical.
(unless (or (char-equal op ?+) (char-equal op ?-)) (unless (or (char-equal op ?+) (char-equal op ?-))
(mu4e-warn "invalid: delta-expression must start with '+' or '-'")) (mu4e-warn "delta-expressions must start with + or - ('%s')"
expr))
(concat (char-to-string op) (concat (char-to-string op)
(mu4e-label-validate label)))) (mu4e-label-validate label))))