diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-15 17:46:23 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-15 17:46:23 +0200 |
| commit | 64a14444b5f190819e51e0d260c28a2338574805 (patch) | |
| tree | 108d820d88a58cf58a6404479e6ad51b744651a1 /lisp/mail | |
| parent | b7b4dd99907be6b585e42da8618579644e68873d (diff) | |
| download | emacs-64a14444b5f190819e51e0d260c28a2338574805.tar.gz | |
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.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/feedmail.el | 4 |
1 files changed, 1 insertions, 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 |