From 64a14444b5f190819e51e0d260c28a2338574805 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sat, 15 Jun 2019 17:46:23 +0200 Subject: [PATCH] Probably fix the `helper' argument in feedmail.el * lisp/mail/feedmail.el (feedmail-queue-send-edit-prompt-inner): Return the helper function (instead of the symbol `helper') so that the caller can actually call it. --- lisp/mail/feedmail.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index 943bdd88510..babc3fc212a 100644 --- a/lisp/mail/feedmail.el +++ b/lisp/mail/feedmail.el @@ -2168,9 +2168,7 @@ you can set `feedmail-queue-reminder-alist' to nil." (let ((inhibit-quit t) (cursor-in-echo-area t) (echo-keystrokes 0)) (read-char-exclusive)))) (if (= user-sez help-char) - ;; FIXME: This seems to want to refer to the `helper' argument, - ;; but it's quoted so the `helper' arg ends up unused! - (setq answer '(^ . helper)) + (setq answer (cons '^ helper)) (if (or (eq user-sez ?\C-m) (eq user-sez ?\C-j) (eq user-sez ?y)) (setq user-sez d-char)) ;; these char-to-int things are because of some -- 2.39.2