After retrieval, only new statuses are rendered additionally.

* twittering-mode.el (twittering-render-timeline): receive
`timeline-data' as an optional argument.
(twittering-http-get-default-sentinel): invoke
`twittering-render-timeline' with new statuses.

ChangeLog

@@ -19,6 +19,11 @@
 	(twittering-add-statuses-to-timeline-data): return newly retrieved
 	statuses.
 
+	* twittering-mode.el (twittering-render-timeline): receive
+	`timeline-data' as an optional argument.
+	(twittering-http-get-default-sentinel): invoke
+	`twittering-render-timeline' with new statuses.
+
 2010-02-14  Tadashi MATSUO  <tad@mymail.twin.jp>
 
 	* twittering-mode.el (twittering-get-usernames-from-timeline): new

twittering-mode.el

@@ -1709,7 +1709,7 @@ Available keywords:
 	    ;; retrieved all un-retrieved statuses.
 	    (when (and new-statuses
 		       (equal spec (twittering-current-timeline-spec)))
-	      (twittering-render-timeline t))
+	      (twittering-render-timeline t new-statuses))
 	    (twittering-add-timeline-history)))
 	(if twittering-notify-successful-http-get
 	    (if suc-msg suc-msg "Success: Get.")
@@ -2145,9 +2145,10 @@ BUFFER may be a buffer or the name of an existing buffer."
 ;;; display functions
 ;;;
 
-(defun twittering-render-timeline (&optional additional)
+(defun twittering-render-timeline (&optional additional timeline-data)
   (with-current-buffer (twittering-buffer)
-    (let* ((timeline-data (twittering-current-timeline-data))
+    (let* ((timeline-data (or timeline-data
+			      (twittering-current-timeline-data)))
 	   (window-list (get-buffer-window-list (current-buffer) nil t))
 	   (point-window-list
 	    (mapcar (lambda (window)