Add hook RMAIL-NEW-MAIL-HOOK. It is run when RMAIL reads new mail.

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 0f821955ad0316d3aae94338a2976cce74adfe08..38b0c3ecdd2144ee5834b8f86f52c74e6931d8b8 100644 (file)
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.75 1992/02/08 15:23:35 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.76 1992/02/12 06:40:22 arthur Exp $
 
 Copyright (c) 1989-92 Massachusetts Institute of Technology
 
@@ -960,6 +960,7 @@ MIT in each case. |#
          edwin-variable$rmail-last-rmail-file
          edwin-variable$rmail-message-filter
          edwin-variable$rmail-mode-hook
+         edwin-variable$rmail-new-mail-hook
          edwin-variable$rmail-primary-inbox-list
          edwin-variable$rmail-reply-with-re
          rmail-spool-directory))

diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm
index 091b280fbf19e253ec93c5b873fb2b54bc0d7e04..e03df982f177f88295002b1151becc4195b8912d 100644 (file)
--- a/v7/src/edwin/rmail.scm
+++ b/v7/src/edwin/rmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmail.scm,v 1.15 1992/02/10 15:02:57 bal Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmail.scm,v 1.16 1992/02/12 06:40:08 arthur Exp $
 ;;;
 ;;;    Copyright (c) 1991-92 Massachusetts Institute of Technology
 ;;;
@@ -115,6 +115,10 @@ Called with the start and end marks of the header as arguments."
 (define-variable rmail-mode-hook
   "An event distributor that is invoked when entering RMAIL mode."
   (make-event-distributor))
+
+(define-variable rmail-new-mail-hook
+  "An event distributor that is invoked when RMAIL incorporates new mail."
+  (make-event-distributor))
 \f
 (define-major-mode rmail read-only "RMAIL"
   "Rmail Mode is used by \\[rmail] for editing Rmail files.
@@ -385,7 +389,8 @@ and use that file as the inbox."
           (cond ((not (msg-memo? memo)) 0)
                 ((> (msg-memo/number (msg-memo/last memo)) n-messages)
                  (+ n-messages 1))
-                (else (msg-memo/number memo)))))))))
+                (else (msg-memo/number memo)))))
+       (event-distributor/invoke! (ref-variable rmail-new-mail-hook))))))
 \f
 (define (get-new-mail buffer inbox-list delete-inboxes?)
   (let ((start (mark-right-inserting-copy (buffer-end buffer)))