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/
_______________________________________________
info-gnus-english mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/info-gnus-english
