🚀 go-pugleaf

Here are the patches for the tek hiliting package to get the 
same highlighting on mh-e show buffers that you get on gnus article buffers
(From and Subject lines highlighted...)

The patches are provided for mh-e.el (as supplied in epoch 4.0(a1))
and tek-gnus-hilite-setup.el and tek-gnus-hilite.el (patches made against
sources modified for epoch-4.0a1, but still apply correctly to original
files (should show a line offset of about 17 on tek-gnus-hilite.el).

Have fun....  m. burgett (burgett@adobe.com)

Submitted-by: burgett@burgund.adobe.com

---- Cut Here and feed the following to sh ----
#!/bin/sh
# This is mhe-patch, a shell archive (produced by shar 3.49)
# To extract the files from this archive, save it to a file, remove
# everything above the "!/bin/sh" line above, and type "sh file_name".
#
# made 11/02/1991 20:35 UTC by burgett@burgund.adobe.com
# Source directory /disks/flex/vp12/burgett
#
# existing files will NOT be overwritten unless -c is specified
#
# This shar contains:
# length  mode       name
# ------ ---------- ------------------------------------------
#    591 -rw-rw---- mh-e.patch
#   2550 -rw-rw---- tek-gnus.patch
#
# ============= mh-e.patch ==============
if test -f 'mh-e.patch' -a X"$1" != X"-c"; then
	echo 'x - skipping mh-e.patch (File already exists)'
else
echo 'x - extracting mh-e.patch (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'mh-e.patch' &&
X*** /user/burgett/epoch-4.0a1/lisp/mh-e.el	Sat Nov  2 12:22:36 1991
X--- mh-e.el	Sat Nov  2 11:16:11 1991
X***************
X*** 53,58 ****
X--- 53,61 ----
X  
X  ;;; Hooks:
X  
X+ (defvar mh-Select-letter-hook nil
X+   "Invoked in mh-show.")
X+ 
X  (defvar mh-folder-mode-hook nil
X    "Invoked in mh-folder-mode on a new folder.")
X  
X***************
X*** 1037,1042 ****
X--- 1040,1046 ----
X    (other-window -1)
X    (shrink-window (- (window-height) mh-summary-height))
X    (mh-recenter nil)
X+   (run-hooks 'mh-Select-letter-hook)
X    (if (not (memq msg mh-seen-list)) (mh-push msg mh-seen-list)))
X  
X  
SHAR_EOF
chmod 0660 mh-e.patch ||
echo 'restore of mh-e.patch failed'
Wc_c="`wc -c < 'mh-e.patch'`"
test 591 -eq "$Wc_c" ||
	echo 'mh-e.patch: original size 591, current size' "$Wc_c"
fi
# ============= tek-gnus.patch ==============
if test -f 'tek-gnus.patch' -a X"$1" != X"-c"; then
	echo 'x - skipping tek-gnus.patch (File already exists)'
else
echo 'x - extracting tek-gnus.patch (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'tek-gnus.patch' &&
X*** gnu/hilite/tek-gnus-hilite.el	Fri Nov  1 13:54:56 1991
X--- local/emacs/epoch-lisp/tek-gnus-hilite.el	Sat Nov  2 11:32:33 1991
X***************
X*** 103,109 ****
X  			   (foreground))))
X  
X  
X!       ; Define the highlighting function
X        (defun tek-article-hilite ()
X  	"\
X  Highlight From: and Subject: fields in news articles displayed by
X--- 103,109 ----
X  			   (foreground))))
X  
X  
X!       ; Define the highlighting function(s)
X        (defun tek-article-hilite ()
X  	"\
X  Highlight From: and Subject: fields in news articles displayed by
X***************
X*** 126,131 ****
X--- 126,153 ----
X  	  (set-buffer starting-buffer)))
X  
X  
X+       (defun tek-letter-hilite ()
X+ 	"\
X+ Highlight From: and Subject: fields in news articles displayed by
X+ MH-E."
X+ 	(let (
X+ 	      (starting-buffer (current-buffer))
X+ 	      )
X+ 	  (set-buffer mh-show-buffer)
X+ 	  (save-excursion
X+ 	    (clear-buttons)
X+ 	    (goto-char (point-min))
X+ 	    (if (re-search-forward "^From: \\(.*\\)" nil t)
X+ 		(add-button (match-beginning 1) (match-end 1)
X+ 			    tek-gnus-from-style))
X+ 	    (goto-char (point-min))
X+ 	    (if (re-search-forward "^Subject: \\(.*\\)" nil t)
X+ 		(add-button (match-beginning 1) (match-end 1)
X+ 			    tek-gnus-subject-style))
X+ 	    )
X+ 	  (set-buffer starting-buffer)))
X+ 
X+ 
X        ; Set up the hook to run the highlighting function after displaying
X        ; each article. Have to explicitly set the variable to an assumed
X        ; value, since the default GNUS setup doesn't initialise it to
X***************
X*** 132,136 ****
X--- 154,160 ----
X        ; a proper list of hook functions.
X        (setq gnus-Select-article-hook (list 'gnus-Subject-show-thread
X  					   'tek-article-hilite))
X+       (setq mh-Select-letter-hook (list 'tek-letter-hilite))
X+ 
X        
X        )) ; end: running-epoch test
X*** gnu/hilite/tek-gnus-hilite-setup.el	Wed Oct 23 12:00:49 1991
X--- local/emacs/epoch-lisp/tek-gnus-hilite-setup.el	Sat Nov  2 12:05:52 1991
X***************
X*** 27,32 ****
X--- 27,34 ----
X  ;		See the INSTALL file that comes with this package for
X  ;		installation details.
X  ;
X+ ;  Modified to startup for mh-e 11/2/91 M. Burgett (burgett@adobe.com)
X+ ;
X  ;*****************************************************************************
X  
X  ; $Id: tek-gnus-hilite-setup.el,v 1.2 1991/10/18 07:43:32 kwood Exp $
X***************
X*** 43,46 ****
X--- 45,49 ----
X  	nil)
X  
X        (prepend-unique-hook 'gnus-Startup-hook 'tek-init-gnus-hiliting)
X+       (prepend-unique-hook 'mh-inc-folder-hook 'tek-init-gnus-hiliting)
X        ))
SHAR_EOF
chmod 0660 tek-gnus.patch ||
echo 'restore of tek-gnus.patch failed'
Wc_c="`wc -c < 'tek-gnus.patch'`"
test 2550 -eq "$Wc_c" ||
	echo 'tek-gnus.patch: original size 2550, current size' "$Wc_c"
fi
exit 0