Mercurial > emacs
view mkinstalldirs @ 88257:b6d2078cce14
(rmail-header-attribute-header)
(rmail-header-keyword-header, rmail-header-get-limit): Doc.
(rmail-header-add-header): Add inhibit-point-motion-hooks and
buffer-undo-list bindings from rmail-header-set-header. I don't
know whether they are necessary, however.
(rmail-header-persist-attributes, rmail-header-set-header):
Deleted. rmail-header-add-header does what
rmail-header-set-header did, except throw an error if the header
was not found.
author | Alex Schroeder <alex@gnu.org> |
---|---|
date | Sat, 21 Jan 2006 15:27:34 +0000 |
parents | d7ddb3e565de |
children | 730155197b96 eb7e8d483840 |
line wrap: on
line source
#! /bin/sh # mkinstalldirs --- make directory hierarchy # Author: Noah Friedman <friedman@prep.ai.mit.edu> # Created: 1993-05-16 # Public domain errstatus=0 for file do set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` shift pathcomp= for d do pathcomp="$pathcomp$d" case "$pathcomp" in -* ) pathcomp=./$pathcomp ;; esac if test ! -d "$pathcomp"; then echo "mkdir $pathcomp" 1>&2 (mkdir "$pathcomp" && chmod a+rx "$pathcomp") || lasterr=$? if test ! -d "$pathcomp"; then errstatus=$lasterr fi fi pathcomp="$pathcomp/" done done exit $errstatus # mkinstalldirs ends here