(rmail-list-to-menu): Bind `command' with let.

1 files changed, 22 insertions, 21 deletions

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index d5f094c4edd..bc9f60ea540 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -762,28 +762,29 @@ original copy."
   (let ((menu (make-sparse-keymap menu-name)))
     (mapcar
      (function (lambda (item)
-                 (if (consp item)
+                 (let (command)
+                   (if (consp item)
+                       (progn
+                         (setq command
+                               (rmail-list-to-menu (car item) (cdr item) 
+                                                   action 
+                                                   (if full-name
+                                                       (concat full-name "/"
+                                                               (car item))
+                                                     (car item))))
+                         (setq name (car item)))
                      (progn
-                       (setq command
-                             (rmail-list-to-menu (car item) (cdr item) 
-                                                 action 
-                                                 (if full-name
-                                                     (concat full-name "/"
-                                                             (car item))
-                                                   (car item))))
-                       (setq name (car item)))
-                   (progn
-                     (setq name item)
-                     (setq command 
-                           (list 'lambda () '(interactive)
-                                 (list action
-                                  (expand-file-name 
-                                   (if full-name
-                                       (concat full-name "/" item)
-                                     item)
-                                   rmail-secondary-file-directory))))))
-                 (define-key menu (vector (intern name))
-                   (cons name command))))
+                       (setq name item)
+                       (setq command 
+                             (list 'lambda () '(interactive)
+                                   (list action
+                                         (expand-file-name 
+                                          (if full-name
+                                              (concat full-name "/" item)
+                                            item)
+                                          rmail-secondary-file-directory))))))
+                   (define-key menu (vector (intern name))
+                     (cons name command)))))
      (reverse l))
     menu))