diff --git a/lisp/mh-e/mh-letter.el b/lisp/mh-e/mh-letter.el
index dfa96c63b5a..a5a7af24e91 100644
--- a/lisp/mh-e/mh-letter.el
+++ b/lisp/mh-e/mh-letter.el
@@ -894,7 +894,7 @@ Any match found replaces the text from BEGIN to END."
            (if (equal word completion)
                (with-output-to-temp-buffer completions-buffer
                  (mh-display-completion-list (all-completions word choices)
-                                             choices))
+                                             word))
              (ignore-errors
                (kill-buffer completions-buffer))
              (delete-region begin end)