* lisp/mail/sendmail.el: Use lexical-binding
(mail-recover-1): Declare dired-trivial-filenames.
This commit is contained in:
parent
9d274c3e1c
commit
f9f0c99384
1 changed files with 3 additions and 2 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue