Fix `twittering-render-timeline' not to duplicate statuses.

* twittering-mode.el (twittering-render-timeline): fix logic for
inserting statuses not to duplicate the last status.

ChangeLog

@@ -3,6 +3,9 @@
 	* twittering-mode.el (twittering-render-timeline): reduce
 	redundant calls of `goto-char'.
 
+	* twittering-mode.el (twittering-render-timeline): fix logic for
+	inserting statuses not to duplicate the last status.
+
 2010-01-20  Satoshi Yatagawa  <yata_github@y.hauN.org>
 
 	* twittering-mode.el (twittering-http-get-default-sentinel): Show

twittering-mode.el

@@ -1850,20 +1850,13 @@ If STATUS-DATUM is already in DATA-VAR, return nil. If not, return t."
 	     (let* ((id (cdr (assoc 'id status))))
 	       ;; Find where the status should be inserted.
 	       (while
-		   (let* ((buf-id (get-text-property pos 'id))
-			  (next-pos (twittering-get-next-status-head pos)))
-		     (cond
-		      ((null buf-id)
-		       nil)
-		      ((null next-pos)
-		       ;; Failed to find the next status.
-		       (setq pos (point-max))
-		       nil)
-		      ((twittering-status-id< id buf-id)
-		       (setq pos next-pos)
-		       t)
-		      (t
-		       nil))))
+		   (let* ((buf-id (get-text-property pos 'id)))
+		     (if (and buf-id (twittering-status-id< id buf-id))
+			 (let ((next-pos
+				(twittering-get-next-status-head pos)))
+			   (setq pos (or next-pos (point-max)))
+			   next-pos)
+		       nil)))
 	       (unless (twittering-status-id= id (get-text-property pos 'id))
 		 (let ((formatted-status
 			(twittering-format-status