1 files changed, 3 insertions, 3 deletions

diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el
index ae3b37ea41c..ee009ecfda4 100644
--- a/lisp/mail/mail-extr.el
+++ b/lisp/mail/mail-extr.el
@@ -655,10 +655,10 @@ Unless NO-REPLACE is true, at each of the positions in LIST-SYMBOL
         t)
     (error
      ;; #### kludge kludge kludge kludge kludge kludge kludge !!!
-     (if (string-equal (nth 1 error) "Unbalanced parentheses")
+     (if (string-equal (error-slot-value error 1) "Unbalanced parentheses")
          nil
-       (while t
-         (signal (car error) (cdr error)))))))
+       (while t ;;FIXME: Why?
+         (signal error))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;