- (when (string-match "^\\(AUDIO:\\|Exiting...\\|Starting\\|ANS_LENGTH\\|ANS_TIME_POSITION\\|Cache fill:\\) *\\(.*\\)$" line)
- (media/mplayer/filter-subfunctions (match-string 1 line) (match-string 2 line)))))
+ (when (string-match "^\\(AUDIO:\\|Exiting...\\|Starting\\|ANS_LENGTH\\|ANS_TIME_POSITION\\|Cache fill:\\|ICY Info:\\) *\\(.*\\)$" line)
+ (media/mplayer/filter-subfunctions (match-string 1 line) (match-string 2 line))))
+
+ (when (and media/mplayer/current-stream-song media/current-information)
+ (message "Now in stream (%s) \"%s\""
+ (current-time-string) media/mplayer/current-stream-song)
+ (setq media/mplayer/current-stream-song nil))
+ )