Привет, Oleg! On Tue, 29 Apr 2003 15:26:50 +0300 Oleg Demidovich wrote: AS>> ===.gnus.el=== AS>> (fido-adr (concat "From: " from AS>> (substring (car fido-adr-list) 1) ":" AS>> (substring (cadr fido-adr-list) 1) "/" AS>> (substring (caddr fido-adr-list) 1) AS>> (if (cadddr fido-adr-list) AS>> (concat "." (substring (cadddr fido-adr-list) 1)))))) AS>> === AS>> Она работает только при наличии mule-ucs, а хотелось бы от этого AS>> избавиться. Без mule-ucs работают только car и cadr. OD> (require 'cl) Спасибо Вам. Помогло и хоть подгрузка этой уксы время не занимает. На слабой машине умереть от этого можно. OD> -- WBR, Oleg. -- Don't worry. ICQ #149041245 Andrey Slusar.

On Tue, 29 Apr 2003 02:57:15 +0300 Andrey Slusar <vasallia(a)ukr.net&gt; wrote: Либо добавить (require 'cl), либо (car (cdr (cdr ....)))