Commit 9a7c2a6a authored by David Byers's avatar David Byers

Set first-line-face only on the first line

parent 464cf0ce
1999-10-14 David Byers <davby@ida.liu.se>
* view-text.el (lyskom-view-text): Don't set first-line-face on
the imported header lines.
Thu Oct 14 13:57:16 1999 David Byers <davby@sen2.ida.liu.se>
* Release av 0.46-BETA-9
......
......@@ -144,6 +144,15 @@ Note that this function must not be called asynchronously."
(lyskom-insert (lyskom-get-string 'filtered)))
(lyskom-insert "\n")
(setq end (point-max))
(if (and kom-text-properties
(null filter)
(not (lyskom-face-default-p 'kom-first-line-face)))
(add-text-properties
start end '(face kom-first-line-face)))
(set-marker start nil)
;; Insert sender
(when (and mx-sender kom-show-imported-envelope-sender)
......@@ -190,17 +199,7 @@ Note that this function must not be called asynchronously."
mx-reply-to)
)
(setq end (point-max))
(if (and kom-text-properties
(null filter)
(not (lyskom-face-default-p 'kom-first-line-face)))
(add-text-properties
start end '(face kom-first-line-face)))
(set-marker start nil)
;; All recipients and other header lines.
;; All recipients and other header lines.
(if (eq filter 'dontshow)
(lyskom-mark-as-read
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment