[Mew-dist 15849] Re: b97

[Kazu Yamamoto ( 山本和彦 )]

From: HORIUCHI Takahiko <taka at example.com>
Subject: [Mew-dist 15845] Re: b97

> b96 は試していないのですが、b97 では C-u Z すると Mail(n) の表示が
> 増殖します。3回 C-u Z すると Mail(n) Mail(n) Mail(n) というように。

失礼しました！

--かず

Index: mew-pop.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-pop.el,v
retrieving revision 1.111
diff -c -r1.111 mew-pop.el
*** mew-pop.el	2001/01/10 23:22:27	1.111
--- mew-pop.el	2001/01/12 00:18:12
***************
*** 154,165 ****
      (if mew-pop-biff-timer-id (mew-timer-reset 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 '(" ") ent))
! 	  (setq global-mode-string ent))))))
  
  (defun mew-pop-biff-clean-up ()
    (if mew-pop-biff-timer-id (mew-timer-reset mew-pop-biff-timer-id))
--- 154,165 ----
      (if mew-pop-biff-timer-id (mew-timer-reset 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 (mew-timer-reset mew-pop-biff-timer-id))