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

* mu4e/mu4e-utils.el (mu4e~fontify-cited): Use string-width.

Browse Source 
* mu4e/mu4e-vars.el (mu4e-cited-regexp): Improve it.
This commit is contained in:
Thierry Volpiatto
2014-03-02 20:58:49 +01:00
parent 4f7b5da504
commit 3835c2e45e
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
mu4e/mu4e-utils.el
View File

@ -1090,9 +1090,9 @@ used in the view and compose modes."
(goto-char (point-min)) (goto-char (point-min))
(when (search-forward-regexp "^\n" nil t) ;; search the first empty line (when (search-forward-regexp "^\n" nil t) ;; search the first empty line
(while (re-search-forward mu4e-cited-regexp nil t) (while (re-search-forward mu4e-cited-regexp nil t)
(let* ((level (length (replace-regexp-in-string " " "" (match-string 1)))) (let* ((level (string-width (replace-regexp-in-string
(face " " "" (match-string 1))))
(unless (zerop level) (face (unless (zerop level)
(intern-soft (format "mu4e-cited-%d-face" level))))) (intern-soft (format "mu4e-cited-%d-face" level)))))
(when face (when face
(add-text-properties (line-beginning-position 1) (add-text-properties (line-beginning-position 1)

2
mu4e/mu4e-vars.el
View File

@ -181,7 +181,7 @@ view buffer."
:type 'boolean :type 'boolean
:group 'mu4e) :group 'mu4e)
(defcustom mu4e-cited-regexp "^ *\\(> *>*\\)" (defcustom mu4e-cited-regexp "^ *\\(\\(>+ ?\\)+\\)"
"Regular expression that determines whether a line is a citation." "Regular expression that determines whether a line is a citation."
:type 'string :type 'string
:group 'mu4e) :group 'mu4e)