1 files changed, 9 insertions, 7 deletions

diff --git a/lisp/gnus/gnus-salt.el b/lisp/gnus/gnus-salt.el
index d9720c819b2..0f4984112f5 100644
--- a/lisp/gnus/gnus-salt.el
+++ b/lisp/gnus/gnus-salt.el
@@ -230,7 +230,7 @@ This must be bound to a button-down mouse event."
   (let* ((echo-keystrokes 0)
          (start-posn (event-start start-event))
          (start-point (posn-point start-posn))
-         (start-line (1+ (count-lines 1 start-point)))
+         (start-line (1+ (count-lines (point-min) start-point)))
          (start-window (posn-window start-posn))
          (bounds (gnus-window-edges start-window))
          (top (nth 1 bounds))
@@ -266,17 +266,18 @@ This must be bound to a button-down mouse event."
              ;; Are we moving within the original window?
              ((and (eq (posn-window end) start-window)
                    (integer-or-marker-p end-point))
-        ;; Go to START-POINT first, so that when we move to END-POINT,
+              ;; Go to START-POINT first, so that when we move to END-POINT,
               ;; if it's in the middle of intangible text,
               ;; point jumps in the direction away from START-POINT.
               (goto-char start-point)
               (goto-char end-point)
               (gnus-pick-article)
               ;; In case the user moved his mouse really fast, pick
-            ;; articles on the line between this one and the last one.
-              (let* ((this-line (1+ (count-lines 1 end-point)))
+              ;; articles on the line between this one and the last one.
+              (let* ((this-line (1+ (count-lines (point-min) end-point)))
                      (min-line (min this-line start-line))
                      (max-line (max this-line start-line)))
+                ;; Why not use `forward-line'?  --Stef
                 (while (< min-line max-line)
                   (goto-line min-line)
                   (gnus-pick-article)
@@ -787,7 +788,7 @@ Two predefined functions are available:
           (setq beg (point))
           (forward-char -1)
           ;; Draw "-" lines leftwards.
-          (while (and (> (point) 1)
+          (while (and (not (bobp))
                       (eq (char-after (1- (point))) ? ))
             (delete-char -1)
             (insert (car gnus-tree-parent-child-edges))
@@ -858,7 +859,8 @@ Two predefined functions are available:
                 (gnus-extent-detached-p gnus-selected-tree-overlay))
         ;; Create a new overlay.
         (gnus-overlay-put
-         (setq gnus-selected-tree-overlay (gnus-make-overlay 1 2))
+         (setq gnus-selected-tree-overlay
+               (gnus-make-overlay (point-min) (1+ (point-min))))
          'face gnus-selected-tree-face))
       ;; Move the overlay to the article.
       (gnus-move-overlay
@@ -1062,5 +1064,5 @@ The following commands are available:
 
 (provide 'gnus-salt)
 
-;;; arch-tag: 35449164-77b3-4398-bcbd-a2e3e998f810
+;; arch-tag: 35449164-77b3-4398-bcbd-a2e3e998f810
 ;;; gnus-salt.el ends here