From ee2e9d11f3d8ca43559206e1ea0e96c35fe52d68 Mon Sep 17 00:00:00 2001 From: Thierry Volpiatto Date: Sun, 2 Mar 2014 21:04:21 +0100 Subject: [PATCH] * mu4e/mu4e-utils.el (mu4e~fontify-cited): remove unsused let var. --- mu4e/mu4e-utils.el | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/mu4e/mu4e-utils.el b/mu4e/mu4e-utils.el index 5f246eb6..5ed05b77 100644 --- a/mu4e/mu4e-utils.el +++ b/mu4e/mu4e-utils.el @@ -1086,17 +1086,16 @@ receive (:info add :path :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