[elpa] master fe091fc: Provide support for fakesendmail script in windows, bump to 0.1.1

[Eric Abrahamsen]

branch: master
commit fe091fcd616c774f05082229342d0a590e2a1398
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Provide support for fakesendmail script in windows, bump to 0.1.1
    
    * packages/gnus-mock/data/windows-sendmail-wrapper.cmd: Executable
      wrapper for the fakesendmail.py Python script.
    * packages/gnus-mock/gnus-mock.el (gnus-mock-sendmail-program): Detect
      if we're using Windows, and set accordingly.
---
 packages/gnus-mock/data/windows-sendmail-wrapper.cmd | 4 ++++
 packages/gnus-mock/gnus-mock.el                      | 8 +++++---
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/packages/gnus-mock/data/windows-sendmail-wrapper.cmd 
b/packages/gnus-mock/data/windows-sendmail-wrapper.cmd
new file mode 100755
index 0000000..53fe4c5
--- /dev/null
+++ b/packages/gnus-mock/data/windows-sendmail-wrapper.cmd
@@ -0,0 +1,4 @@
address@hidden off
+set ERRORLEVEL=
+call python fake-sendmail.py %*
+exit /b %ERRORLEVEL%
diff --git a/packages/gnus-mock/gnus-mock.el b/packages/gnus-mock/gnus-mock.el
index 715aa27..39d94f0 100644
--- a/packages/gnus-mock/gnus-mock.el
+++ b/packages/gnus-mock/gnus-mock.el
@@ -4,7 +4,7 @@
 
 ;; Author: Eric Abrahamsen <address@hidden>
 ;; Maintainer: Eric Abrahamsen <address@hidden>
-;; Version: 0.1
+;; Version: 0.1.1
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -91,7 +91,6 @@ started."
   :group 'gnus-mock
   :type 'string)
 
-
 (defcustom gnus-mock-cleanup-p t
   "When non-nil, delete temporary files after shutdown.
 Each Gnus mock session will create a unique temporary directory,
@@ -105,7 +104,10 @@ so multiple sessions will not conflict if this option is 
nil."
   :type 'boolean)
 
 (defcustom gnus-mock-sendmail-program
-  (when (executable-find "python") "fakesendmail.py")
+  (when (executable-find "python")
+    (if (memq system-type '(cygwin ms-dos windows-nt))
+       "windows-sendmail-wrapper.cmd"
+      "fakesendmail.py"))
   "Program used as the value of `sendmail-program'."
   :group 'gnus-mock
   :type 'string)