diff --git a/lisp/mouse.el b/lisp/mouse.el
index fa355ff..592338a 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -406,7 +406,15 @@ mouse-drag-line
 			   (or (not resize-mini-windows)
 			       (eq minibuffer-window
 				   (active-minibuffer-window)))))))
-	  (setq draggable nil))))
+	  (setq draggable nil)))
+     ((eq line 'vertical)
+      (let ((divider-width (frame-right-divider-width frame)))
+        (when (and (or (not (numberp divider-width))
+                       (zerop divider-width))
+                   (eq (cdr (assq 'vertical-scroll-bars
+                                  (frame-parameters frame)))
+                       'left))
+	(setq window (window-in-direction 'left window t))))))

     (let* ((exitfun nil)
            (move