Mercurial > emacs
comparison lisp/mh-e/mh-comp.el @ 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 | 8f2ff5b7ee99 |
| children | 90c9ebd43589 |
comparison
equal
deleted
inserted
replaced
| 92125:bf8d637302d3 | 92126:e4406f235887 |
|---|---|
| 293 (mh-goto-header-field "Content-Type:")) | 293 (mh-goto-header-field "Content-Type:")) |
| 294 (setq mh-send-args (concat "-mime " mh-send-args)))) | 294 (setq mh-send-args (concat "-mime " mh-send-args)))) |
| 295 (cond (arg | 295 (cond (arg |
| 296 (pop-to-buffer mh-mail-delivery-buffer) | 296 (pop-to-buffer mh-mail-delivery-buffer) |
| 297 (erase-buffer) | 297 (erase-buffer) |
| 298 (mh-exec-cmd-output mh-send-prog t "-watch" "-nopush" | 298 (mh-exec-cmd-output mh-send-prog t |
| 299 "-nodraftfolder" mh-send-args file-name) | 299 "-nodraftfolder" "-watch" "-nopush" |
| 300 (split-string mh-send-args) file-name) | |
| 300 (goto-char (point-max)) ; show the interesting part | 301 (goto-char (point-max)) ; show the interesting part |
| 301 (recenter -1) | 302 (recenter -1) |
| 302 (set-buffer draft-buffer)) ; for annotation below | 303 (set-buffer draft-buffer)) ; for annotation below |
| 303 (t | 304 (t |
| 304 (mh-exec-cmd-daemon mh-send-prog nil "-nodraftfolder" "-noverbose" | 305 (mh-exec-cmd-daemon mh-send-prog nil |
| 306 "-nodraftfolder" "-noverbose" | |
| 305 (split-string mh-send-args) file-name))) | 307 (split-string mh-send-args) file-name))) |
| 306 (if mh-annotate-char | 308 (if mh-annotate-char |
| 307 (mh-annotate-msg mh-sent-from-msg | 309 (mh-annotate-msg mh-sent-from-msg |
| 308 mh-sent-from-folder | 310 mh-sent-from-folder |
| 309 mh-annotate-char | 311 mh-annotate-char |