1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/term/haiku-win.el b/lisp/term/haiku-win.el
index b7f1991381b..9fa50d62e85 100644
--- a/lisp/term/haiku-win.el
+++ b/lisp/term/haiku-win.el
@@ -200,7 +200,7 @@ take effect on menu items until the menu bar is updated again."
                 (unless (cadr field)
                   ;; Add B_MIME_TYPE to the message if the type was not
                   ;; previously defined.
-                  (push 1296649641 (alist-get (car selection-result) message
+                  (push 1296649541 (alist-get (car selection-result) message
                                               nil nil #'equal))))
               (push (cadr selection-result)
                     (cdr (alist-get (car selection-result) message