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 943bdd8851064d5601fc86b8095e3301d2937409..babc3fc212a9b1dbcd7e1b6cc167ba0c16b23ccd 100644 (file)
--- 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