Re: Recent change on Emacs master: aggressive word-wrap of header lines in article display

["Adam Sjøgren" <asjo@koldfront.dk>]

Adam writes:

>     (defun gnus-article-treat-fold-headers ()
>       ...
>             (if (not (gnus--variable-pitch-p (get-text-property (point) 'face)))
>                 (mail-header-fold-field)
>               (forward-char 1)
>               (pixel-fill-region (point) (point-max) (pixel-fill-width)))

> I should step through that and see what actually happens.

gnus--variable-pitch-p returns nil on gnus-header-name, so
mail-header-fold-field gets called!

M-x describe-face on gnus-header-name gives this:

    Face: gnus-header-name (sample) (customize this face)

    Documentation:
    Face used for displaying header names.

    Defined in ‘gnus-art.el’.

               Family: DejaVu Sans Condensed
              Foundry: unspecified
                Width: unspecified
               Height: unspecified
               Weight: unspecified
                Slant: unspecified
           Foreground: maroon
    DistantForeground: unspecified
           Background: unspecified
            Underline: unspecified
             Overline: unspecified
       Strike-through: unspecified
                  Box: unspecified
              Inverse: unspecified
              Stipple: unspecified
                 Font: unspecified
              Fontset: unspecified
               Extend: unspecified
              Inherit: unspecified

Hm, why doesn't Emacs think DejaVu Sans Condensed is variable pitch?

Maybe I should step through gnus--variable-pitch-p as well.

  (gnus--variable-pitch-p 'gnus-header-name) → nil

Ok, so the reason is that the definition of a variable pitch face is
whether it is, or inherits from, the face variable-pitch.

I just used customize to set the font of gnus-header-name.


  Best regards,

    Adam

-- 
 "Så ruller domino-effekten.                                Adam Sjøgren
  Du kender det selv!"                                 asjo@koldfront.dk