WiPscratch/error-API

5 files changed, 7 insertions, 8 deletions

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 56473f81f06..301dec87cf7 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -6946,7 +6946,7 @@ not have a face in `gnus-article-boring-faces'."
                   (set-window-hscroll win new-sum-hscroll))))
           (set-window-configuration owin)
           (if err
-              (signal (car err) (cdr err))
+              (signal err)
             (ding))))))))
 
 (defun gnus-article-read-summary-send-keys ()
diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el
index 58f72f002fd..87ac1eb2a15 100644
--- a/lisp/gnus/gnus-search.el
+++ b/lisp/gnus/gnus-search.el
@@ -2087,7 +2087,7 @@ Assume \"size\" key is equal to \"larger\"."
               (apply #'nnheader-message 4
                      "Search engine for %s improperly configured: %s"
                      server (cdr err))
-            (signal (car err) (cdr err))))))
+            (signal err)))))
      (alist-get 'search-group-spec specs))
     ;; Some search engines do their own limiting, but some don't, so
     ;; do it again here.  This is bad because, if the user is
diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el
index bc1c7272283..a1e954d5367 100644
--- a/lisp/gnus/mail-source.el
+++ b/lisp/gnus/mail-source.el
@@ -831,7 +831,7 @@ Deleting old (> %s day(s)) incoming mail file `%s'." diff bfile)
                      (setq mail-source-password-cache
                            (delq (assoc from mail-source-password-cache)
                                  mail-source-password-cache))
-                     (signal (car err) (cdr err)))))))))
+                     (signal err))))))))
       (if result
           (progn
             (when (eq authentication 'password)
@@ -896,7 +896,7 @@ Deleting old (> %s day(s)) incoming mail file `%s'." diff bfile)
                      (setq mail-source-password-cache
                            (delq (assoc from mail-source-password-cache)
                                  mail-source-password-cache))
-                     (signal (car err) (cdr err)))))))))
+                     (signal err))))))))
       (if result
           ;; Inform display-time that we have new mail.
           (setq mail-source-new-mail-available (> result 0))
diff --git a/lisp/gnus/mml-sec.el b/lisp/gnus/mml-sec.el
index 700a99fe5d8..85b7d3a879c 100644
--- a/lisp/gnus/mml-sec.el
+++ b/lisp/gnus/mml-sec.el
@@ -939,7 +939,7 @@ If no one is selected, symmetric encryption will be performed.  "
               mml-secure-secret-key-id-list nil)
       (error
        (mml-secure-clear-secret-key-id-list)
-       (signal (car error) (cdr error))))
+       (signal error)))
     cipher))
 
 (defun mml-secure-sender-sign-query (protocol sender)
@@ -1029,7 +1029,7 @@ Returns non-nil if the user has chosen to use SENDER."
               mml-secure-secret-key-id-list nil)
       (error
        (mml-secure-clear-secret-key-id-list)
-       (signal (car error) (cdr error))))
+       (signal error)))
     (if (epg-context-result-for context 'sign)
         (setq micalg (epg-new-signature-digest-algorithm
                       (car (epg-context-result-for context 'sign)))))
diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el
index b90a6c8b235..71bac870aca 100644
--- a/lisp/gnus/nnselect.el
+++ b/lisp/gnus/nnselect.el
@@ -346,8 +346,7 @@ group info."
             gnus-newsgroup-selection))
       ;; Don't swallow gnus-search errors; the user should be made
       ;; aware of them.
-      (gnus-search-error
-       (signal (car err) (cdr err)))
+      (gnus-search-error (signal err))
       (error
        (gnus-error
         3