Mercurial > emacs

changeset 7147:f5880d940db8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Don't make an empty script. Use signal, not error.
author Karl Heuer <kwzh@gnu.org>
date Thu, 28 Apr 1994 02:42:43 +0000
parents 7798bbb665fb
children 979a0246101e
files lisp/mail/blessmail.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/blessmail.el	Thu Apr 28 02:39:40 1994 +0000
+++ b/lisp/mail/blessmail.el	Thu Apr 28 02:42:43 1994 +0000
@@ -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"))