When using ListView.ApplyRange, header/footer is not auto-displayed when moving to first/last items via key events

import QtQuick 2.0

Rectangle {
    id: root
    property int current: 0
    width: 600; height: 300

    ListView {
        width: 200; height: parent.height
        model: ListModel {
            Component.onCompleted: {
                for (var i=0; i<9; i++) {
                    append({'name': 'item ' + i, 'type': 'small', 'age': i })
                }
            }
        }
        delegate: petDelegate

        header: Rectangle {
            height: 45; width: 200; color: "red"
            Text { text: parent.x + ", " + parent.y }
        }
        footer: Rectangle {
            height: 45; width: 200; color: "orange"
            Text { text: parent.x + ", " + parent.y }
        }
        highlight: Rectangle { color: "yellow" }
        preferredHighlightBegin: 80; preferredHighlightEnd: 220
        highlightRangeMode: ListView.ApplyRange
        focus: true
    }

    // The delegate for each list
    Component {
        id: petDelegate
        Column {
            width: 200
            Text { text: 'Name: ' + name + " " + parent.y }
            Text { text: 'Type: ' + type }
            Text { text: 'Age: ' + age }
        }
    }
}