3 files changed, 5 insertions, 5 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))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
diff --git a/lisp/mail/rfc2047.el b/lisp/mail/rfc2047.el
index a48b876443b..3961c2a1e25 100644
--- a/lisp/mail/rfc2047.el
+++ b/lisp/mail/rfc2047.el
@@ -543,7 +543,7 @@ Dynamically bind `rfc2047-encoding-type' to change that."
                     (setq last-encoded nil)))))
             (error
              (if (or debug-on-quit debug-on-error)
-                 (signal (car err) (cdr err))
+                 (signal err)
                (error "Invalid data for rfc2047 encoding: %s"
                       (replace-regexp-in-string "[ \t\n]+" " " orig-text))))))))
     (unless dont-fold
diff --git a/lisp/mail/rfc2231.el b/lisp/mail/rfc2231.el
index d096176a9b1..70f73018674 100644
--- a/lisp/mail/rfc2231.el
+++ b/lisp/mail/rfc2231.el
@@ -176,7 +176,7 @@ must never cause a Lisp error."
           (error
            (setq parameters nil)
            (when signal-error
-             (signal (car err) (cdr err)))))
+             (signal err))))
 
         ;; Now collect and concatenate continuation parameters.
         (let ((cparams nil)