new file mode 100644
--- /dev/null
+++ b/runtime/plugin/tar.vim
@@ -0,0 +1,185 @@
+" vim:set ts=4 sw=4 ai nobackup:
+
+" tar.vim -- a vim plugin for browsing tarfiles
+" Copyright (c) 2002, Michael C. Toren <mct@toren.net>
+"
+" Updates are available from <http://michael.toren.net/code/>.  If you
+" find this script useful, or have suggestions for improvements, please
+" let me know.
+"
+" Usage:
+" Once this script is installed, attempting to edit a tarfile will present
+" the user with a list of files contained in the tar archive.  By moving the
+" cursor over a filename and pressing ENTER, the contents of a file can be
+" viewed in read-only mode, in a new window.  Unfortunately, write support
+" for tarfile components is not currently possible.
+" 
+" Requirements:
+" GNU tar, or a tar implementation that supports the "P" (don't strip
+" out leading /'s from filenames), and "O" (extract files to standard
+" output) options.  Additionally, gzip is required for handling *.tar.Z,
+" *.tar.gz, and *.tgz compressed tarfiles, and bzip2 is required for
+" handling *.tar.bz2 compressed tarfiles.  A unix-like operating system
+" is probably also required.
+" 
+" Installation:
+" Place this file, tar.vim, in your $HOME/.vim/plugin directory, and
+" either restart vim, or execute ":source $HOME/.vim/plugin/tar.vim"
+"
+" Todo:
+" - Handle zipfiles?
+" - Implement write support, somehow.
+"
+" License:
+" This program is free software; you can redistribute it and/or modify it
+" under the terms of the GNU General Public License, version 2, as published
+" by the Free Software Foundation.
+"
+" This program is distributed in the hope that it will be useful, but
+" WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+" or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+" for more details.
+"
+" A copy of the GNU GPL is available as /usr/doc/copyright/GPL on Debian
+" systems, or on the World Wide Web at http://www.gnu.org/copyleft/gpl.html
+" You can also obtain it by writing to the Free Software Foundation, Inc.,
+" 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+"
+" Changelog:
+" Tue Dec 31 13:38:08 EST 2002	First release to beta testers
+" Sat Jan  4 14:06:19 EST 2003	Version 1.00 released
+
+let s:version = "1.00"
+
+if has("autocmd")
+augroup tar
+	au!
+	au BufReadCmd	tarfile:*	call s:TarRead(expand("<afile>"), 1)
+	au BufReadCmd	tarfile:*/*	call s:TarRead(expand("<afile>"), 1)
+	au FileReadCmd	tarfile:*	call s:TarRead(expand("<afile>"), 0)
+	au FileReadCmd	tarfile:*/*	call s:TarRead(expand("<afile>"), 0)
+
+	au BufWriteCmd	tarfile:*	call s:TarWrite(expand("<afile>"))
+	au BufWriteCmd	tarfile:*/*	call s:TarWrite(expand("<afile>"))
+	au FileWriteCmd	tarfile:*	call s:TarWrite(expand("<afile>"))
+	au FileWriteCmd	tarfile:*/*	call s:TarWrite(expand("<afile>"))
+
+	au BufReadCmd	*.tar		call s:TarBrowse(expand("<afile>"))
+	au BufReadCmd	*.tar.gz	call s:TarBrowse(expand("<afile>"))
+	au BufReadCmd	*.tar.bz2	call s:TarBrowse(expand("<afile>"))
+	au BufReadCmd	*.tar.Z		call s:TarBrowse(expand("<afile>"))
+	au BufReadCmd	*.tgz		call s:TarBrowse(expand("<afile>"))
+augroup END
+endif
+
+function! s:TarWrite(argument)
+	echo "ERROR: Sorry, no write support for tarfiles yet"
+endfunction
+
+function! s:TarRead(argument, cleanup)
+	let l:argument = a:argument
+	let l:argument = substitute(l:argument, '^tarfile:', '', '')
+	let l:argument = substitute(l:argument, '^\~', $HOME, '')
+
+	let l:tarfile = l:argument
+	while 1
+		if (l:tarfile == "" || l:tarfile == "/")
+			echo "ERROR: Could not find a readable tarfile in path:" l:argument
+			return
+		endif
+
+		if filereadable(l:tarfile) " found it!
+			break
+		endif
+
+		let l:tarfile = fnamemodify(l:tarfile, ":h")
+	endwhile
+
+	let l:toextract = strpart(l:argument, strlen(l:tarfile) + 1)
+
+	if (l:toextract == "")
+		return
+	endif
+
+	let l:cat = s:TarCatCommand(l:tarfile)
+	execute "r !" . l:cat . " < '" . l:tarfile . "'"
+		\ " | tar OPxf - '" . l:toextract . "'"
+
+	if (a:cleanup)
+		0d "blank line
+		execute "doautocmd BufReadPost " . expand("%")
+		setlocal readonly
+		silent preserve
+	endif
+endfunction
+
+function! s:TarBrowse(tarfile)
+	setlocal noswapfile
+	setlocal buftype=nofile
+	setlocal bufhidden=hide
+	setlocal filetype=
+	setlocal nobuflisted
+	setlocal buftype=nofile
+	setlocal wrap
+
+	let l:tarfile = a:tarfile
+	let b:tarfile = l:tarfile
+	let l:cat = s:TarCatCommand(l:tarfile)
+
+	if ! filereadable(l:tarfile)
+		let l:tarfile = substitute(l:tarfile, '^tarfile:', '', '')
+	endif
+
+	if ! filereadable(l:tarfile)
+		echo "ERROR: File not readable:" l:tarfile
+		return
+	endif
+
+	call s:Say("\" tar.vim version " . s:version)
+	call s:Say("\" Browsing tarfile " . l:tarfile)
+	call s:Say("\" Hit ENTER to view contents in new window")
+	call s:Say("")
+
+	silent execute "r!" . l:cat . "<'" . l:tarfile . "'| tar Ptf - "
+	0d "blank line
+	/^$/1
+
+	setlocal readonly
+	setlocal nomodifiable
+	noremap <silent> <buffer> <cr> :call <SID>TarBrowseSelect()<cr>
+endfunction
+
+function! s:TarBrowseSelect()
+	let l:line = getline(".")
+
+	if (l:line =~ '^" ')
+		return
+	endif
+
+	if (l:line =~ '/$')
+		echo "Please specify a file, not a directory"
+		return
+	endif
+
+	let l:selection = "tarfile:" .  b:tarfile . "/" . l:line
+	new
+	wincmd _
+	execute "e " . l:selection
+endfunction
+
+" kludge to deal with compressed archives
+function! s:TarCatCommand(tarfile)
+	if a:tarfile =~# '\.\(gz\|tgz\|Z\)$'
+		let l:cat = "gzip -d -c"
+	elseif a:tarfile =~# '\.bz2$'
+		let l:cat = "bzip2 -d -c"
+	else
+		let l:cat = "cat"
+	endif
+	return l:cat
+endfunction
+
+function! s:Say(string)
+	let @" = a:string
+	$ put
+endfunction