Changes committed gnus/lisp (ChangeLog gnus-sum.el)

Modified: ChangeLog gnus-sum.el

(gnus-summary-show-thread): Remove useless goto-char.
(gnus-summary-show-thread, gnus-summary-hide-thread): Indent.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.2029 gnus/lisp/ChangeLog:7.2030
--- ChangeLog:7.2029	Fri Oct 16 09:05:30 2009
+++ ChangeLog	Tue Oct 20 01:20:48 2009
@@ -1,3 +1,8 @@
+2009-10-19  Katsumi Yamaoka  <[email protected]>
+
+	* gnus-sum.el (gnus-summary-show-thread): Remove useless goto-char.
+	(gnus-summary-show-thread, gnus-summary-hide-thread): Indent.
+
 2009-10-16  Katsumi Yamaoka  <[email protected]>
 
 	* gnus.el (gnus-overlay-get): New alias to overlay-get.
Index: gnus-sum.el
diff -u gnus/lisp/gnus-sum.el:7.242 gnus/lisp/gnus-sum.el:7.243
--- gnus-sum.el:7.242	Fri Oct 16 09:05:30 2009
+++ gnus-sum.el	Tue Oct 20 01:20:48 2009
@@ -11297,14 +11297,13 @@
 Returns nil if no thread was there to be shown."
   (interactive)
   (let* ((orig (point))
-	(end (point-at-eol))
-	;; Leave point at bol
-         (beg (progn (beginning-of-line) (if (bobp) (point) (1- (point)))))
-         (eoi (when (eq (get-char-property end 'invisible) 'gnus-sum)
+	 (end (point-at-eol))
+	 ;; Leave point at bol
+	 (beg (progn (beginning-of-line) (if (bobp) (point) (1- (point)))))
+	 (eoi (when (eq (get-char-property end 'invisible) 'gnus-sum)
 		(if (fboundp 'next-single-char-property-change)
 		    (or (next-single-char-property-change end 'invisible)
 			(point-max))
-		  (goto-char end)
 		  (while (progn
 			   (end-of-line 2)
 			   (and (not (eobp))
@@ -11365,25 +11364,25 @@
 Returns nil if no threads were there to be hidden."
   (interactive)
   (let ((start (point))
-        (starteol (line-end-position))
+	(starteol (line-end-position))
 	(article (gnus-summary-article-number)))
     (goto-char start)
     ;; Go forward until either the buffer ends or the subthread ends.
     (when (and (not (eobp))
 	       (or (zerop (gnus-summary-next-thread 1 t))
 		   (goto-char (point-max))))
-	  (if (and (> (point) start)
-               ;; FIXME: this should actually search for a non-invisible \n.
-		   (search-backward "\n" start t))
-	      (progn
-            (when (> (point) starteol)
-              (gnus-remove-overlays starteol (point) 'invisible 'gnus-sum)
-              (let ((ol (gnus-make-overlay starteol (point) nil t nil)))
+      (if (and (> (point) start)
+	       ;; FIXME: this should actually search for a non-invisible \n.
+	       (search-backward "\n" start t))
+	  (progn
+	    (when (> (point) starteol)
+	      (gnus-remove-overlays starteol (point) 'invisible 'gnus-sum)
+	      (let ((ol (gnus-make-overlay starteol (point) nil t nil)))
 		(gnus-overlay-put ol 'invisible 'gnus-sum)
 		(gnus-overlay-put ol 'evaporate t)))
-		(gnus-summary-goto-subject article))
-	    (goto-char start)
-        nil))))
+	    (gnus-summary-goto-subject article))
+	(goto-char start)
+	nil))))
 
 (defun gnus-summary-go-to-next-thread (&optional previous)
   "Go to the same level (or less) next thread.