header-line-format

[Sebastian Tennant]

Hi all,

I want a _non-underlined_ header line that looks like this:

 a one, b two, c, three ...
 ^      ^      ^
 |      |      |
 +------+------+----- bold face, everything else default face

I have this:

 (setq header-line-format
       (mapconcat
        (lambda (k)
          (format "%s %s,"
                  (propertize (car k) 'face 'bold)
                  (propertize (cdr k) 'face 'default)))
        '(("a" . "one") ("b" . "two") ("c" . "three"))
        " "))

but everything apart from 'one', 'two' and 'three' is underlined,
including the empty space all the way to right side of the window.

How can I 'switch-off' the underlining across the whole window/string?

I've tried propertizing the whole string created by the mapconcat
function:

 (setq header-line-format
       (propertize 
         (mapconcat
         [...]
         " ")
       'underline nil))

without success.

Sebastian