From: Bill Wohler <wohler@newt.com>
Date: Thu, 16 Mar 2006 17:38:14 +0000 (+0000)
Subject: (mh-send-letter): Use split-string to break up mh-send-args (closes SF
X-Git-Tag: emacs-pretest-22.0.90~3568
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=16b9a4760b8767e9dc679c6661f74447e3c9acfe;p=emacs.git

(mh-send-letter): Use split-string to break up mh-send-args (closes SF
#1448604).
(mh-compose-and-send-mail): Use run-hook-with-args for
mh-compose-letter-function.
---

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 6bec45ec143..012bdfe0a59 100644
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,5 +1,10 @@
 2006-03-16  Bill Wohler  <wohler@newt.com>
 
+	* mh-comp.el (mh-send-letter): Use split-string to break up
+	mh-send-args (closes SF #1448604).
+	(mh-compose-and-send-mail): Use run-hook-with-args for
+	mh-compose-letter-function.
+
 	* mh-e.el (mh-list-to-string-1): Use dolist.
 
 	* mh-compat.el (mh-image-load-path-for-library): Prefer user's
diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el
index 0cedc83719c..8a7e791d6cd 100644
--- a/lisp/mh-e/mh-comp.el
+++ b/lisp/mh-e/mh-comp.el
@@ -287,7 +287,7 @@ use `mh-send-prog' to tell MH-E the name."
            (set-buffer draft-buffer))   ; for annotation below
           (t
            (mh-exec-cmd-daemon mh-send-prog nil "-nodraftfolder" "-noverbose"
-                               mh-send-args file-name)))
+                               (split-string mh-send-args) file-name)))
     (if mh-annotate-char
         (mh-annotate-msg mh-sent-from-msg
                          mh-sent-from-folder
@@ -895,15 +895,7 @@ letter."
   (mh-logo-display)
   (mh-make-local-hook 'kill-buffer-hook)
   (add-hook 'kill-buffer-hook 'mh-tidy-draft-buffer nil t)
-  (if (and (boundp 'mh-compose-letter-function)
-           mh-compose-letter-function)
-      ;; run-hooks will not pass arguments.
-      (let ((value mh-compose-letter-function))
-        (if (and (listp value) (not (eq (car value) 'lambda)))
-            (while value
-              (funcall (car value) to subject cc)
-              (setq value (cdr value)))
-          (funcall mh-compose-letter-function to subject cc)))))
+  (run-hook-with-args 'mh-compose-letter-function to subject cc))
 
 (defun mh-insert-x-mailer ()
   "Append an X-Mailer field to the header.