diff options
| author | Bill Wohler <wohler@newt.com> | 2008-02-23 18:36:58 +0000 |
|---|---|---|
| committer | Bill Wohler <wohler@newt.com> | 2008-02-23 18:36:58 +0000 |
| commit | 0103690ed263ca1c44c45dac2fa94405923f5be1 (patch) | |
| tree | e1801a28e1a388e6da854f209130f35faf3fa6b1 | |
| parent | 9d95a291825060fc7a7448ae1edf2fc322a1703b (diff) | |
| download | emacs-0103690ed263ca1c44c45dac2fa94405923f5be1.tar.gz | |
(mh-send-letter): Call split-string on mh-send-args when sending
synchronously too.
| -rw-r--r-- | lisp/mh-e/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 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 |