'twittering-update-mode-line' shows the current timeline spec.

ChangeLog

@@ -252,6 +252,9 @@
 	* twittering-mode.el (twittering-get-host-method-from-timeline-spec)
 	(twittering-get-timeline-spec): Add new functions for timeline
 	specification.
+	(twittering-update-mode-line): Shows timeline specification.
+	(twittering-render-timeline): Invokes
+	`twittering-update-mode-line' to update the mode-line.
 
 2009-12-20  Yuto Hayamizu  <y.hayamizu@gmail.com>
 

twittering-mode.el

@@ -619,7 +619,8 @@ Otherwise, they are retrieved by `url-retrieve'.")
 
 (defun twittering-update-mode-line ()
   "Update mode line"
-  (let (enabled-options)
+  (let ((enabled-options nil)
+	(timeline-spec (twittering-get-timeline-spec)))
     (when twittering-jojo-mode
       (push "jojo" enabled-options))
     (when twittering-icon-mode
@@ -631,7 +632,7 @@ Otherwise, they are retrieved by `url-retrieve'.")
     (when twittering-use-ssl
       (push "ssl" enabled-options))
     (setq mode-name
-	  (concat twittering-mode-string
+	  (concat twittering-mode-string ":" timeline-spec
 		  (if enabled-options
 		      (concat "["
 			      (mapconcat 'identity enabled-options ",")
@@ -1311,6 +1312,7 @@ If STATUS-DATUM is already in DATA-VAR, return nil. If not, return t."
   (with-current-buffer (twittering-buffer)
     (let ((point (point))
 	  (end (point-max)))
+      (twittering-update-mode-line)
       (setq buffer-read-only nil)
       (erase-buffer)
       (mapc (lambda (status)