[Emacs-diffs] master b7352cb: * lisp/mail/rmailsum.el: Use lexical-binding.

[Stefan Monnier]

branch: master
commit b7352cb2fa65655dbf97cb7d80ebb1f77dffc039
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * lisp/mail/rmailsum.el: Use lexical-binding.
---
 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 280539e..7097fef 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)