[elpa] master 0be73c7: [gnus-mock] Add guard around setting sendmail-program

[Eric Abrahamsen]

branch: master
commit 0be73c7ff8c58264dc0c28bffef4957b8c4a1c3b
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    [gnus-mock] Add guard around setting sendmail-program
    
    * packages/gnus-mock/gnus-mock.el (gnus-mock-start): If
    gnus-mock-sendmail-program is nil this code would error. Check first.
---
 packages/gnus-mock/gnus-mock.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/packages/gnus-mock/gnus-mock.el b/packages/gnus-mock/gnus-mock.el
index bfa7f92..2c7604f 100644
--- a/packages/gnus-mock/gnus-mock.el
+++ b/packages/gnus-mock/gnus-mock.el
@@ -148,9 +148,6 @@ will start a mock Gnus session."
              (prin1
               `(setq gnus-home-directory ,mock-tmp-dir
                      init-file-user "mockturtle"
-                     sendmail-program
-                     ,(expand-file-name gnus-mock-sendmail-program
-                                        mock-tmp-dir)
                      message-directory ,mock-tmp-dir
                      gnus-startup-file
                      ,(expand-file-name ".newsrc" mock-tmp-dir)
@@ -162,6 +159,12 @@ will start a mock Gnus session."
                      ,(expand-file-name "agent/" mock-tmp-dir)
                      gnus-directory
                      ,(expand-file-name "News/" mock-tmp-dir)))
+             (when gnus-mock-sendmail-program
+               (princ "\n\n")
+               (prin1
+                `(setq sendmail-program
+                       ,(expand-file-name gnus-mock-sendmail-program
+                                          mock-tmp-dir))))
              (princ "\n\n")
              ;; Constant that can be checked if we need to know it's a mock
              ;; session.