mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

If rmail-spool-directory is not a directory,

Browse source 
just output an `echo' command to tell about it.
This commit is contained in:
Richard M. Stallman 1994-05-07 01:21:58 +00:00
parent 75a6b98e4d
commit dd03399111
1 changed files with 15 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

31
lisp/mail/blessmail.el
View file

@ -45,23 +45,22 @@
(setq dirname (if (file-name-absolute-p linkname)
linkname
(concat (file-name-directory dirname) linkname))))
(setq attr (file-attributes dirname))
(or (eq t (car attr))
(signal 'error
(list (format "%s is not a directory" rmail-spool-directory))))
(setq modes (nth 8 attr))
(insert "#!/bin/sh\n")
(cond ((= ?w (aref modes 8))
;; Nothing needs to be done.
)
((= ?w (aref modes 5))
(insert "chgrp " (number-to-string (nth 3 attr))
" $* && chmod g+s $*\n"))
((= ?w (aref modes 2))
(insert "chown " (number-to-string (nth 2 attr))
" $* && chmod u+s $*\n"))
(t
(insert "chown root $* && chmod u+s $*\n")))
(setq attr (file-attributes dirname))
(if (not (eq t (car attr)))
(insert (format "echo %s is not a directory\n" rmail-spool-directory))
(setq modes (nth 8 attr))
(cond ((= ?w (aref modes 8))
;; Nothing needs to be done.
)
((= ?w (aref modes 5))
(insert "chgrp " (number-to-string (nth 3 attr))
" $* && chmod g+s $*\n"))
((= ?w (aref modes 2))
(insert "chown " (number-to-string (nth 2 attr))
" $* && chmod u+s $*\n"))
(t
(insert "chown root $* && chmod u+s $*\n"))))
(insert "echo mail directory = " dirname "\n"))
(write-region (point-min) (point-max) "blessmail")
(kill-emacs)