diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-04-28 02:42:43 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-04-28 02:42:43 +0000 |
| commit | a6115fe24c3c796c21216ee3a01a1b7f46b49df9 (patch) | |
| tree | 4b28817cc9eca47001b9686c54ef2a456a7d6ec7 /lisp/mail/blessmail.el | |
| parent | 8cd6b35faba1424b7226ade1ab348075d87bf9c5 (diff) | |
| download | emacs-a6115fe24c3c796c21216ee3a01a1b7f46b49df9.tar.gz | |
Don't make an empty script.
Use signal, not error.
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")) |