HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8cd6b35
)
Don't make an empty script.
author
Karl Heuer
<kwzh@gnu.org>
Thu, 28 Apr 1994 02:42:43 +0000
(
02:42
+0000)
committer
Karl Heuer
<kwzh@gnu.org>
Thu, 28 Apr 1994 02:42:43 +0000
(
02:42
+0000)
Use signal, not error.
lisp/mail/blessmail.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/mail/blessmail.el
b/lisp/mail/blessmail.el
index
0218ec7
..
2dcb207
100644
(file)
--- 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"))