procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(mail): Don't change directory for *mail* buffer.

Browse source 
(sendmail-send-it, mail-recover): Instead, temporarily change to a
safe directory for just the subprocess.
This commit is contained in:
Karl Heuer 1995-11-04 00:39:03 +00:00
parent 89fdc4a0ab
commit dc8cec25f0
1 changed files with 28 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

55
lisp/mail/sendmail.el
View file

@ -580,30 +580,31 @@ the user from the mailer."
(save-excursion
(set-buffer errbuf)
(erase-buffer))))
(apply 'call-process-region
(append (list (point-min) (point-max)
(if (boundp 'sendmail-program)
sendmail-program
"/usr/lib/sendmail")
nil errbuf nil "-oi")
;; Always specify who from,
;; since some systems have broken sendmails.
(list "-f" (user-login-name))
;;; ;; Don't say "from root" if running under su.
;;; (and (equal (user-real-login-name) "root")
;;; (list "-f" (user-login-name)))
(and mail-alias-file
(list (concat "-oA" mail-alias-file)))
;; These mean "report errors by mail"
;; and "deliver in background".
(if (null mail-interactive) '("-oem" "-odb"))
;; Get the addresses from the message
;; unless this is a resend.
;; We must not do that for a resend
;; because we would find the original addresses.
;; For a resend, include the specific addresses.
(or resend-to-addresses
'("-t"))))
(let ((default-directory "/"))
(apply 'call-process-region
(append (list (point-min) (point-max)
(if (boundp 'sendmail-program)
sendmail-program
"/usr/lib/sendmail")
nil errbuf nil "-oi")
;; Always specify who from,
;; since some systems have broken sendmails.
(list "-f" (user-login-name))
;;; ;; Don't say "from root" if running under su.
;;; (and (equal (user-real-login-name) "root")
;;; (list "-f" (user-login-name)))
(and mail-alias-file
(list (concat "-oA" mail-alias-file)))
;; These mean "report errors by mail"
;; and "deliver in background".
(if (null mail-interactive) '("-oem" "-odb"))
;; Get the addresses from the message
;; unless this is a resend.
;; We must not do that for a resend
;; because we would find the original addresses.
;; For a resend, include the specific addresses.
(or resend-to-addresses
'("-t")))))
(if mail-interactive
(save-excursion
(set-buffer errbuf)
@ -993,8 +994,6 @@ The seventh argument ACTIONS is a list of actions to take
;;; (message "Auto save file for draft message exists; consider M-x mail-recover"))
;;; t))
(pop-to-buffer "*mail*")
(if (file-exists-p (expand-file-name "~/"))
(setq default-directory (expand-file-name "~/")))
(auto-save-mode auto-save-default)
(mail-mode)
;; Disconnect the buffer from its visited file
@ -1020,7 +1019,9 @@ The seventh argument ACTIONS is a list of actions to take
(if (not (eq system-type 'vax-vms))
(with-output-to-temp-buffer "*Directory*"
(buffer-disable-undo standard-output)
(call-process "ls" nil standard-output nil "-l" file-name)))
(let ((default-directory "/"))
(call-process
"ls" nil standard-output nil "-l" file-name))))
(yes-or-no-p (format "Recover auto save file %s? " file-name)))
(let ((buffer-read-only nil))
(erase-buffer)