SharePoint 2013 给新闻源添加未读提示

<script type="text/javascript">
    SP.SOD.executeOrDelayUntilScriptLoaded(GetFeeds, 'SP.UserProfiles.js');
    function GetFeeds() {
        var activities;
        var clientContext = SP.ClientContext.get_current();
        var feedManager = new SP.Social.SocialFeedManager(clientContext);
        var options = new SP.Social.SocialFeedOptions();
        options.set_newerThan(new Date("03/22/2013"));
        options.set_olderThan(new Date());
        options.set_sortOrder(SP.Social.SocialFeedSortOrder.byModifiedTime);
        activities = feedManager.getFeed(SP.Social.SocialFeedType.news, options);
        clientContext.load(feedManager);
        clientContext.executeQueryAsync(function () {
            var unreadMentionCount = activities.get_unreadMentionCount();
            if (unreadMentionCount == 0) {
                return;
            }
            var suitebar = $("#suiteLinksBox");
            var branding = suitebar.find(".ms-core-suiteLink-a");
            var span = branding.find("span").first();
            var span2 = span.find("span").first();
            if (span2.length == 0) {
                span.text("新闻源(" + unreadMentionCount + ")");
            } else {
                span.html("新闻源(" + unreadMentionCount + ")" + span2.prop('outerHTML'));
            }

        }, function () { $get("spanMessage").innerText = "error"; });
    }
    GetFeeds();
    setInterval(GetFeeds, 10000);
</script>
<span id="spanMessage" style="color: #FF0000;"></span>

jindahao