home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / epoch / tek-highlight-2.0 / mh-e.patch < prev    next >
Encoding:
Text File  |  1992-08-20  |  591 b   |  25 lines
  1. *** /user/burgett/epoch-4.0a1/lisp/mh-e.el    Sat Nov  2 12:22:36 1991
  2. --- mh-e.el    Sat Nov  2 11:16:11 1991
  3. ***************
  4. *** 53,58 ****
  5. --- 53,61 ----
  6.   
  7.   ;;; Hooks:
  8.   
  9. + (defvar mh-Select-letter-hook nil
  10. +   "Invoked in mh-show.")
  11. + 
  12.   (defvar mh-folder-mode-hook nil
  13.     "Invoked in mh-folder-mode on a new folder.")
  14.   
  15. ***************
  16. *** 1037,1042 ****
  17. --- 1040,1046 ----
  18.     (other-window -1)
  19.     (shrink-window (- (window-height) mh-summary-height))
  20.     (mh-recenter nil)
  21. +   (run-hooks 'mh-Select-letter-hook)
  22.     (if (not (memq msg mh-seen-list)) (mh-push msg mh-seen-list)))
  23.   
  24.   
  25.