aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2018-07-03 18:16:52 -0400
committerStefan Monnier2018-07-03 18:16:52 -0400
commitf9f0c993845cc51517cef6ed06b0cabe102dcd9f (patch)
tree3180b82a8ca04eca3d606fdddcd26d24032137bd
parent9d274c3e1c77c1f29c040901108fe5fb8a843044 (diff)
downloademacs-f9f0c993845cc51517cef6ed06b0cabe102dcd9f.tar.gz
emacs-f9f0c993845cc51517cef6ed06b0cabe102dcd9f.zip
* lisp/mail/sendmail.el: Use lexical-binding
(mail-recover-1): Declare dired-trivial-filenames.
-rw-r--r--lisp/mail/sendmail.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 29a1ae2657e..50dd81039e7 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -1,4 +1,4 @@
1;;; sendmail.el --- mail sending commands for Emacs 1;;; sendmail.el --- mail sending commands for Emacs -*- lexical-binding:t -*-
2 2
3;; Copyright (C) 1985-1986, 1992-1996, 1998, 2000-2018 Free Software 3;; Copyright (C) 1985-1986, 1992-1996, 1998, 2000-2018 Free Software
4;; Foundation, Inc. 4;; Foundation, Inc.
@@ -1144,7 +1144,7 @@ to combine them into one, and does so if the user says y."
1144 ;; Try to preserve alignment of contents of the field 1144 ;; Try to preserve alignment of contents of the field
1145 (let ((prefix-length (length (match-string 0)))) 1145 (let ((prefix-length (length (match-string 0))))
1146 (replace-match " ") 1146 (replace-match " ")
1147 (dotimes (i (1- prefix-length)) 1147 (dotimes (_ (1- prefix-length))
1148 (insert " "))))))) 1148 (insert " ")))))))
1149 (set-marker first-to-end nil)))))) 1149 (set-marker first-to-end nil))))))
1150 1150
@@ -1957,6 +1957,7 @@ The seventh argument ACTIONS is a list of actions to take
1957 ;; Require dired so that dired-trivial-filenames does not get 1957 ;; Require dired so that dired-trivial-filenames does not get
1958 ;; unbound on exit from the let. 1958 ;; unbound on exit from the let.
1959 (require 'dired) 1959 (require 'dired)
1960 (defvar dired-trivial-filenames)
1960 (let ((dired-trivial-filenames t)) 1961 (let ((dired-trivial-filenames t))
1961 (dired-other-window wildcard (concat dired-listing-switches " -t"))) 1962 (dired-other-window wildcard (concat dired-listing-switches " -t")))
1962 (rename-buffer "*Auto-saved Drafts*" t) 1963 (rename-buffer "*Auto-saved Drafts*" t)