Привет, 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.