From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 15 Jun 2019 15:46:23 +0000 (+0200)
Subject: Probably fix the `helper' argument in feedmail.el
X-Git-Tag: emacs-27.0.90~2503
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=64a14444b5f190819e51e0d260c28a2338574805;p=emacs.git

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

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