[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-commit] emacs/lisp/mh-e mh-comp.el ChangeLog
From: |
Bill Wohler |
Subject: |
[Emacs-commit] emacs/lisp/mh-e mh-comp.el ChangeLog |
Date: |
Thu, 16 Mar 2006 17:38:14 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Branch:
Changes by: Bill Wohler <address@hidden> 06/03/16 17:38:14
Modified files:
lisp/mh-e : mh-comp.el ChangeLog
Log message:
(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.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-comp.el.diff?tr1=1.49&tr2=1.50&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/ChangeLog.diff?tr1=1.184&tr2=1.185&r1=text&r2=text
Patches:
Index: emacs/lisp/mh-e/ChangeLog
diff -u emacs/lisp/mh-e/ChangeLog:1.184 emacs/lisp/mh-e/ChangeLog:1.185
--- emacs/lisp/mh-e/ChangeLog:1.184 Thu Mar 16 17:01:12 2006
+++ emacs/lisp/mh-e/ChangeLog Thu Mar 16 17:38:14 2006
@@ -1,5 +1,10 @@
2006-03-16 Bill Wohler <address@hidden>
+ * 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
Index: emacs/lisp/mh-e/mh-comp.el
diff -u emacs/lisp/mh-e/mh-comp.el:1.49 emacs/lisp/mh-e/mh-comp.el:1.50
--- emacs/lisp/mh-e/mh-comp.el:1.49 Fri Mar 3 20:02:10 2006
+++ emacs/lisp/mh-e/mh-comp.el Thu Mar 16 17:38:14 2006
@@ -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.