From 0103690ed263ca1c44c45dac2fa94405923f5be1 Mon Sep 17 00:00:00 2001 From: Bill Wohler Date: Sat, 23 Feb 2008 18:36:58 +0000 Subject: [PATCH] (mh-send-letter): Call split-string on mh-send-args when sending synchronously too. --- lisp/mh-e/ChangeLog | 5 +++++ lisp/mh-e/mh-comp.el | 8 +++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index 93ae0478b2..462f938438 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -1,3 +1,8 @@ +2008-02-24 Bill Wohler + + * mh-comp.el (mh-send-letter): Call split-string on mh-send-args + when sending synchronously too. + 2008-02-19 Bill Wohler * mh-comp.el (mh-annotate-msg): diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el index ef97796105..69e5d1cfd0 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 -- 2.39.2