home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / packages / reportma.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  17.1 KB  |  134 lines
  1. ;;; compiled by jwz@thalidomide on Sat Jan  9 00:05:20 1993
  2. ;;; from file /cadillac-th/jwz/emacs19/lisp/packages/reportmail.el
  3. ;;; emacs version 19.4.1 Lucid.
  4. ;;; bytecomp version 2.09; 29-dec-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴\n\"½ä├─!ê└ç" [string-match "Lucid" emacs-version require timer] 3)
  14. (defvar display-time-announce-mail t "\
  15. *Toggles whether name of mail sender is displayed in mode line.")
  16. (defvar display-time-announce-junk-mail-too nil "\
  17. *When non-NIL, announce incoming junk mail as well as interesting mail")
  18. (defvar display-time-time t "\
  19. *Toggles whether the time is displayed.")
  20. (defvar display-time-load nil "\
  21. *Toggles whether machine load is displayed.")
  22. (defvar display-time-day-and-date nil "\
  23. *Toggles whether day and date are displayed.")
  24. (defvar display-time-mail-ring-bell nil "\
  25. *Toggles whether bell is rung on mail arrival.")
  26. (defvar display-time-junk-mail-ring-bell nil "\
  27. *Toggles whether bell is rung on junk mail arrival.
  28. If display-time-mail-ring-bell is nil, this variable is ignored.")
  29. (defvar display-time-my-addresses nil "\
  30. *Report the addressee of incoming mail in the message announcement, 
  31. unless it appears in this list  (See also display-time-match-using-regexps.)")
  32. (defvar display-time-junk-mail-checklist nil "\
  33. *A list of lists of strings.  In each sublist, the first component is the
  34. name of a message field and the rest are values that flag a piece of
  35. junk mail.  If an entry begins with the character ^ it is matched as
  36. a regular expression rather than an exact prefix of the given header 
  37. field.  (See also display-time-match-using-regexps.)  
  38.  
  39. Note: elements of display-time-my-addresses are NOT automatically
  40.       included in display-time-junk-mail-checklist")
  41. (defvar display-time-match-using-regexps nil "\
  42. *When non-nil, elements of 
  43. display-time-junk-mail-checklist and display-time-my-addresses are matched
  44. as regular expressions instead of literal prefixes of header fields.")
  45. (defvar display-time-max-from-length 35 "\
  46. *Truncate sender name to this length in mail announcements")
  47. (defvar display-time-max-to-length 11 "\
  48. *Truncate addressee name to this length in mail announcements")
  49. (defvar display-time-interval 30 "\
  50. *Seconds between updates of time in the mode line.  Also used
  51. as interval for checking incoming mail.")
  52. (defvar display-time-no-file-means-no-mail t "\
  53. *Set this to T if you are on a system which deletes your mail-spool file 
  54. when there is no new mail.")
  55. (defvar display-time-incoming-mail-file nil "\
  56. *User's incoming mail file.  Default is value of environment variable MAIL,
  57. if set;  otherwise /usr/spool/mail/$USER is used.")
  58. (byte-code "└┴!¼é┬┬ç" [boundp display-time-message-separator nil] 2)
  59. (defvar display-time-flush-echo-area nil "\
  60. *If true, then display-time's echo-area message will be 
  61. automatically cleared when display-time-interval has expired.")
  62. (defvar display-time-use-xbiff nil "\
  63. *If set, display-time uses xbiff to announce new mail.")
  64. (byte-code "└┴!¼é┬└ç" [boundp display-time-xbiff-program "xbiff"] 2)
  65. (defvar display-time-xbiff-arg-list nil "\
  66. *List of arguments passed to xbiff.  Useful for setting geometry, etc.")
  67. (defvar display-time-mail-arrived-file nil "\
  68. New mail announcements saved in this file if xbiff used.  Deleted when 
  69. mail is read.  Xbiff is used to monitor existence of this file.
  70. This file will contain the headers (and only the headers) of all of the
  71. messages in your inbox.  If you do not wish this to be readable by others, 
  72. you should name a file here which is in a protected directory.  Protecting
  73. the file itself is not sufficient, because the file gets deleted and
  74. recreated, and emacs does not make it easy to create protected files.")
  75. (defvar display-time-loadst-process nil "\
  76. The process providing time, load, and mail info.")
  77. (defvar display-time-xbiff-process nil "\
  78. The xbiff process used to announce incoming mail.")
  79. (defvar display-time-string nil "\
  80. Time displayed in mode line")
  81. (defvar display-time-mail-buffer-name "*reportmail*" "\
  82. Name of buffer used for announcing mail.")
  83. (defvar display-time-may-need-to-reset t "\
  84. Set to NIL when display-time-total-reset has not been called 
  85. since the last time we changed from having mail in the queue to an empty
  86. queue.")
  87. (defvar display-time-debugging nil "\
  88. *When non-NIL, reportmail records various status information
  89. as it's working.")
  90. (defvar display-time-debugging-delay nil "\
  91. *When non-nil and display-time-debugging is set, sit for this 
  92. long after displaying each debugging message in mode line")
  93. (defvar display-time-debugging-buffer "*Reportmail-Debugging*" "\
  94. Status messages are appended here.")
  95. (defvar display-time-max-debug-info 20000 "\
  96. Maximum size of debugging buffer")
  97. (byte-code "└┴Mê┬├Mê─┼Mç" [display-time-del-file (macro . #[(filename) "└┴\nD├\nDEç" [if file-exists-p filename delete-file] 4]) display-time-debug (macro . #[(mesg &rest args) "└┴┬├─D\"DEç" [if display-time-debugging display-time-debug-mesg append format mesg args] 6]) display-time-init #[nil "¼¥┴┬!«ù┴├!«é─ ë¡ê╞╟!¡â╟P)«ü╚    ¼æ╩ ╠═╬ \"½â╧¬ü╨)    ¼ç╥ ─ D«ë╘╒┴╓!\"ëç" [display-time-incoming-mail-file getenv "MAIL" "USER" user-login-name user-name file-directory-p "/usr/spool/mail/" "" display-time-message-separator t case-fold-search string-match "\\.cmu\\.edu" system-name "" "From " display-time-my-addresses user-full-name display-time-mail-arrived-file expand-file-name ".mail-arrived" "HOME"] 5]] 2)
  98. (fset 'display-time-kill #[nil "½å┴┬├!!ê ½ä┼ !ê¡ä┼!ç" [display-time-debugging display-time-debug-mesg format "display-time-kill" display-time-loadst-process delete-process display-time-xbiff-process] 3 "\
  99. Kill all display-time processes.  Done automatically if display-time
  100. is re-invoked." nil])
  101. (fset 'display-time #[nil "½å┴┬├!!ê─ ê┼è╟ ê╔ÿ¼è\n¼ô╦!¼ì╠═\"ê╬╧!ê╨ ê¼â╥<¼å╙D╘>¼ç╒╓\"╫╪┘!½¢┌├!ë½à▄!ê▌├▐ë$ê▐ ê)¬╝αßΓ \"½îπΣ┼σµτ!%¬îπΦ┼)ΩPτ!$+∞+!êφ+ε\"ê∩+α≡Γ \"½â±¬ü≥\"ê3½»╦4!½à⌡4!ê÷π≈┼8∙4:&;∞;!ê╬╧!êⁿ;!²U¼ä■ !ê*ü@ ç" [display-time-debugging display-time-debug-mesg format "display-time" display-time-init nil process-connection-type display-time-kill display-time-incoming-mail-file "" display-time-no-file-means-no-mail file-exists-p message "Reportmail: mail spool file \"%s\" not found" sit-for 1 beep global-mode-string ("") "  " display-time-string append (display-time-string) "time and load" featurep timer get-timer old delete-timer start-timer display-time-timer-function display-time-interval string-match "18\\.5[0-5]" emacs-version start-process "display-time-loadst" "loadst" "-n" int-to-string "display-time-wakeup" exec-directory "wakeup" display-time-loadst-process process-kill-without-query set-process-sentinel display-time-sentinel set-process-filter "^18\\.5[0-5]" display-time-filter-18-55 display-time-filter-18-57 display-time-use-xbiff display-time-mail-arrived-file delete-file apply "display-time-xbiff" display-time-xbiff-program "-file" display-time-xbiff-arg-list display-time-xbiff-process process-exit-status 0 error "Display time: xbiff failed.  Check xbiff-arg-list" display-time-total-reset] 9 "\
  102. Displays current time, date, load level, and incoming mail status in 
  103. mode line of each buffer (if corresponding user variables are set)." nil])
  104. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mç" [display-time-sentinel #[(proc reason) "½å┴┬├!!ê─!╞>½¼;½Å╚╔\"½ê╩ëöO╦ ê┬╠\"╬╧!ê╨╤─!$ê╥ ç" [display-time-debugging display-time-debug-mesg format "display-time-sentinel" process-status proc (stop exit closed signal) reason string-match "\n?\n*\\'" 0 beep "%s" display-time-string display-time-message "" message "process %s: %s (%s)" display-time-force-redisplay] 6] display-time-filter-18-55 #[(proc string) "½ä┴┬!ê ½å─┼╞!!êG╚V½ç╔╩OG╦V½ô╠═╦#½ï╬ö╩Oë¬h╠╧\"½ë╬ëöTO½Å╠╤\"½à╥ ê¬â╙ ê╠╤\"¡ë½ä¬ü╒½ö╠═\"½ì╬ö╬òO╪Q½è┌ ╬█OP½ö╠▌\"½ì╬ö╬òO╪Q▀ )ç" [display-time-flush-echo-area display-time-message "" display-time-debugging display-time-debug-mesg format "display-time-filter-18-55" string 30 -30 nil 4 string-match "[0-9]+:[0-9][0-9].." 0 "[^0-9][0-9]+:" display-time-announce-mail "Mail" display-time-process-new-mail display-time-total-reset display-time-mail-modeline "Mail " time-string display-time-time " " display-time-day-and-date current-time-string 11 display-time-load "[0-9]+\\.[0-9][0-9]" display-time-string display-time-force-redisplay] 5] display-time-filter-18-57 #[(proc string) "½å┴┬├!!ê ½ì½å┴┬┼!!ê╞╟!ê╚    !¡ë╩╦    !8╠=?½î½à╧ ê¬â╨ ê¡ë½ä¬ü╥½┐╒ ╫╪┘O!ë█Y█V½å█Z╠U½â█┬▌\"┘▐O½â▀¬üαR+!½è╒ ╠╪OP\"½èπΣσŵQ'Φ *ç" [display-time-debugging display-time-debug-mesg format "display-time-filter-18-57" display-time-flush-echo-area "flush echo area" display-time-message "" file-exists-p display-time-incoming-mail-file 7 file-attributes 0 mailp display-time-announce-mail display-time-process-new-mail display-time-total-reset display-time-mail-modeline "Mail " time-string display-time-time current-time-string time read 11 13 hour 12 pm "%d" 16 "pm " "am " display-time-day-and-date display-time-load nil (byte-code "└ @┴U½é┬ç├─└ @\"ç" [load-average 0 "" format "%03d"] 3) ((error "load-error")) " " display-time-string display-time-force-redisplay] 6] display-time-timer-function #[nil "└┴ë\"ç" [display-time-filter-18-57 nil] 3]] 2)
  105. (fset 'display-time-force-redisplay #[nil "è└ qê)┴┬ !ê├─!ç" [other-buffer set-buffer-modified-p buffer-modified-p sit-for 0] 2 "\
  106. Force redisplay of all buffers' mode lines to be considered."])
  107. (defvar display-time-mail-who-from "" "\
  108. Short-form name of sender of last piece of interesting unread mail")
  109. (defvar display-time-mail-modeline "" "\
  110. Terse mail announcement (displayed in modeline)")
  111. (defvar display-time-previous-mail-buffer-max 1 "\
  112. The length of the mail buffer the last time we looked at it")
  113. (defvar display-time-msg-count 0 "\
  114. How many interesting messages have arrived")
  115. (defvar display-time-junk-msg-count 0 "\
  116. How many junk messages have arrived")
  117. (byte-code "└┴!¼é┬┬ç" [boundp display-time-last-message nil] 2)
  118. (fset 'display-time-manual-reset #[nil "½å┴┬├!!ê─ ç" [display-time-debugging display-time-debug-mesg format "Manual reset" display-time-timer-function] 3 "\
  119. Utility function to be called externally to make reportmail notice
  120. that things may have changed."])
  121. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mç" [display-time-total-reset #[nil "½å┴┬├!!ê ¡½┼½å┴┬╞!!ê╟!ë    ½à╩    !ê) ½ï╠!½à╬!ê╧ ç" [display-time-debugging display-time-debug-mesg format "display-time-total-reset" display-time-may-need-to-reset nil "Resetting mail processing" get-buffer display-time-mail-buffer-name mail-buffer kill-buffer display-time-use-xbiff file-exists-p display-time-mail-arrived-file delete-file display-time-reset] 4] display-time-reset #[nil "½å┴┬├!!ê──╟╔\n╦ ═╔!ç" [display-time-debugging display-time-debug-mesg format "display-time-reset" 0 display-time-msg-count display-time-junk-msg-count "Junk mail" display-time-mail-who-from "" display-time-mail-modeline 1 display-time-previous-mail-buffer-max display-time-message] 3] display-time-process-new-mail #[nil "└┬ !└─ë¡ä╚!?¡é╔ï+ç" [t display-time-may-need-to-reset get-buffer display-time-mail-buffer-name nil enable-local-variables inhibit-local-variables mail-buffer verify-visited-file-modtime ((byte-code "è½å┴┬├!!ê ½ä┼ !ê╞!qê╚p!ê╔ ê╩╦╠Åê═ )ç" [display-time-debugging display-time-debug-mesg format "Spool file has changed... rereading..." mail-buffer kill-buffer get-buffer-create display-time-mail-buffer-name buffer-flush-undo erase-buffer nil (insert-file-contents display-time-incoming-mail-file t) ((file-error)) display-time-process-mail-buffer] 3))] 4] display-time-process-mail-buffer #[nil "dW½Æ┴bê├─!!¼â╞ ê)¬â╞ êbê½èè╚╔!qê╩ ê)┴`┴ëë  m¼╞╧╨P┴═#½ç╤öT¬âd}ê╥  ½Å ¼ï ½ä¬ü╒ ~êdU½âd¬âTbê¬7 ½æ╓╫\"½ç┘┴┌\"ê¬â┘ ê-½íè╚╔!qê█ ╤U¼ö▄ed#ê╩ ê½å▀α\"ê)dëç" [display-time-previous-mail-buffer-max nil case-fold-search looking-at regexp-quote display-time-message-separator display-time-reset display-time-use-xbiff get-buffer-create " *reportmail-tmp*" erase-buffer ring-bell junkp end start search-forward "\n" 0 display-time-process-this-message display-time-mail-ring-bell display-time-junk-mail-ring-bell t string-match "Lucid" emacs-version beep reportmail buffer-size append-to-file display-time-mail-arrived-file display-time-last-message display-time-message "%s"] 5] display-time-process-this-message #[nil "½å┴┬├!!ê─ ë½à╞ ê¬â╟ ê╚╔ \n╦R ½ê┴┬═ \"!ê)ç" [display-time-debugging display-time-debug-mesg format "display-time-process-this-message" display-time-junk-message junk-p display-time-process-junk-message display-time-process-good-message "[" display-time-format-msg-count display-time-mail-who-from "] " display-time-mail-modeline "New mode line: %s "] 5]] 2)
  122. (fset 'display-time-junk-message #[nil "½å┴┬├!!ê ┼½ƒ¼¢╚╔@@!@A\"½à╩¬eAë¼a*ç" [display-time-debugging display-time-debug-mesg format "Comparing current message to junk mail checklist" display-time-junk-mail-checklist nil junk checklist display-time-member display-time-get-field t] 4 "\
  123. Check to see whether this message is interesting"])
  124. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mç" [display-time-message #[(&rest message-args) "└┴\n\"├ ─ =ë½ê╔┴╩\"!ê¼àè╦ïê)¡ä╠ÿ?¡à═╬\"*ç" [apply format message-args selected-window minibuffer-window in-echo-area-already str display-time-last-message display-time-debugging display-time-debug-mesg "display-time-message (%s)" ((byte-code "½å┴┬├!!ê─┼ !êed|êcç" [display-time-debugging display-time-debug-mesg format "Overwriting echo area with message" select-window minibuffer-window str] 3)) "" message "%s"] 5] display-time-process-good-message #[nil "½å┴┬├!!ê ┼\\╞╟╚\"    ╞╩╚\" ╞╠╚\"    ╚ÿ½â╚¬à╬    ╧Q╤ \"╤╘ !╒\"╫\"½â╚¬ê╤╘!\"█ ▄╚ÿ½â╚¬à▌▐Q▀░ !½»èΓπ!$p%e&è&bêτΦΘΩ#ê`)+$qêdbê∞%&+#êΦcê-½ê┴┬φ \"!êε∩ \"ê)ë0.ç" [display-time-debugging display-time-debug-mesg format "Formatting message announcement (good message)" display-time-msg-count 1 display-time-get-field "Subject" "" subject "From" from "To" to " (" ")" print-subject display-time-truncate display-time-max-from-length print-from display-time-extract-short-addr 25 short-from display-time-member display-time-my-addresses display-time-max-to-length print-to display-time-format-msg-count "Mail " "to " " " "from " msg display-time-use-xbiff get-buffer-create " *reportmail-tmp*" tmp-buf buf start search-forward "\n\n" nil 0 end insert-buffer-substring "Message: %s" display-time-message "%s" display-time-mail-who-from] 6] display-time-process-junk-message #[nil "½å┴┬├!!ê ┼\\╞╟╚\"    ╞╩╚\" ╞╠╚\"    ╚ÿ½â╚¬à╬    ╧Q╤ \"╤╘ !╒\"╫\"½â╚¬ê╤╘!\"¡½▄ ▌╚ÿ½â╚¬à▐▀Qα░!Γπ!\"ê¡ç┴┬Σ!\"!).ç" [display-time-debugging display-time-debug-mesg format "Formatting message announcement (junk message)" display-time-junk-msg-count 1 display-time-get-field "Subject" "" subject "From" from "To" to " (" ")" print-subject display-time-truncate display-time-max-from-length print-from display-time-extract-short-addr 25 short-from display-time-member display-time-my-addresses display-time-max-to-length print-to display-time-announce-junk-mail-too display-time-format-msg-count "Junk Mail " "to " " " "from " msg display-time-message "%s" "Message: %s"] 6] display-time-format-msg-count #[nil "    \\┬V½æ├!    ─V¡å┼├    !╞Q╟Qç╚ç" [display-time-msg-count display-time-junk-msg-count 1 int-to-string 0 "(" ")" ": " ""] 4] display-time-get-field #[(field &optional default) "└     Ü¼Ä┬ ê├─└     #ê┼╞!êebê╟╔╩ ╠Q═╟#½Ü`═ê╧╨!½ê╤yê═ê¬s`{)¬à«ü╙½è╓╫╪ #!ê*ç" [buffer-name display-time-mail-buffer-name beep message "reportmail bug: processing buffer %s, not %s" sit-for 2 t case-fold-search re-search-forward "^" field ":[ |    ]*" nil start looking-at "\n[     ]" 1 default "<unknown>" result display-time-debugging display-time-debug-mesg format "value of %s field is %s"] 5]] 2)
  125. (fset 'display-time-member #[(e l) "└ë\n¼┐ ¼à─ë¬v¼ê @╞£╟U½ö╚ @    \"½ç ─ë¬\\ A¬V╚╩ @ù!    ù\"½ç ─ë¬D A¬>    *ç" [nil result done l t display-time-match-using-regexps 0 94 string-match e regexp-quote] 4 "\
  126. Is string E matched by an element of list L?
  127. When an element of L begins with ^, match it as a regexp.  Otherwise,
  128. ignore case and match exactly.  If display-time-match-using-regexps is
  129. non-nil, always match using regexps."])
  130. (byte-code "└┴Mê┬├Mç" [display-time-truncate #[(s max) "½ìG    Y½ç┬    O├Pçç" [s max 0 "\\"] 3] display-time-extract-short-addr #[(long-addr) "└┬    ├P \"¼ƒ┬┼ \"¼Ö┬    ╞P \"¼æ┬╟    ╚Q \"¼ê┬    ╚P \"½ê ╔ö╔òO¬ü )ç" ["\\([A-Za-z0-9-_+\\. ]+\\)" name string-match "[ |    ]+<.+>" long-addr ".+(\\(.+\\)).*" "%.+@.+" ".*!" "@.+" 1] 4]] 2)
  131. (defvar display-time-debugging-messages nil "\
  132. When non-NIL, reportmail displays status messages in real time.")
  133. (byte-code "└┴Mê┬├!ç" [display-time-debug-mesg #[(mesg) "½ë┴┬ \"ê─┼!êè╞ïê)¡ë┴┬ \"ê─!ç" [display-time-debugging-messages message "Reportmail: %s" mesg sit-for 1 ((byte-code "└    !qêdbê┬ ├─O┼╟▒êdV½çedZ|ê└ç" [get-buffer-create display-time-debugging-buffer current-time-string 11 16 "  " mesg "\n" display-time-max-debug-info] 4)) display-time-debugging-delay] 3] provide reportmail] 2)
  134.