Commit bd0948ca authored by Chong Yidong's avatar Chong Yidong
Browse files

* lisp/gnus/message.el (message-exchange-point-and-mark): Call

exchange-point-and-mark with an argument rather than setting
mark-active by hand (Bug#5175).
parent 9bbe0828
2010-01-01 Chong Yidong <cyd@stupidchicken.com>
* message.el (message-exchange-point-and-mark): Call
exchange-point-and-mark with an argument rather than setting
mark-active by hand (Bug#5175).
2009-12-18 Katsumi Yamaoka <yamaoka@jpl.org> 2009-12-18 Katsumi Yamaoka <yamaoka@jpl.org>
* nntp.el (nntp-service-to-port): Work for service expressed with * nntp.el (nntp-service-to-port): Work for service expressed with
......
...@@ -7505,10 +7505,7 @@ which specify the range to operate on." ...@@ -7505,10 +7505,7 @@ which specify the range to operate on."
(defun message-exchange-point-and-mark () (defun message-exchange-point-and-mark ()
"Exchange point and mark, but don't activate region if it was inactive." "Exchange point and mark, but don't activate region if it was inactive."
(unless (prog1 (exchange-point-and-mark transient-mark-mode))
(message-mark-active-p)
(exchange-point-and-mark))
(setq mark-active nil)))
(defalias 'message-make-overlay 'make-overlay) (defalias 'message-make-overlay 'make-overlay)
(defalias 'message-delete-overlay 'delete-overlay) (defalias 'message-delete-overlay 'delete-overlay)
......
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