Mercurial > emacs
changeset 7375:d04f5eb7098b
If rmail-spool-directory is not a directory,
just output an `echo' command to tell about it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 07 May 1994 01:21:58 +0000 |
| parents | e3cca19763ae |
| children | 53c6cc0ccd30 |
| files | lisp/mail/blessmail.el |
| diffstat | 1 files changed, 15 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/blessmail.el Sat May 07 01:20:07 1994 +0000 +++ b/lisp/mail/blessmail.el Sat May 07 01:21:58 1994 +0000 @@ -45,23 +45,22 @@ (setq dirname (if (file-name-absolute-p linkname) linkname (concat (file-name-directory dirname) linkname)))) + (insert "#!/bin/sh\n") (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"))) + (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)