[Mew-dist 16111] Re: b101

[NINOMIYA Hideyuki]

こんばんは	二宮@お四国 です

mew-pop-check の実装ありがとうございます。

しかし、mode line へ表示されません 。。。

こう(以下)だと思います。

Index: mew-pop.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-pop.el,v
retrieving revision 1.4
diff -c -F(def -r1.4 mew-pop.el
*** mew-pop.el	2001/01/29 12:06:25	1.4
--- mew-pop.el	2001/01/29 13:08:42
*************** (defun mew-pop-biff-setup ()
*** 165,178 ****
        (mew-pop-biff-clean-up)
      (if mew-pop-biff-timer-id (cancel-timer mew-pop-biff-timer-id))
      (setq mew-pop-biff-timer-id
! 	  (mew-timer (* 60 mew-pop-biff-interval) (function mew-pop-biff)))
!     (let ((ent '(mew-biff-string mew-biff-string)))
!       (if (member ent global-mode-string)
! 	  ()
! 	(if global-mode-string
! 	    (setq global-mode-string
! 		  (append global-mode-string (list " " ent)))
! 	  (setq global-mode-string (list ent)))))))
  
  (defun mew-pop-biff-clean-up ()
    (if mew-pop-biff-timer-id (cancel-timer mew-pop-biff-timer-id))
--- 165,178 ----
        (mew-pop-biff-clean-up)
      (if mew-pop-biff-timer-id (cancel-timer mew-pop-biff-timer-id))
      (setq mew-pop-biff-timer-id
! 	  (mew-timer (* 60 mew-pop-biff-interval) (function mew-pop-biff))))
!   (let ((ent '(mew-biff-string mew-biff-string)))
!     (if (member ent global-mode-string)
! 	()
!       (if global-mode-string
! 	  (setq global-mode-string
! 		(append global-mode-string (list " " ent)))
! 	(setq global-mode-string (list ent))))))
  
  (defun mew-pop-biff-clean-up ()
    (if mew-pop-biff-timer-id (cancel-timer mew-pop-biff-timer-id))

つまり、global-mode-string の設定部分は (if mew-use-pop-biff ...) から
出します。

分離したほうが良いかもしれません
--─
ICQ UIN:57442553                          二宮 秀幸@愛媛 鬼北 広見町
PGP-Fingerprint:  6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
PGP-Public-Key:    http://user.shikoku.ne.jp/~nin/pgp/public-key.txt
mailto:nin at example.com   http://user.shikoku.ne.jp/~nin/index.html
mailto:nin at example.com http://home.jp.freebsd.org/~nin/index.html