session.elの file-name-history がおかしい

最新版の version 2.2aのsession.el で file-name-hisotryを自動保存・復元してもらえると find-file 時に c-r で過去の履歴から開いたファイルを検索できて便利なんですが、 file-name-hisotry が一定数(1KBくらい?)しか保存されず古いのが消えてしまいます。


下の設定だと足りないのかな。他のみなさんは意図通り動いていますか?

(when (require 'session nil t)
  (setq session-initialize '(de-saveplace session keys menus)
        session-globals-include '((kill-ring 50)
                                  (session-file-alist 500 t)
                                  (file-name-history 500)))
  (setq session-globals-max-string (* 1024 1024))
  (add-hook 'after-init-hook 'session-initialize))

追記

解決方法が分かった。(多分)

;; デフォルトでは30!なのでinfinite.
(setq history-length t)


M-x describe-variableによると

Documentation:
*Maximum length for history lists before truncation takes place.
A number means that length; t means infinite.  Truncation takes place
just after a new element is inserted.  Setting the `history-length'
property of a history variable overrides this default.

だそうです。
常識?