From a655640e7bf049b1431e1f45ff261e8d5f5b8271 Mon Sep 17 00:00:00 2001 From: djcb Date: Sun, 12 Jan 2014 13:07:36 +0200 Subject: [PATCH] * mu4e-main: allow for non-alphanum shortcuts --- mu4e/mu4e-main.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/mu4e/mu4e-main.el b/mu4e/mu4e-main.el index 7a5f5f0f..a14a3982 100644 --- a/mu4e/mu4e-main.el +++ b/mu4e/mu4e-main.el @@ -70,14 +70,14 @@ (defun mu4e~main-action-str (str &optional func-or-shortcut) - "Highlight the first occurence of [..] in STR. + "Highlight the first occurence of [.] in STR. If FUNC-OR-SHORTCUT is non-nil and if it is a function, call it -when STR is clicked (using RET or mouse-2); if FUNC-OR-SHORTCUT -is a string, execute the corresponding keyboard action when it is +when STR is clicked (using RET or mouse-2); if FUNC-OR-SHORTCUT is +a string, execute the corresponding keyboard action when it is clicked." (let ((newstr (replace-regexp-in-string - "\\[\\(\\w+\\)\\]" + "\\[\\(\\.\\)\\]" (lambda(m) (format "[%s]" (propertize (match-string 1 m) 'face 'mu4e-highlight-face)))