[Mew-dist 15879] Re: about POP biff

[NINOMIYA Hideyuki]

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

取り合えず自分に出来る interactive だけしてみました。

山本 和彦 様 は Fri, 12 Jan 2001 12:30:21 +0900 頃に
    Subject: [Mew-dist 15856] Re: about POP biff
    Message-Id: <20010112.123037.41163210.kazu at example.com>
        に於いて以下のようにおっしゃっていました。
※都合により手を加えさせていただく事が有ります。御了承下さいマセヽ...
かず> From: NINOMIYA Hideyuki <nin at example.com>
かず> Subject: [Mew-dist 15851] about POP biff
かず> 
かず> > POP biff をちょっと使ってみました。がっ、、、
かず> > うちの環境(*1)ではあんまり嬉しくないので止めてしまいました。
かず> 
かず> biff って、常時接続の環境で利用する機能だと思いますよ。

それは承知の上で、せっかく加わった機能なので(interval を長めに取って)
ものは試しに使ってみた次第です。

それで、interactive に使えたら daial up user にとっても mew-pop-biff は
利用価値のある機能になるのではと思いました。

# 実際やってみても *使える* と思いました。

以下 patch です。

Index: mew-pop.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-pop.el,v
retrieving revision 1.1.1.11
diff -c -F(def -r1.1.1.11 mew-pop.el
*** mew-pop.el	2001/01/11 12:23:10	1.1.1.11
--- mew-pop.el	2001/01/12 08:37:29
*************** (defvar mew-biff-string nil)
*** 139,151 ****
  (defvar mew-pop-biff-timer-id nil)
  
  (defun mew-pop-biff (&optional arg) ;; for XEmacs
    (let* ((case mew-config-input)
  	 (inbox (mew-inbox-folder case))
  	 (key (mew-pop-passtag2 case)))
      (save-excursion
        (set-buffer inbox)
        (if (and (mew-summary-exclusive-p)
! 	       (and mew-use-cached-passwd (mew-passwd-get-passwd key)))
  	  (mew-pop-get case nil nil 'biff)))))
  
  (defun mew-pop-biff-setup ()
--- 139,153 ----
  (defvar mew-pop-biff-timer-id nil)
  
  (defun mew-pop-biff (&optional arg) ;; for XEmacs
+   (interactive)
    (let* ((case mew-config-input)
  	 (inbox (mew-inbox-folder case))
  	 (key (mew-pop-passtag2 case)))
      (save-excursion
        (set-buffer inbox)
        (if (and (mew-summary-exclusive-p)
! 	       (or (interactive-p)
! 		   (and mew-use-cached-passwd (mew-passwd-get-passwd key))))
  	  (mew-pop-get case nil nil 'biff)))))
  
  (defun mew-pop-biff-setup ()
*************** (defun mew-pop-biff-setup ()
*** 153,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))
--- 155,167 ----
        ()
      (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))

キーバインドはしませんでした。
何が良いか思案中...
--─
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