Re: Changing gnus-user-agent and showing all headers?

[Reiner Steib]

On Sat, Nov 03 2007, Adam Sjøgren wrote:

> On 04 Nov 2007 08:37:19 +1100, andrew wrote:
>> (setq gnus-user-agent 'emacs-gnus-type)
[...]
>> but this does not work so my syntax is wrong?

Andrew, if your Gnus is ...
| User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.4
... then, setting `gnus-user-agent' has no effect at all.

> I think so, cf. the documentation of gnus-user-agent:
>
> ,----[ C-h v gnus-user-agent RET ]
> | `gnus-user-agent' is a variable declared in Lisp.
> |   -- loaded from "gnus"
> | 
> | Value: (emacs gnus type)
[...]
> (Note, I am using No Gnus, I haven't checked if this is the same in
> older Gnusae).

`gnus-user-agent' was introduced on 2003-02-24.  Later I changed it to
use a list instead of a single symbol and added (hopefully)
appropriate conversion code:

;; Convert old (No Gnus < 2005-01-10, v5-10 < 2005-09-05) symbol type values:
(when (symbolp gnus-user-agent)
  (setq gnus-user-agent
        (cond ((eq gnus-user-agent 'emacs-gnus-config)
               '(emacs gnus config))
              ((eq gnus-user-agent 'emacs-gnus-type)
               '(emacs gnus type))
              ((eq gnus-user-agent 'emacs-gnus)
               '(emacs gnus))
              ((eq gnus-user-agent 'gnus)
               '(gnus))
              (t gnus-user-agent)))
  (gnus-message 1 "Converted `gnus-user-agent' to `%s'." gnus-user-agent)
  (sit-for 1)
  (if (get 'gnus-user-agent 'saved-value)
      (customize-save-variable 'gnus-user-agent gnus-user-agent)
    (gnus-message 1 "Edit your init file to make this change permanent.")
    (sit-for 2)))

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/