diff options
| author | Stefan Monnier | 2018-07-03 18:16:52 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2018-07-03 18:16:52 -0400 |
| commit | f9f0c993845cc51517cef6ed06b0cabe102dcd9f (patch) | |
| tree | 3180b82a8ca04eca3d606fdddcd26d24032137bd | |
| parent | 9d274c3e1c77c1f29c040901108fe5fb8a843044 (diff) | |
| download | emacs-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.el | 5 |
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) |