Mercurial > emacs
comparison lisp/mail/blessmail.el @ 7147:f5880d940db8
Don't make an empty script.
Use signal, not error.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 28 Apr 1994 02:42:43 +0000 |
| parents | 6081a7b2a06f |
| children | 979a0246101e |
comparison
equal
deleted
inserted
replaced
| 7146:7798bbb665fb | 7147:f5880d940db8 |
|---|---|
| 37 (load "site-init" t) | 37 (load "site-init" t) |
| 38 | 38 |
| 39 (let ((attr (file-attributes rmail-spool-directory)) | 39 (let ((attr (file-attributes rmail-spool-directory)) |
| 40 modes) | 40 modes) |
| 41 (or (eq t (car attr)) | 41 (or (eq t (car attr)) |
| 42 (error "%s is not a directory" rmail-spool-directory)) | 42 (signal 'error |
| 43 (list (format "%s is not a directory" rmail-spool-directory)))) | |
| 43 (setq modes (nth 8 attr)) | 44 (setq modes (nth 8 attr)) |
| 45 (insert "#!/bin/sh\n") | |
| 44 (cond | 46 (cond |
| 45 ((= ?w (aref modes 8)) | 47 ((= ?w (aref modes 8)) |
| 46 nil) | 48 (insert "exit 0")) |
| 47 ((= ?w (aref modes 5)) | 49 ((= ?w (aref modes 5)) |
| 48 (insert "chgrp " (number-to-string (nth 3 attr)) | 50 (insert "chgrp " (number-to-string (nth 3 attr)) |
| 49 " $* && chmod g+s $*\n")) | 51 " $* && chmod g+s $*\n")) |
| 50 ((= ?w (aref modes 2)) | 52 ((= ?w (aref modes 2)) |
| 51 (insert "chown " (number-to-string (nth 2 attr)) | 53 (insert "chown " (number-to-string (nth 2 attr)) |