If rmail-spool-directory is not a directory,

just output an `echo' command to tell about it.

1 files changed, 15 insertions, 16 deletions

diff --git a/lisp/mail/blessmail.el b/lisp/mail/blessmail.el
index 843a616d03e..d940248e13b 100644
--- a/lisp/mail/blessmail.el
+++ b/lisp/mail/blessmail.el
@@ -45,23 +45,22 @@
     (setq dirname (if (file-name-absolute-p linkname)
 		      linkname
 		    (concat (file-name-directory dirname) linkname))))
-  (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")))
+  (setq attr (file-attributes dirname))
+  (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)