Mercurial > hg > xemacs-beta

diff lisp/gnus/gnus-salt.el @ 18:d95e72db5c07 r19-15b92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b92
author cvs
date Mon, 13 Aug 2007 08:49:43 +0200
parents 0293115a14e9
children ec9a17fef872
line wrap: on
line diff
--- a/lisp/gnus/gnus-salt.el	Mon Aug 13 08:49:21 2007 +0200
+++ b/lisp/gnus/gnus-salt.el	Mon Aug 13 08:49:43 2007 +0200
@@ -658,7 +658,7 @@
 	(unless (zerop level)
 	  (gnus-tree-indent level)
 	  (insert (cadr gnus-tree-parent-child-edges))
-	  (setq col (- (setq beg (point)) (point-at-bol) 1))
+	  (setq col (- (setq beg (point)) (gnus-point-at-bol) 1))
 	  ;; Draw "|" lines upwards.
 	  (while (progn
 		   (forward-line -1)
@@ -682,7 +682,7 @@
 
 (defsubst gnus-tree-indent-vertical ()
   (let ((len (- (* (1+ gnus-tree-node-length) gnus-tmp-indent)
-		(- (point) (point-at-bol)))))
+		(- (point) (gnus-point-at-bol)))))
     (when (> len 0)
       (insert (make-string len ? )))))