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

mu4e: fix mu4e--main-action alt

Browse Source 
As per #2439.
This commit is contained in:
Dirk-Jan C. Binnema
2023-03-30 23:54:42 +03:00
parent 189838b030
commit 881c3cb4c1
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
mu4e/mu4e-main.el
View File

@ -178,6 +178,7 @@ the reasonable thing in most cases. Still, such a rebinding
;; reset the baseline and get updated results. ;; reset the baseline and get updated results.
(mu4e--query-items-refresh 'reset-baseline)))) (mu4e--query-items-refresh 'reset-baseline))))
(defun mu4e--main-action (title cmd &optional bindstr alt) (defun mu4e--main-action (title cmd &optional bindstr alt)
"Produce main view action string with TITLE. "Produce main view action string with TITLE.
@ -187,12 +188,13 @@ In the result, used the TITLE string, with the first occurrence
of [@] replaced by a textual replacement of a binding to CMD as of [@] replaced by a textual replacement of a binding to CMD as
per `mu4e-key-description', or, if specified, BINDSTR. per `mu4e-key-description', or, if specified, BINDSTR.
If ALT is specified, and BINDSTR is longer than a single character, If a string ALT is specified, and BINDSTR is longer than a single
use ALT as a substitute. character, use ALT as a substitute. ALT should be a string of
length 1.
If the first letter after the [@] is equal to the last letter of the If the first letter after the [@] is equal to the last letter of the
binding representation, remove that first letter." binding representation, remove that first letter."
(let* ((bindstr (or bindstr (mu4e-key-description cmd) (and alt (string alt)) (let* ((bindstr (or bindstr (mu4e-key-description cmd) alt
(mu4e-error "No binding for %s" cmd))) (mu4e-error "No binding for %s" cmd)))
(bindstr (bindstr
(if (and alt (> (length bindstr) 1)) alt bindstr)) (if (and alt (> (length bindstr) 1)) alt bindstr))