Commit bc8661ca authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent a16aef15
...@@ -762,6 +762,7 @@ original copy." ...@@ -762,6 +762,7 @@ original copy."
(let ((menu (make-sparse-keymap menu-name))) (let ((menu (make-sparse-keymap menu-name)))
(mapcar (mapcar
(function (lambda (item) (function (lambda (item)
(let (command)
(if (consp item) (if (consp item)
(progn (progn
(setq command (setq command
...@@ -783,7 +784,7 @@ original copy." ...@@ -783,7 +784,7 @@ original copy."
item) item)
rmail-secondary-file-directory)))))) rmail-secondary-file-directory))))))
(define-key menu (vector (intern name)) (define-key menu (vector (intern name))
(cons name command)))) (cons name command)))))
(reverse l)) (reverse l))
menu)) menu))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment