diff options
Diffstat (limited to 'lisp/mail/blessmail.el')
| -rw-r--r-- | lisp/mail/blessmail.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/mail/blessmail.el b/lisp/mail/blessmail.el index 0218ec74981..2dcb2071ad9 100644 --- a/lisp/mail/blessmail.el +++ b/lisp/mail/blessmail.el @@ -39,11 +39,13 @@ (let ((attr (file-attributes rmail-spool-directory)) modes) (or (eq t (car attr)) - (error "%s is not a directory" rmail-spool-directory)) + (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)) - nil) + (insert "exit 0")) ((= ?w (aref modes 5)) (insert "chgrp " (number-to-string (nth 3 attr)) " $* && chmod g+s $*\n")) |