[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-commit] emacs/lisp/mh-e mh-comp.el
From: |
Bill Wohler |
Subject: |
[Emacs-commit] emacs/lisp/mh-e mh-comp.el |
Date: |
Sat, 23 Feb 2008 18:36:40 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Bill Wohler <wohler> 08/02/23 18:36:40
Modified files:
lisp/mh-e : mh-comp.el
Log message:
(mh-send-letter): Call split-string on mh-send-args when sending
synchronously too.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-comp.el?cvsroot=emacs&r1=1.62&r2=1.63
Patches:
Index: mh-comp.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/mh-comp.el,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -b -r1.62 -r1.63
--- mh-comp.el 18 Feb 2008 22:39:31 -0000 1.62
+++ mh-comp.el 23 Feb 2008 18:36:40 -0000 1.63
@@ -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