From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 7 May 1994 01:21:58 +0000 (+0000)
Subject: If rmail-spool-directory is not a directory,
X-Git-Tag: emacs-19.34~8478
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dd03399111a4fd6feecaac2b6c2f4d3052b28e43;p=emacs.git

If rmail-spool-directory is not a directory,
just output an `echo' command to tell about it.
---

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)