* lisp/mail/sendmail.el: Use lexical-binding

(mail-recover-1): Declare dired-trivial-filenames.
This commit is contained in:
Stefan Monnier 2018-07-03 18:16:52 -04:00
parent 9d274c3e1c
commit f9f0c99384

View file

@ -1,4 +1,4 @@
;;; sendmail.el --- mail sending commands for Emacs
;;; sendmail.el --- mail sending commands for Emacs -*- lexical-binding:t -*-
;; Copyright (C) 1985-1986, 1992-1996, 1998, 2000-2018 Free Software
;; Foundation, Inc.
@ -1144,7 +1144,7 @@ to combine them into one, and does so if the user says y."
;; Try to preserve alignment of contents of the field
(let ((prefix-length (length (match-string 0))))
(replace-match " ")
(dotimes (i (1- prefix-length))
(dotimes (_ (1- prefix-length))
(insert " ")))))))
(set-marker first-to-end nil))))))
@ -1957,6 +1957,7 @@ The seventh argument ACTIONS is a list of actions to take
;; Require dired so that dired-trivial-filenames does not get
;; unbound on exit from the let.
(require 'dired)
(defvar dired-trivial-filenames)
(let ((dired-trivial-filenames t))
(dired-other-window wildcard (concat dired-listing-switches " -t")))
(rename-buffer "*Auto-saved Drafts*" t)