home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / alt / lucidem / bug / 497 < prev    next >
Encoding:
Text File  |  1993-01-24  |  1.3 KB  |  37 lines
  1. x-gateway: rodan.UU.NET from bug-lucid-emacs to alt.lucid-emacs.bug; Sun, 24 Jan 1993 09:56:37 EST
  2. Date: Sun, 24 Jan 1993 14:55:14 GMT
  3. From: djh@CIS.Prime.COM (David Hughes)
  4. Message-ID: <9301241455.AA23548@CIS.Prime.COM>
  5. Subject: Re: Solution to highlight-headers problem in lemacs19.4
  6. Newsgroups: alt.lucid-emacs.bug
  7. Path: sparky!uunet!wendy-fate.uu.net!bug-lucid-emacs
  8. Sender: bug-lucid-emacs-request@lucid.com
  9. Lines: 26
  10.  
  11. Excerpt of message (sent 24 January 93) by David Hughes:
  12. > Various people have complained that vm and gnus breaks under lemacs19.4 due
  13. > to "highlight-headers-regexp having no value" and that a "sensible" default
  14. > value should have been set up etc, etc.
  15. > 
  16. > The solution is quite simple :
  17. > 
  18. > At the bottom of highlight-headers.el add the line
  19. > 
  20. > (provide 'highlight-headers)
  21. > 
  22. > and at the top of vm-lucid.el and gnus-lucid.el add the line
  23. > 
  24. > (require 'highlight-headers)
  25.  
  26. I forgot to add that the following should be replaced in vm-lucid.el
  27.  
  28. (defun vm-highlight-headers (message window)
  29.   (let ((highlight-headers-regexp (or vm-highlighted-header-regexp
  30.                                       highlight-headers-regexp)))
  31.     (highlight-headers (marker-position (vm-start-of (car vm-message-pointer)))
  32.                (marker-position (vm-text-of (car vm-message-pointer)))
  33.                t)))
  34.  
  35. --
  36. Regards, David
  37.