cadr, caar and cdar are not portable to all Emacsen.

src/ChangeLog

+2002-07-30  Per Cederqvist  <ceder@ceder.dyndns.org>
+
+	cadr, caar and cdar are not portable to all Emacsen.
+	* vars.el.in (lyskom-button-actions): Don't use cadr.
+	* utilities.el (lyskom-read-text-no-prefix-arg): Don't use caar or
+	cdar.
+
 2002-07-29  David Byers  <david.byers@swipnet.se>
 
 	* utilities.el: Removed lyskom-pick-text-no-strategy-alist.

src/utilities.el

@@ -734,8 +734,8 @@ its first argument and remaining list items appended to the argument list."
       (while (and how (null text-no))
         (let* ((strategy-pred nil) ;; when a predicate to test the prefix
                (compare-value nil) ;; when a value to compare the prefix to
-               (applies-p (caar how)) ;; either one of the above
-               (what-text (cdar how))
+               (applies-p (car (car how))) ;; either one of the above
+               (what-text (cdr (car how)))
                (constraint-not-met nil))
           (if (or (eq applies-p '-) (not (functionp applies-p)))
               (setq compare-value applies-p)

src/vars.el.in

@@ -1551,22 +1551,22 @@ appear more than once"
        . (lambda (buffer recpt-and-buffer text)
 	   (lyskom-edit-do-add-recipient/copy
 	    'RECPT (car recpt-and-buffer)
-	    (cadr recpt-and-buffer))))
+	    (car (cdr recpt-and-buffer)))))
       (lyskom-button-recpt-type-copy
        . (lambda (buffer recpt-and-buffer text)
 	   (lyskom-edit-do-add-recipient/copy
 	    'CC-RECPT (car recpt-and-buffer)
-	    (cadr recpt-and-buffer))))
+	    (car (cdr recpt-and-buffer)))))
       (lyskom-button-recpt-type-bcc
        . (lambda (buffer recpt-and-buffer text)
 	   (lyskom-edit-do-add-recipient/copy
 	    'BCC-RECPT (car recpt-and-buffer)
-	    (cadr recpt-and-buffer))))
+	    (car (cdr recpt-and-buffer)))))
       (lyskom-button-recpt-type-sub
        . (lambda (buffer recpt-and-buffer text)
 	   (lyskom-edit-sub-recipient/copy
 	    (car recpt-and-buffer)
-	    (cadr recpt-and-buffer))))))
+	    (car (cdr recpt-and-buffer)))))))
     (add-recipient-or-xref
      add-recipient-or-xref
      (lambda (buffer argument text) nil)