Mercurial > emacs
changeset 7244:5420c14c9169
Don't load site-init.el.
Print the mail directory we tested, on standard output.
Don't load paths.el either--we now run in emacs, not temacs.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 01 May 1994 06:41:08 +0000 |
| parents | 8f0735e7f807 |
| children | 00ece23611e1 |
| files | lisp/mail/blessmail.el |
| diffstat | 1 files changed, 17 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/blessmail.el Sun May 01 04:41:20 1994 +0000 +++ b/lisp/mail/blessmail.el Sun May 01 06:41:08 1994 +0000 @@ -32,9 +32,11 @@ ;;; Code: -(message "Using load-path %s" load-path) -(load "paths.el") -(load "site-init" t) +;; These are no longer needed because we run this in emacs instead of temacs. +;; (message "Using load-path %s" load-path) +;; (load "paths.el") +;; It is not safe to load site-init.el here, because it might have things in it +;; that won't load properly unless all the rest of Emacs is loaded. (let ((dirname (directory-file-name rmail-spool-directory)) linkname attr modes) @@ -49,17 +51,18 @@ (list (format "%s is not a directory" rmail-spool-directory)))) (setq modes (nth 8 attr)) (insert "#!/bin/sh\n") - (cond - ((= ?w (aref modes 8)) - (insert "exit 0")) - ((= ?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")))) + (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)