;ELC ;;; compiled by jwz@thalidomide on Sun May 22 21:45:47 1994 ;;; from file /th/jwz/emacs19/lisp/utils/highlight-headers.el ;;; emacs version 19.10 Lucid (beta25). ;;; bytecomp version 2.24; 26-Apr-94. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (byte-code "!!!!!\"!\"!\"!!!!!\"" [make-face message-headers message-header-contents message-highlighted-header-contents message-cited-text face-differs-from-default-p copy-face bold italic make-face-bold make-face-unbold make-face-italic make-face-unitalic] 3) (defvar highlight-headers-regexp "Subject[ ]*:" "\ *The headers whose contents should be emphasized more. The contents of these headers will be displayed in the face `message-highlighted-header-contents' instead of `message-header-contents'.") (defvar highlight-headers-citation-regexp "^[ ]*[A-Z]*[]}<>|][ ]*" "\ *The pattern to match cited text. Text in the body of a message which matches this will be displayed in the face `message-cited-text'.") (defvar highlight-headers-highlight-citation-too nil "\ *Whether the whole citation line should go in the `mesage-cited-text' face. If nil, the text matched by `highlight-headers-citation-regexp' is in the default face, and the remainder of the line is in the message-cited-text face.") (defvar highlight-headers-citation-header-regexp (concat "^In article\\|^In message\\|" "^[^ ].*\\(writes\\|wrote\\|said\\):\n[ ]*[A-Z]*[]}<>|]") "\ *The pattern to match the prolog of a cited block. Text in the body of a message which matches this will be displayed in the `message-headers' face.") (defvar highlight-headers-max-message-size 10000 "\ *If the message body is larger than this many chars, don't highlight it. This is to prevent us from wasting time trying to fontify things like uuencoded files and large digests. If this is nil, all messages will be highlighted.") (defvar highlight-headers-hack-x-face-p nil "\ *If true, then the bitmap in an X-Face header will be displayed in the buffer. This assumes you have the `uncompface' and `icontopbm' programs on your path.") (fset 'highlight-headers #[(start end hack-sig) " W \n)  Z V p $~ b #`) } bmgU!Ԕԕ\"\"#ԕ ! `\" \"#! `\" \"# \")`  `\" \"#yF?m?  !!ԕby\"!*%%! ` y `\"u \"#y$." [end start s message-header-contents current highlight-headers-max-message-size too-big nil e p map-extents #[(extent ignore) " \" !ć" [extent-property extent headers delete-extent nil] 3] hack-sig re-search-backward "\n--+ *\n" t 10 looking-at "^[^ \n]+[ ]*:" make-extent 0 set-extent-face message-headers set-extent-property headers highlight-headers-regexp message-highlighted-header-contents highlight-headers-hack-x-face-p "^X-Face: *" x-face-p highlight-headers-x-face 1 highlight-headers-citation-regexp highlight-headers-highlight-citation-too case-fold-search "^>From " message-cited-text highlight-headers-citation-header-regexp -1] 5 "\ Highlight message headers between start and end. Faces used: message-headers the part before the colon message-header-contents the part after the colon message-highlighted-header-contents contents of \"special\" headers message-cited-text quoted text from other messages Variables used: highlight-headers-regexp what makes a \"special\" header highlight-headers-citation-regexp matches lines of quoted text highlight-headers-citation-header-regexp matches headers for quoted text If HACK-SIG is true,then we search backward from END for something that looks like the beginning of a signature block, and don't consider that a part of the message (this is because signatures are often incorrectly interpreted as cited text.)"]) (byte-code "!M!MM!" [purecopy "@ `P0pH(hX8xD$dT4t L,l\\<|B\"bR2r\nJ*jZ:zF&fV6vN.n^>~A!aQ1q I)iY9yE%eU5u M-m]=}C#cS3s K+k[;{G'gW7wO/o_?" highlight-headers-x-face-bitrev highlight-headers-parse-x-face-data #[(start end) "p!qp!  ; c   ##x`w\n`|iedΉ&ebm!!y T!heb #ccmcucru!edΉ&eb!ye`|m\"gHc!q E!!," [0 nil p lines b get-buffer-create " *x-face-tmp*" buffer-disable-undo erase-buffer start insert-buffer-substring end search-forward "\n" t " \n" call-process-region "uncompface" looking-at "0x....,0x....,0x...., *$" error "unexpected uncompface output" 1 delete-char -1 format "/* Format_version=1, Width=%d, Height=%d" ", Depth=1, Valid_bits_per_item=16\n */\n" 9 56 10 "icontopbm" "P4\n" 2 highlight-headers-x-face-bitrev make-pixmap buffer-string "I only understand binary-format PBM..."] 7] boundp highlight-headers-x-face-to-pixmap-cache nil highlight-headers-x-face-to-pixmap #[(start end) "; {\n \" A\nȏB B A*" [start end string assoc highlight-headers-x-face-to-pixmap-cache data c (highlight-headers-parse-x-face-data start end) ((error (byte-code " \"!‡" [display-error c nil sit-for 2] 3)))] 5] highlight-headers-x-face #[(start extent) ";?by!yv`S) \"\"*" [start 1 looking-at "[ ]" end highlight-headers-x-face-to-pixmap p set-extent-begin-glyph extent] 4] provide highlight-headers] 2)