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

* mu4e-view: be a bit more strict when considering lines for citation

Browse Source
This commit is contained in:
djcb
2012-06-24 09:45:01 +03:00
parent e90be96670
commit 1d7b7a00ce
1 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
emacs/mu4e-view.el
View File

@ -560,14 +560,16 @@ Seen; if the message is not New/Unread, do nothing."
;; Get the citation level at point -- i.e., the number of '>' ;; Get the citation level at point -- i.e., the number of '>'
;; prefixes, starting with 0 for 'no citation' ;; prefixes, starting with 0 for 'no citation'
(beginning-of-line 1) (beginning-of-line 1)
(let* ((level (how-many ">" (line-beginning-position 1) ;; consider only lines that heuristically look like a citation line...
(line-end-position 1))) (when (looking-at "[[:blank:]]*[^[:blank:]]*[[:blank:]]*>")
(face (let* ((level (how-many ">" (line-beginning-position 1)
(unless (zerop level) (line-end-position 1)))
(intern-soft (format "mu4e-cited-%d-face" level))))) (face
(when face (unless (zerop level)
(add-text-properties (line-beginning-position 1) (intern-soft (format "mu4e-cited-%d-face" level)))))
(line-end-position 1) `(face ,face)))) (when face
(add-text-properties (line-beginning-position 1)
(line-end-position 1) `(face ,face)))))
(setq more-lines (setq more-lines
(and (= 0 (forward-line 1)) (and (= 0 (forward-line 1))
;; we need to add this weird check below; it seems in some cases ;; we need to add this weird check below; it seems in some cases