Don't make an empty script.

Use signal, not error.

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"))