mapvector not present in vm-8.0.13-devo-625

[Manuel Carro]

vm-8.0.13-devo-625 checked out from bazaar; installed to be used with emacs-snapshot under Ubuntu 8.10 (GNU Emacs 23.0.60.1 (i486-pc-linux-gnu, GTK+ Version 2.14.3) of 2008-10-13 on rothera, modified by Debian). Saving folders impossible as mapvector (used in vm-folder.el) does not seem to be available. Worked around by defining

(defun mapvector (fun v)
    (let ((l (length v)))
        (mapvector_l (- l 1) fun v (make-vector l nil))))

(defun mapvector_l (ind fun in out)
    (if (< ind 0)
        out
        (progn
            (aset out ind (funcall fun (aref in ind)))
            (mapvector_l (- ind 1) fun in out)
        )
    )
)

and adding it to my personal emacs files.