physiculus writes:
> Eric Abrahamsen writes:
>
>> (defun gnus-user-format-function-g (header)
>> (let ((g-labels (cdr-safe
>> (assoc 'X-GM-LABELS
>>(mail-header-extra header)
>> (when g-labels
>> ...do something with labels)))
>>
>> Then
Just a heads up: I've converted the Article buffer in Gnus from using
widgets.el widgets to use button.el buttons. There should be no
user-visible changes, but it's a pretty fundamental change. If you have
code that relies on the Article buffer to widgetisised (that's a word)
there may be
Eric Abrahamsen writes:
> (defun gnus-user-format-function-g (header)
> (let ((g-labels (cdr-safe
> (assoc 'X-GM-LABELS
> (mail-header-extra header)
> (when g-labels
> ...do something with labels)))
>
> Then use the "%ug" format code in
Eric Abrahamsen writes:
> Most of the code there should no longer be necessary -- you don't need
> to fetch the labels separately if X-GMAIL-LABELS is already in
> `(gnus|nnmail)-extra-headers'. It might be enough to do:
>
> (defun gnus-user-format-function-g (header)
> (let ((g-labels