On Tue, 29 Apr 2003 02:57:15 +0300
Andrey Slusar <vasallia(a)ukr.net> wrote:
Есть такая конструкция в gnus:
===.gnus.el===
(fido-adr (concat "From: " from
(substring (car fido-adr-list) 1) ":"
(substring (cadr fido-adr-list) 1) "/"
(substring (caddr fido-adr-list) 1)
(if (cadddr fido-adr-list)
(concat "." (substring (cadddr fido-adr-list) 1))))))
===
Она работает только при наличии mule-ucs, а хотелось бы от этого
избавиться. Без mule-ucs работают только car и cadr. Может можно
чем-то заменить эту конструкцию?
Либо добавить (require 'cl), либо (car (cdr (cdr ....)))