From: Bill Wohler <wohler@newt.com>
Date: Sat, 23 Feb 2008 18:36:58 +0000 (+0000)
Subject: (mh-send-letter): Call split-string on mh-send-args when sending
X-Git-Tag: emacs-pretest-23.0.90~7728
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0103690ed263ca1c44c45dac2fa94405923f5be1;p=emacs.git

(mh-send-letter): Call split-string on mh-send-args when sending
synchronously too.
---

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 93ae0478b2e..462f9384387 100644
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,8 @@
+2008-02-24  Bill Wohler  <wohler@newt.com>
+
+	* mh-comp.el (mh-send-letter): Call split-string on mh-send-args
+	when sending synchronously too.
+
 2008-02-19  Bill Wohler  <wohler@newt.com>
 
 	* mh-comp.el (mh-annotate-msg):
diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el
index ef97796105b..69e5d1cfd03 100644
--- a/lisp/mh-e/mh-comp.el
+++ b/lisp/mh-e/mh-comp.el
@@ -295,13 +295,15 @@ use `mh-send-prog' to tell MH-E the name."
     (cond (arg
            (pop-to-buffer mh-mail-delivery-buffer)
            (erase-buffer)
-           (mh-exec-cmd-output mh-send-prog t "-watch" "-nopush"
-                               "-nodraftfolder" mh-send-args file-name)
+           (mh-exec-cmd-output mh-send-prog t
+                               "-nodraftfolder" "-watch" "-nopush"
+                               (split-string mh-send-args) file-name)
            (goto-char (point-max))      ; show the interesting part
            (recenter -1)
            (set-buffer draft-buffer))   ; for annotation below
           (t
-           (mh-exec-cmd-daemon mh-send-prog nil "-nodraftfolder" "-noverbose"
+           (mh-exec-cmd-daemon mh-send-prog nil
+                               "-nodraftfolder" "-noverbose"
                                (split-string mh-send-args) file-name)))
     (if mh-annotate-char
         (mh-annotate-msg mh-sent-from-msg