changeset 92126:e4406f235887

(mh-send-letter): Call split-string on mh-send-args when sending synchronously too.
author Bill Wohler <wohler@newt.com>
date Sat, 23 Feb 2008 18:36:40 +0000
parents bf8d637302d3
children e26b036a79a1
files lisp/mh-e/mh-comp.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mh-e/mh-comp.el	Sat Feb 23 13:38:12 2008 +0000
+++ b/lisp/mh-e/mh-comp.el	Sat Feb 23 18:36:40 2008 +0000
@@ -295,13 +295,15 @@
     (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