home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / alt / lucidem / help / 861 < prev    next >
Encoding:
Text File  |  1993-01-11  |  2.4 KB  |  58 lines
  1. Newsgroups: alt.lucid-emacs.help
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!sdd.hp.com!cs.utexas.edu!csc.ti.com!tilde.csc.ti.com!fstop.csc.ti.com!fstop.csc.ti.com!kenb
  3. From: kenb@dadd.ti.com (Ken Butler)
  4. Subject: Highlighting in RMAIL
  5. Message-ID: <KENB.93Jan11165841@bigears.dadd.ti.com>
  6. Sender: usenet@csc.ti.com
  7. Nntp-Posting-Host: bigears.dadd.ti.com
  8. Organization: Texas Instruments, Inc., Dallas, TX
  9. Distribution: alt
  10. Date: Mon, 11 Jan 1993 22:58:41 GMT
  11. Lines: 45
  12.  
  13. I've seen several postings on this subject, and I've tried to implement
  14. my own version of this, but it seems to make RMAIL annoyingly slow.
  15. Here's what I've done:
  16.  
  17.   (setq rmail-mode-hook
  18.         '(lambda ()
  19.            ;; Commented out 01/04/92 due to slow execution speed.
  20.            ;; Uncomment to use MIME
  21.            ;; (load "mime-compose")
  22.            (load-library "lhilit.elc")
  23.            (setq rmail-mode-hilit
  24.                  '(
  25.                    ("^[ ]*[a-zA-Z0-9 ]*[ =]*>[ ]*.*"           nil hilit0)
  26.                    ("^[ ]*[Ss][UuBbJjEeCcTt]*[ ]*[:; ]+.*"     nil hilit1)
  27.                    ("^[ ]*[Rr][Ee][Ff]*[ ]*[:; ].*"            nil hilit1)
  28.                    ("^Return-Path:[ ]*.*"                      nil hilit9)
  29.                    ("^Date:[ ]*.*"                             nil hilit9)
  30.                    ("^From:[ ]*.*[!@%].*"                      nil hilit9)
  31.                    ("^To:[ ]*.*[!@%].*"                        nil hilit9)
  32.                    ("^C[Cc]:[ ]*.*[!@%].*"                     nil hilit9)
  33.                    ))
  34.            (hilit::mode-list-update "RMAIL" rmail-mode-hilit)
  35.            ))
  36.   (setq rmail-show-message-hook
  37.         '(lambda ()
  38.            (hilit::hilit-buffer)
  39.            ))
  40.  
  41. What happens when I use this code is that everytime the displayed
  42. message buffer is modified (when I move between messages, start or stop
  43. the summary buffer, etc.), there is quite a bit of lag time before the
  44. buffer is finished updating.
  45.  
  46. Is there something that I've done that is making it slower than it needs
  47. to be?  If so, how can I correct my mistake?
  48.  
  49. Thanks.
  50. --
  51.  
  52. *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
  53. Kenneth M. Butler                           (214) 917-1759 (office)
  54. Texas Instruments                           (214) 917-7966 (FAX)
  55. P.O. Box 650311 MS 3937                     kenb@dadd.ti.com
  56. Dallas, TX 75265
  57. *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
  58.