branch: elpa-admin
commit 378d1ccb7462344890ed007f431f86f07ae5aa17
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@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))
