From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 12 Mar 1995 07:47:33 +0000 (+0000)
Subject: (rmail-list-to-menu): Bind `command' with let.
X-Git-Tag: emacs-19.34~4887
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bc8661cab06a25ea154976af790a7964d31573fd;p=emacs.git

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

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