diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-04-29 02:34:36 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-04-29 02:34:36 -0400 |
| commit | b7352cb2fa65655dbf97cb7d80ebb1f77dffc039 (patch) | |
| tree | eedf9aab8d3ee2d3cebfc11bf2054d54ba1bc8de /lisp/mail | |
| parent | 56d487bdc2425281333802cb884d11a1a5055c76 (diff) | |
| download | emacs-b7352cb2fa65655dbf97cb7d80ebb1f77dffc039.tar.gz | |
* lisp/mail/rmailsum.el: Use lexical-binding.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rmailsum.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 280539ea37b..7097fef9ada 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -1,4 +1,4 @@ -;;; rmailsum.el --- make summary buffers for the mail reader +;;; rmailsum.el --- make summary buffers for the mail reader -*- lexical-binding:t -*- ;; Copyright (C) 1985, 1993-1996, 2000-2015 Free Software Foundation, Inc. @@ -262,7 +262,7 @@ Setting this option to nil might speed up the generation of summaries." ;; Regenerate the contents of the summary ;; using the same selection criterion as last time. ;; M-x revert-buffer in a summary buffer calls this function. -(defun rmail-update-summary (&rest ignore) +(defun rmail-update-summary (&rest _) (apply (car rmail-summary-redo) (cdr rmail-summary-redo))) ;;;###autoload @@ -674,7 +674,7 @@ LINES is the number of lines in the message (if we should display that) (goto-char (point-min)) (let ((line (rmail-header-summary)) (labels (rmail-get-summary-labels)) - pos status prefix basic-start basic-end linecount-string) + status prefix basic-start basic-end linecount-string) (setq linecount-string (cond @@ -746,7 +746,7 @@ the message being processed." ;; Get all the lines of the From field ;; so that we get a whole comment if there is one, ;; so that mail-strip-quoted-names can discard it. - (let ((opoint (point))) + (progn (while (progn (forward-line 1) (looking-at "[ \t]"))) ;; Back up over newline, then trailing spaces or tabs @@ -928,8 +928,8 @@ A prefix argument serves as a repeat count; a negative argument means to delete and move backward." (interactive "p") (unless (numberp count) (setq count 1)) - (let (end del-msg - (backward (< count 0))) + (let (del-msg + (backward (< count 0))) (while (and (/= count 0) ;; Don't waste time if we are at the beginning ;; and trying to go backward. @@ -1048,7 +1048,7 @@ Optional prefix ARG means undelete ARG previous messages." (forward-line 1)) (setq n (1- n))) (rmail-summary-goto-msg 1) - (dotimes (i rmail-total-messages) + (dotimes (_ rmail-total-messages) (rmail-summary-goto-msg) (let (del-msg) (when (rmail-summary-deleted-p) |