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,28 +762,29 @@ original copy." ...@@ -762,28 +762,29 @@ original copy."
(let ((menu (make-sparse-keymap menu-name))) (let ((menu (make-sparse-keymap menu-name)))
(mapcar (mapcar
(function (lambda (item) (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 (progn
(setq command (setq name item)
(rmail-list-to-menu (car item) (cdr item) (setq command
action (list 'lambda () '(interactive)
(if full-name (list action
(concat full-name "/" (expand-file-name
(car item)) (if full-name
(car item)))) (concat full-name "/" item)
(setq name (car item))) item)
(progn rmail-secondary-file-directory))))))
(setq name item) (define-key menu (vector (intern name))
(setq command (cons name 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)) (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