*** mouse.el	Wed Jun 20 09:53:10 2007
--- mouse.el	Fri Jun 22 13:47:16 2007
***************
*** 1013,1018 ****
--- 1013,1021 ----
  			      (overlay-start mouse-drag-overlay))
  			   region-termination))
  		       last-command this-command)
+ 		  ;; Turn off temporary transient-mark-mode.
+ 		  (when (eq transient-mark-mode 'identity)
+ 		    (setq transient-mark-mode nil))
  		  (push-mark region-commencement t t)
  		  (goto-char region-termination)
  		  (if (not do-mouse-drag-region-post-process)