;ELC ;;; compiled by jwz@thalidomide on Sat May 21 06:34:03 1994 ;;; from file /th/jwz/emacs19/lisp/vm/vm-summary.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.")) (fset 'vm-summary-mode #[nil "  \n;\n  G\"!!!" ["VM Summary" mode-name vm-summary-mode major-mode vm-mode-line-format mode-line-format t buffer-read-only nil vm-summary-pointer vm-summary-arrow "" vm-summary-=> make-string 32 vm-summary-no-=> truncate-lines use-local-map vm-summary-mode-map run-hooks vm-summary-mode-hook vm-summary-mode-hooks] 3 "\ Major mode for VM folder summaries. This major mode uses the same keymap as vm-mode. See the vm-mode documentation for a list of available commands."]) (put 'vm-summary-mode 'mode-class 'special) (fset 'vm-summarize #[(&optional display) "!!q p \"! q!!!p!p!) )!* C$ډC$ " [vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-summary-buffer vm-folder-read-only read-only b get-buffer-create format "%s Summary" abbrev-mode 0 auto-fill-mode fboundp buffer-disable-undo buffer-flush-undo x vm-summary-mode vm-set-summary-redo-start-point t display vm-display (vm-summarize vm-summarize-other-frame) this-command nil (vm-summarize vm-summarize-other-frame) vm-update-summary-and-mode-line] 5 "\ Summarize the contents of the folder in a summary buffer. The format is as described by the variable vm-summary-format. Generally one line per message is most pleasing to the eye but this is not mandatory." "p"]) (fset 'vm-summarize-other-frame #[(&optional display) " \n!" [vm-goto-new-frame vm-summarize display] 2 "\ Like vm-summarize, but run in a newly created frame." "p"]) (byte-code "MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM@AMBCMDEMFGMHIMJKMLMMNOMPQMRSMTUMVWMXYMZ[M\\]M^_M`aM" [vm-do-summary #[(&optional start-point) " !Ʀ\\ \n    q ю @HH @HHb`d|db   @! @H`Ic @ @!\" @H`I A \nT\n UB\n\":\n Y!   @H  @HH“I @H  @HH“I A R)!+\n Y!-" [start-point vm-message-list nil 0 vm-abs random 11 10 summary modulus n mp m-list vm-summary-buffer buffer-modified-p modified buffer-read-only ((set-buffer-modified-p modified)) 1 3 erase-buffer vm-summary-pointer vm-su-summary vm-summary-no-=> vm-tokenized-summary-insert 4 message "Generating summary... %d" "Generating summary markers... " make-marker run-hooks vm-summary-redo-hook "Generating summary... done"] 6] vm-do-needed-summary-rebuild #[nil " \":!@!ʼn @!ʼn" [vm-summary-redo-start-point vm-summary-buffer vm-copy-local-variables vm-summary-show-threads vm-do-summary nil vm-message-pointer vm-set-summary-pointer vm-need-summary-pointer-update] 3] vm-update-message-summary #[(m) "  HH HH!ފ ! HH!q  \nˎ HHb ! c  c !\"` HH|  HH`#.*" [buffer-modified-p nil summary modified m 1 3 marker-buffer vm-su-summary selected buffer-read-only ((set-buffer-modified-p modified)) looking-at vm-summary-no-=> t vm-summary-overlay vm-summary-delete-overlay vm-summary-=> vm-tokenized-summary-insert 4 vm-summary-highlight-face vm-summary-highlight-region] 4] vm-set-summary-pointer #[(m) "!pƎǎq  !\n  HHbcG!  HHb ֎cG!*G[uHHHH#  !." [vm-summary-buffer vm-get-buffer-window nil old-window w vm-sbe-buffer ((byte-code "p=!q" [vm-sbe-buffer buffer-name] 2)) ((byte-code "!" [old-window select-window] 2)) selected-window select-window buffer-read-only vm-summary-pointer 1 3 vm-summary-no-=> delete-char vm-summary-=> vm-summary-overlay vm-summary-delete-overlay m buffer-modified-p modified ((set-buffer-modified-p modified)) vm-summary-highlight-face vm-summary-highlight-region 4 vm-auto-center-summary run-hooks vm-summary-pointer-update-hook] 4] vm-summary-highlight-region #[(start end face) "!\n \" #!\n \" #" [fboundp make-overlay start end vm-summary-overlay overlay-put face make-extent set-extent-property] 4] vm-summary-delete-overlay #[nil "! !! !)" [vm-summary-overlay o nil fboundp delete-overlay delete-extent] 2] vm-auto-center-summary #[nil "=!?!" [vm-auto-center-summary t one-window-p recenter (4)] 2] vm-sprintf #[(format-variable message &optional tokenize) "NJ= \" N!)" [format-variable vm-compiled-format vm-compile-format tokenize message vm-su-message eval vm-format-sexp] 3] vm-tokenized-summary-insert #[(message tokens) ";c@;\nc\n= HHc\n= !c\n=  ! !_\"A;)" [tokens nil token number message 1 mark vm-su-mark thread-indent vm-summary-show-threads natnump vm-summary-thread-indent-level insert-char 32 vm-th-thread-indention] 6] vm-compile-format #[(format-variable &optional tokenize) "J \n !  r •#r ϔH>Z UDB UDB UDB UDB UDB UDB UDB UDB UDB U%DB UDB UDB UDB UDB U%DB UDB UDB UDB U ϔTϔ\\OP!DEB U@DB AUBDB CUDDB EU%FGDB HI@J O!E K@J O!E LM@J NNO!E OP ”OBBQ ”OBB•$   GOBR ST\"BB%O?C CUV #UWB#. " [format-variable nil 0 conv-spec token last-match-end sexp-fmt sexp list done case-fold-search format store-match-data string-match "%\\(-\\)?\\([0-9]+\\)?\\(\\.\\(-?[0-9]+\\)\\)?\\([aAcdfFhHiIlLmMnstTwyz*%]\\|U[A-Za-z]\\)" 5 (97 65 99 100 102 70 104 72 105 76 73 108 77 109 110 115 116 84 85 119 121 122 42) 97 vm-su-attribute-indicators vm-su-message 65 vm-su-attribute-indicators-long 99 vm-su-byte-count 100 vm-su-monthday 102 vm-su-interesting-from 70 vm-su-interesting-full-name 104 vm-su-hour 72 vm-su-hour-short 105 vm-su-message-id 73 tokenize 'thread-indent vm-su-thread-indent 108 vm-su-line-count 76 vm-su-labels 109 vm-su-month 77 vm-su-month-number 110 'number vm-padded-number-of 115 vm-su-subject 84 vm-su-to-names 116 vm-su-to 85 vm-run-user-summary-function quote intern "vm-summary-function-" 2 119 vm-su-weekday 121 vm-su-year 122 vm-su-zone 42 'mark vm-su-mark 1 vm-left-justify-string string-to-int vm-right-justify-string 3 vm-truncate-string 4 "" "%s" "%%" t apply concat put vm-compiled-format vm-format-sexp] 10] vm-get-header-contents #[(message header-name-regexp) " QHHJHHJHHq~HHb !#ʔb )\n\n Qa \\*\n+" [nil regexp contents "^\\(" header-name-regexp "\\)" message 1 5 9 0 t case-fold-search re-search-forward vm-text-of vm-match-header ", " vm-matched-header-contents] 4] vm-left-justify-string #[(string width) "G Y GZ\"P" [string width make-string 32] 4] vm-right-justify-string #[(string width) "G Y GZ\"P" [string width make-string 32] 3] vm-truncate-string #[(string width) "G X W O O" [string width 0 nil] 3] vm-su-attribute-indicators #[(m) "HHªHHĪHHƪHHɪHH˪HHͪHHϪHHѪHHӪR" [m 2 "D" 0 "N" 1 "U" " " 3 "F" 5 "W" 4 "R" 6 "Z" 8 "B" 7 "E"] 5] vm-su-attribute-indicators-long #[(m) "HHªHHĪHHƪHHɪHH˪HHͪHHϪHHѪHHӪǰ" [m 2 "D" 0 "N" 1 "U" " " 4 "r" 6 "z" 8 "b" 3 "f" 5 "w" 7 "e"] 8] vm-su-byte-count #[(m) "HHHHHJHHHHJ!Z!I" [m 3 0 int-to-string 1 5 4 vm-text-of] 7] vm-su-weekday #[(m) "HH!HH" [m 3 1 vm-su-do-date] 2] vm-su-monthday #[(m) "HH!HH" [m 3 2 vm-su-do-date] 2] vm-su-month #[(m) "HH!HH" [m 3 vm-su-do-date] 2] vm-su-month-number #[(m) "HH!HH" [m 3 15 vm-su-do-date] 2] vm-su-year #[(m) "HH!HH" [m 3 4 vm-su-do-date] 2] vm-su-hour-short #[(m) " !GV\nO\n)" [vm-su-hour m string 5 0] 4] vm-su-hour #[(m) "HH!HH" [m 3 5 vm-su-do-date] 2] vm-su-zone #[(m) "HH!HH" [m 3 6 vm-su-do-date] 2] vm-su-mark #[(m) "HHÇć" [m 1 2 "*" " "] 2] vm-grok-From_-date #[(message) "HH=?HHJHHq~HHb!{+" [message 1 7 mmdf 5 9 0 nil case-fold-search looking-at "From [^ \n]*[ ]+\\([^ \n].*\\)"] 2] vm-parse-date #[(date) " \n \"ϔϕO \"ϔϕO \"ϔϕO\"\"\"\"ϔϕO #וؔOϕ \" P` GW \nU P I\nI IIII. " ["" nil t case-fold-search string start timezone hour year month monthday weekday string-match "sun\\|mon\\|tue\\|wed\\|thu\\|fri\\|sat" date 0 "jan\\|feb\\|mar\\|apr\\|may\\|jun\\|jul\\|aug\\|sep\\|oct\\|nov\\|dec" "[0-9]?[0-9]:[0-9][0-9]\\(:[0-9][0-9]\\)?" "[^a-z][+---][0-9][0-9][0-9][0-9]" "e[ds]t\\|c[ds]t\\|p[ds]t\\|m[ds]t" "ast\\|nst\\|met\\|eet\\|jst\\|bst\\|ut" "gmt\\([+---][0-9]+\\)?" "\\(\\`\\|[^:+---0-9]\\|[a-z]-\\)[0-9]+\\(\\'\\|[^:]\\)" 1 2 "\\`[4-9]." "19" 3 vm-parse-date-workspace 4 5] 9] vm-su-do-date #[(m) "\"!HIHIHIHIHIHIHIs\n\"̔H\n̔̕OIHIH\nɔɕOI\nΔΕO\"H\nϔϕOIHHGUHHHH>֪HHPIH\nДЕOIH\nؔؕOIs\n\"H\nʔʕOI\n̔̕O\"H\nɔɕOIH\nΔΕOIH\nϔϕOIДH\nДЕOI\n!H ԜIH ʜI ̜\"H ɜIH ΜIH ϜI+HHHH\"HHHPIHHHH\"HHIHH\"HHHPI" [t nil date vector case-fold-search vm-get-header-contents m "Date:" vm-grok-From_-date 3 1 "" 2 15 4 5 6 string-match "\\(\\([a-z][a-z][a-z]\\),\\)?[ \n]*\\([0-9][0-9]?\\)[ \n---]*\\([a-z][a-z][a-z]\\)[ \n---]*\\([0-9]*[0-9][0-9]\\)[ \n]*\\([0-9:]+\\)[ \n]*\\([a-z][a-z]?[a-z]?\\|[---+][0-9][0-9][0-9][0-9]\\)" vm-su-do-month 0 (55 56 57) "19" "20" 7 "\\([a-z][a-z][a-z]\\)[ \n]*\\([a-z][a-z][a-z]\\)[ \n]*\\([0-9][0-9]?\\)[ \n]*\\([0-9:]+\\)[ \n]*\\([0-9][0-9][0-9][0-9]\\)[ \n]*\\([a-z][a-z]?[a-z]?\\|[---+][0-9][0-9][0-9][0-9]\\)?" vm-parse-date "\\`[0-9]:" "0" "\\`0[0-9]\\'" 32 "\\`[0-9]\\'" " "] 6] vm-su-do-month #[(m month-abbrev) " \n\" H A@I H 8I HI HI)" [assoc month-abbrev vm-month-alist val m 3 15 2 ""] 5] vm-run-user-summary-function #[(function message) "HHJHHq~HHHH}!+" [message 1 5 9 0 4 function] 3] vm-su-full-name #[(m) "HH!HH" [m 3 7 vm-su-do-author] 2] vm-su-interesting-full-name #[(m) " !\" !P !) !" [vm-summary-uninteresting-senders nil case-fold-search string-match vm-su-from m vm-summary-uninteresting-senders-arrow vm-su-to-names vm-su-full-name] 4] vm-su-from #[(m) "HH!HH" [m 3 8 vm-su-do-author] 2] vm-su-interesting-from #[(m) " !\" !P !) !" [vm-summary-uninteresting-senders nil case-fold-search string-match vm-su-from m vm-summary-uninteresting-senders-arrow vm-su-to] 4] vm-grok-From_-author #[(message) "=?\nHHq~\nHHb!ÔÕ{+" [vm-folder-type mmdf message 1 9 0 nil case-fold-search looking-at "From \\([^ \n]+\\)"] 2] vm-su-do-author #[(m) " \" \" !\n!A@@\"͔͕O HI HI+" [vm-get-header-contents m "Full-Name:" "From:" vm-grok-From_-author nil pair from full-name "???" vm-chop-full-name-function string-match "\\`\"\\([^\"]+\\)\"\\'" 1 3 7 8] 5] vm-default-chop-full-name #[(address) "\"ƔƔƕOǔǕO\"ǔǔǕOƔƕO\n *D" [address nil full-name from string-match "\\`[ \n]*\\([^< \n]+\\([ \n]+[^< \n]+\\)*\\)?[ \n]*<\\([^>]+\\)>[ \n]*\\'" 1 3 "\\`[ \n]*\\(\\(\"[^\"]+\"\\|[^\"( \n]\\)+\\)[ \n]*(\\([^ \n]+\\([ \n]+[^ \n]+\\)*\\)?)[ \n]*\\'"] 3] vm-choose-chop-full-name-function #[(address) "Ǐ @A @j Af \n#   !+" [(("kyle@uunet.uu.net" nil "kyle@uunet.uu.net") ("c++std=lib@inet.research.att.com" nil "c++std=lib@inet.research.att.com") ("\"Piet.Rypens\" " "Piet Rypens" "rypens@reks.uia.ac.be") ("makke@wins.uia.ac.be (Marc.Gemis)" "Marc Gemis" "makke@wins.uia.ac.be")) nil result failed test-data c (byte-code " @@!" [mail-extract-address-components test-data] 2) ((error c)) error "mail-extr.el failed tests: %s %s" mail-extract-address-components vm-chop-full-name-function address] 5] vm-su-do-recipients #[(m) "\n\"\n\" \n\"  Q  ! !\n@Ҙ\n@\"Ք\n@ՔՕOB\n@֔֕OB\n@\"\n@ؔؕOB\n@B\nA1\nH#I\nH#I." [t nil list all cc to addresses names mail-use-rfc822 vm-get-header-contents m "To:" "Apparently-To:" user-login-name "Cc:" ", " rfc822-addresses vm-parse-addresses "" string-match "^\\(\\([^<]+[^ \n]\\)[ \n]+\\)?<\\([^>]+\\)>" 2 3 "[-]*(\\([^)]+\\))[-]*" 1 13 mapconcat identity 14] 8] vm-su-to #[(m) "HH!HH" [m 3 13 vm-su-do-recipients] 2] vm-su-to-names #[(m) "HH!HH" [m 3 14 vm-su-do-recipients] 2] vm-su-message-id #[(m) "HHH\"HHJHHq~ɏ* !!QI" [m 3 9 vm-get-header-contents "Message-Id:" 1 5 nil (byte-code " HHJ! HHJHH{!Q" [""] 5) ((error)) "<" int-to-string vm-abs random "@toto.iv>"] 6] vm-su-line-count #[(m) "HHHŠHHJHHq~HHJ!HHJHH\"!*I" [m 3 10 1 5 9 int-to-string count-lines vm-text-of 0 4] 7] vm-su-subject #[(m) "HHH\" #Ik*I" [m 3 11 vm-get-header-contents "Subject:" "" nil i subject vm-summary-subject-no-newlines string-match "\n" 32] 6] vm-su-summary #[(m) " ! HHJ HH̊ !! q H #I HH) HH !! q H #I HH)" [vm-virtual-message-p m 4 1 15 vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-sprintf vm-summary-format t 3 18] 6] vm-fix-my-summary!!! #[nil "!!q !  @HI @! @! A c! )!" [vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty message "Fixing your summary..." vm-message-list mp 3 18 nil vm-mark-for-summary-update vm-stuff-attributes set-buffer-modified-p t vm-update-summary-and-mode-line "Fixing your summary... done"] 4 nil nil] vm-su-thread-indent #[(m) " ! ! _\"Ƈ" [natnump vm-summary-thread-indent-level make-string vm-thread-indention m 32 ""] 3] vm-su-labels #[(m) "HHHHH#IHH" [m 4 mapconcat identity 3 ","] 6]] 2)