タイトルバーに日時とMew-biffを表示するには

[山尾貴則 / Takanori YAMAO <yama-ml@xxxxxxxx>]

yamaと申します．

Meadow 1.14とMew 3.1を使用しております．現在のMewにはメールチェッ
ク機能があり，モードラインにメール数を表示することができますが，
この表示をウィンドウのタイトルバーにも表示させたいと思い，
.emacsに次のように書いて，実現させています．

;タイトルバーに日時とMew-biffを表示
(setq display-time-day-and-date t
      display-time-24hr-format t)
(setq display-time-string-forms
  '((if display-time-day-and-date
        (format "%s/%s/%s " year month day)
     "")
    (format "%s:%s%s"
            (if display-time-24hr-format 24-hours 12-hours)
            minutes
            (if display-time-24hr-format "" am-pm))))
(display-time)
(cond (window-system
       (setq frame-title-format
	     '((multiple-frames "")
       mew-biff-string
	       "     "
	       display-time-string))
	     (remove-hook 'global-mode-string)))
(setq icon-title-format 'frame-title-format)

これは確か以前このメーリングリストで紹介された方法を元に試行錯
誤して作ったもので，とりあえず日時とbiffの結果がタイトルバーに
表示されるようになっています．ですが，これだとどうもエラーがで
ているようです．以下のような感じです．

Error in init file: Wrong number of arguments: #[(hook function &optional local) "\304!?\206\2041
このエラーを出さずにタイトルバーに表示をさせるようにするにはど
のようにすればいいでしょうか．アドバイスをいただければ幸いです．

それでは失礼いたします．

--
山尾貴則 (YAMAO, Takanori)------------http://www.ymzk.org/~yama/
fingerprint : 21E9 39B0 0433 F68A 7193  92BB B339 3122 CF82 5CCD