🚀 go-pugleaf

Here is a hook for VM.  Please add it.  If you don't want to add it,
please tell me so I can argue with you about it.  It is a real pain to
transport changes like this from version to version.

-- 
Joe Wells <jbw@cs.bu.edu>

Member of the League for Programming Freedom --- send e-mail for details
----------------------------------------------------------------------
--- vm.el-dist	Sat Apr 20 19:35:04 1991
+++ ./vm.el	Fri Feb 28 02:37:35 1992
@@ -1575,4 +1575,8 @@
     new-mail ))
 
+(defvar vm-after-get-mail-hook nil
+  "Called after getting new mail from mail spool files.
+Called using run-hooks.")
+
 (defun vm-get-spooled-mail ()
   (if vm-block-new-mail
@@ -1599,4 +1603,5 @@
 	    (setq got-mail t)))
       (setq spool-files (cdr spool-files)))
+    (run-hooks 'vm-after-get-mail-hook)	;jbw: added line
     got-mail ))
 
----------------------------------------------------------------------