emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] elpa-admin 378d1ccb74: * elpa-admin.el (elpaa--report-failure): F


From: Stefan Monnier
Subject: [elpa] elpa-admin 378d1ccb74: * elpa-admin.el (elpaa--report-failure): Fallback on email-bcc
Date: Thu, 29 Dec 2022 10:20:02 -0500 (EST)

branch: elpa-admin
commit 378d1ccb7462344890ed007f431f86f07ae5aa17
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * elpa-admin.el (elpaa--report-failure): Fallback on email-bcc
---
 elpa-admin.el | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

diff --git a/elpa-admin.el b/elpa-admin.el
index 18151d69ab..c3771ca2f4 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -650,16 +650,18 @@ returns.  Return the selected revision."
                               (or metadata
                                   (elpaa--metadata (elpaa--pkg-root pkg)
                                                    pkg-spec)))))
-            (unless (equal maintainers "")
-              (elpaa--send-email
-               `((From   . ,elpaa--email-from)
-                 (To     . ,maintainers)
-                 (Bcc    . ,elpaa--notification-email-bcc)
-                 (Subject . ,(concat (format "[%s ELPA] "  elpaa--name)
-                                     (format title-format pkg))))
-               (concat msg
-                       "\n\n## The current error output was the following:\n\n"
-                       txt)))))))))
+            (elpaa--send-email
+             `((From     . ,elpaa--email-from)
+               (To       . ,(if (equal maintainers "")
+                                 elpaa--notification-email-bcc
+                               maintainers))
+               (Bcc      . ,(unless (equal maintainers "")
+                               elpaa--notification-email-bcc))
+               (Subject . ,(concat (format "[%s ELPA] "  elpaa--name)
+                                   (format title-format pkg))))
+             (concat msg
+                     "\n\n## The current error output was the following:\n\n"
+                     txt))))))))
 
 (defun elpaa--check-sync-failures (pkg-spec metadata)
   (let* ((pkg (car pkg-spec))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]