Mercurial > emacs
changeset 69520:67b5315387f4
(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.
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Thu, 16 Mar 2006 17:38:14 +0000 |
| parents | e9f5e5650ade |
| children | 3a3fa8d383e2 |
| files | lisp/mh-e/ChangeLog lisp/mh-e/mh-comp.el |
| diffstat | 2 files changed, 7 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mh-e/ChangeLog Thu Mar 16 17:01:12 2006 +0000 +++ b/lisp/mh-e/ChangeLog Thu Mar 16 17:38:14 2006 +0000 @@ -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
--- a/lisp/mh-e/mh-comp.el Thu Mar 16 17:01:12 2006 +0000 +++ b/lisp/mh-e/mh-comp.el Thu Mar 16 17:38:14 2006 +0000 @@ -287,7 +287,7 @@ (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 @@ (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.