Commit 9295137d authored by Chong Yidong's avatar Chong Yidong
Browse files

Fix handling of arbitrary YANK-ACTION functions from compose-mail.

* mail/sendmail.el (mail-yank-original): Set the mark if the
specified function for yanking does not do it.
parent b1ea3797
2010-01-17 Chong Yidong <cyd@stupidchicken.com>
* mail/sendmail.el (mail-yank-original): Set the mark if the
specified function for yanking does not do it.
2010-01-17 Dan Nicolaescu <dann@ics.uci.edu>
* vc.el (with-vc-properties): Deal with directory arguments. (Bug#5298)
......
......@@ -1505,14 +1505,18 @@ and don't delete any header fields."
(interactive "P")
(if mail-reply-action
(let ((start (point))
(original mail-reply-action))
(original mail-reply-action)
(omark (mark t)))
(and (consp original) (eq (car original) 'insert-buffer)
(setq original (nth 1 original)))
(if (consp original)
(apply (car original) (cdr original))
;; If the original message is in another window in the same frame,
;; delete that window to save screen space.
;; t means don't alter other frames.
(progn
;; Call yank function, and set the mark if it doesn't.
(apply (car original) (cdr original))
(if (eq omark (mark t))
(push-mark (point))))
;; If the original message is in another window in the same
;; frame, delete that window to save space.
(delete-windows-on original t)
(with-no-warnings
;; We really want this to set mark.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment