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

Merge pull request #387 from thierryvolpiatto/master

Browse Source 
* mu4e: fully fix last pull request about `mu4e~fontify-cited`
This commit is contained in:
Dirk-Jan C. Binnema
2014-03-03 19:36:39 +02:00
parent 85f94e1743 ee2e9d11f3
commit 9a56e3736e
2 changed files with 11 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
mu4e/mu4e-utils.el
View File

@ -1086,17 +1086,16 @@ receive (:info add :path <path> :docid <docid>) as well as (:update
"Colorize message content based on the citation level. This is
used in the view and compose modes."
(save-excursion
(let ((more-lines t))
(goto-char (point-min))
(when (search-forward-regexp "^\n" nil t) ;; search the first empty line
(while (re-search-forward mu4e-cited-regexp nil t)
(let* ((level (length (replace-regexp-in-string " " "" (match-string 1))))
(face
(unless (zerop level)
(let* ((level (string-width (replace-regexp-in-string
" " "" (match-string 1))))
(face (unless (zerop level)
(intern-soft (format "mu4e-cited-%d-face" level)))))
(when face
(add-text-properties (line-beginning-position 1)
(line-end-position 1) `(face ,face)))))))))
(line-end-position 1) `(face ,face))))))))
(defun mu4e~fontify-signature ()
"Give the message signatures a distinctive color. This is used in

2
mu4e/mu4e-vars.el
View File

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