From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 3 Jul 2018 22:16:52 +0000 (-0400)
Subject: * lisp/mail/sendmail.el: Use lexical-binding
X-Git-Tag: emacs-27.0.90~4723
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f9f0c993845cc51517cef6ed06b0cabe102dcd9f;p=emacs.git

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

(mail-recover-1): Declare dired-trivial-filenames.
---

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 @@
-;;; 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)