mirror of https://github.com/djcb/mu.git
* mu4e/mu4e-utils.el (mu4e~fontify-cited): remove unsused let var.
This commit is contained in:
parent
3835c2e45e
commit
ee2e9d11f3
|
@ -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 (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)))))))))
|
||||
(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 (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))))))))
|
||||
|
||||
(defun mu4e~fontify-signature ()
|
||||
"Give the message signatures a distinctive color. This is used in
|
||||
|
|
Loading…
Reference in New Issue