# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 768273718 0
# Node ID d04f5eb7098beb0fa0dd4729659238b263561554
# Parent  e3cca19763ae3ee48ecb04902395cce66fac5a6c
If rmail-spool-directory is not a directory,
just output an `echo' command to tell about it.

diff -r e3cca19763ae -r d04f5eb7098b lisp/mail/blessmail.el
--- a/lisp/mail/blessmail.el	Sat May 07 01:20:07 1994 +0000
+++ b/lisp/mail/blessmail.el	Sat May 07 01:21:58 1994 +0000
@@ -45,23 +45,22 @@
     (setq dirname (if (file-name-absolute-p linkname)
 		      linkname
 		    (concat (file-name-directory dirname) linkname))))
+  (insert "#!/bin/sh\n")
   (setq attr (file-attributes dirname))
-  (or (eq t (car attr))
-      (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))
-	 ;; Nothing needs to be done.
-	 )
-	((= ?w (aref modes 5))
-	 (insert "chgrp " (number-to-string (nth 3 attr))
-		 " $* && chmod g+s $*\n"))
-	((= ?w (aref modes 2))
-	 (insert "chown " (number-to-string (nth 2 attr))
-		 " $* && chmod u+s $*\n"))
-	(t
-	 (insert "chown root $* && chmod u+s $*\n")))
+  (if (not (eq t (car attr)))
+      (insert (format "echo %s is not a directory\n" rmail-spool-directory))
+    (setq modes (nth 8 attr))
+    (cond ((= ?w (aref modes 8))
+	   ;; Nothing needs to be done.
+	   )
+	  ((= ?w (aref modes 5))
+	   (insert "chgrp " (number-to-string (nth 3 attr))
+		   " $* && chmod g+s $*\n"))
+	  ((= ?w (aref modes 2))
+	   (insert "chown " (number-to-string (nth 2 attr))
+		   " $* && chmod u+s $*\n"))
+	  (t
+	   (insert "chown root $* && chmod u+s $*\n"))))
   (insert "echo mail directory = " dirname "\n"))
 (write-region (point-min) (point-max) "blessmail")
 (kill-emacs)