Don't make an empty script.

Use signal, not error.

diff --git a/lisp/mail/blessmail.el b/lisp/mail/blessmail.el
index 0218ec7498125bd08ac7ebae946504b3fc6c8527..2dcb2071ad93e7f2e9c9e58402e2b4777723635e 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"))