--- gettext-tools/misc/po-mode.el
+++ gettext-tools/misc/po-mode.el
@@ -1110,6 +1110,7 @@
     ;; mode-line-format usually contains global-mode-string, but some
     ;; people customize this variable. As a last resort, append at the end.
     (let ((prev-entry (or (member 'global-mode-string mode-line-format)
+                          (member 'mode-line-position mode-line-format)
                           (member "   " mode-line-format)
                           (last mode-line-format))))
       (setcdr prev-entry (cons po-mode-line-entry (cdr prev-entry)))))