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

Merge pull request #1221 from cacology/master

Browse Source 
mu4e: updated fontify-signature for RFC 1153 compliant digest messages
This commit is contained in:
Dirk-Jan C. Binnema
2018-04-24 15:01:22 +03:00
committed by GitHub
parent d0671ac3da 82bf333fab
commit 59e24f0234
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
mu4e/mu4e-utils.el
View File

@ -1289,14 +1289,17 @@ used in the view and compose modes."
(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
the view and compose modes." the view and compose modes and will color each signature in digest messages adhearing to RFC 1153."
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(save-excursion (save-excursion
;; give the footer a different color... ;; give the footer a different color...
(goto-char (point-min)) (goto-char (point-min))
(let ((p (re-search-forward "^-- *$" nil t))) (while (re-search-forward "^-- *$" nil t)
(when p (let ((p (point))
(add-text-properties p (point-max) '(face mu4e-footer-face))))))) (end (or
(re-search-forward "\\(^-\\{30\\}.*$\\)" nil t) ;; 30 by RFC1153
(point-max))))
(add-text-properties p end '(face mu4e-footer-face)))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun mu4e~quote-for-modeline (str) (defun mu4e~quote-for-modeline (str)