emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

* mu4e/mu4e-utils.el (mu4e~fontify-cited): remove unsused let var.

This commit is contained in:
Thierry Volpiatto 2014-03-02 21:04:21 +01:00
parent 3835c2e45e
commit ee2e9d11f3
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
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 "Colorize message content based on the citation level. This is
used in the view and compose modes." used in the view and compose modes."
(save-excursion (save-excursion
(let ((more-lines t)) (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 (string-width (replace-regexp-in-string
(let* ((level (string-width (replace-regexp-in-string " " "" (match-string 1))))
" " "" (match-string 1)))) (face (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) (line-end-position 1) `(face ,face))))))))
(line-end-position 1) `(face ,face)))))))))
(defun mu4e~fontify-signature () (defun mu4e~fontify-signature ()
"Give the message signatures a distinctive color. This is used in "Give the message signatures a distinctive color. This is used in