home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / utils / mail-uti.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  3.3 KB  |  36 lines
  1. ;;; compiled by jwz@thalidomide on Tue Jun 30 23:30:29 1992
  2. ;;; from file /cadillac-th/jwz/emacs19/lisp/utils/mail-utils.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-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. (provide 'mail-utils)
  14. (defvar mail-use-rfc822 nil "\
  15. *If non-nil, use a full, hairy RFC822 parser on mail addresses.
  16. Otherwise, (the default) use a smaller, somewhat faster and
  17. often-correct parser.")
  18. (fset 'mail-string-delete #[(string start end) "¼à    ┬ Oç    ┬ O    ─OPç" [end string 0 start nil] 4 "\
  19. Returns a string containing all of STRING except the part
  20. from START (inclusive) to END (exclusive)."])
  21. (fset 'mail-strip-quoted-names #[(address) "½ì┴┬!ê├─┼!╟#ç╚    ╩╦\"ê╠ò╩═╠ò#O╩╬\"½╣è╧╨!qê╤ êcê╥!ê╘bê╒╓╚╫#½ô╪uê┘╚xê`è┌╘!ê`)|ê¬f█ ╤ ê)¬û╩▄\"ë    ½î▌    ╠ò#¬j╠    ╩▐    #ë    ½úG╠òV½Å╠òH▀U½å╠ò    ¬]▌    ╠ò#¬Q╩α\"ë    ½ñ╘òßö╠ò\"#$▌\"S\"#▌$##+¬R)ç" [mail-use-rfc822 require rfc822 mapconcat identity rfc822-addresses address ", " nil pos string-match "\\`[     \n]*" 0 "[     \n]*\\'" "[     ]*(\\([^)\"\\]\\|\\\\.\\|\\\\\n\\)*(" get-buffer-create " *temp*" erase-buffer set-syntax-table lisp-mode-syntax-table 1 search-forward "(" t -1 "     " forward-sexp buffer-string "[     ]*(\\([^)\"\\]\\|\\\\.\\|\\\\\n\\)*)" mail-string-delete "[     ]*\"\\([^\"\\]\\|\\\\.\\|\\\\\n\\)*\"[     \n]*" 64 "\\(,\\|\\`\\)[^,]*<\\([^>,]*>\\)" 2 close junk-end junk-beg] 6 "\
  22. Delete comments and quoted strings in an address list ADDRESS.
  23. Also delete leading/trailing whitespace and replace FOO <BAR> with just BAR.
  24. Return a modified address list."])
  25. (byte-code "└┴!½â    ¼é┬└ç" [boundp rmail-default-dont-reply-to-names "info-"] 2)
  26. (fset 'rmail-dont-reply-to #[(userids) "¼æ    ½à    ┬P¬ü├─┼ !╞PP╟╚Q╔╩ë  ╧\"ë ½⌐ ╤V½à T ╧╥╤ò#½ä╤ò¬âG ╙  #¬L╧╘\"ë ½ê╤ O╧╒\"½ê╤ò╩O¬é,ç" [rmail-dont-reply-to-names rmail-default-dont-reply-to-names "\\|" "" regexp-quote user-original-login-name "\\>" "\\(^\\|,\\)[     \n]*\\([^,\n]*!\\|\\)\\(" "\\)" t nil epos pos case-fold-search match string-match userids 0 "[     \n,]+" mail-string-delete "[ ,    \n]*\\'" "\\s *"] 4 "\
  27. Returns string of mail addresses USERIDS sans any recipients
  28. that start with matches for  rmail-dont-reply-to-names.
  29. Usenet paths ending in an element that matches are removed also."])
  30. (fset 'mail-fetch-field #[(field-name &optional last all) "èebê└┴┬ !─Qebê½╖╚    ╩╦└#½í` ═yê╬╧!¼x    ë╚ÿ½â╚¬ü╨ `S{Q    )¬X    ╚ÿ?¡é    )¬ú╩╦└#¡£½ç╩╦└#¼y` ═yê╬╧!¼x `S{)+ç" [t "^" regexp-quote field-name "[     ]*:[     ]*" name case-fold-search all "" value re-search-forward nil opoint 1 looking-at "[     ]" ", " last] 4 "\
  31. Return the value of the header field FIELD.
  32. The buffer is expected to be narrowed to just the headers of the message.
  33. If 2nd arg LAST is non-nil, use the last such field if there are several.
  34. If 3rd arg ALL is non-nil, concatenate all such fields, with commas between."])
  35. (byte-code "└┴Mê┬├Mç" [mail-parse-comma-list #[nil "└ë├└wêm¼Ü`─└wê├└xê    `{\nB─└wê┼└wê¬c\n*ç" [nil beg accumulated " " "^," ", "] 2] mail-comma-list-regexp #[(labels) "└┬├ \"«ü┼     ┬╞     #O┬╟ \"ë½Ä ┼    O╚ ┼ò└OQ¬j) ç" [nil pos string-match "[^     ]" labels 0 "[     ]*$" "[     ]*,[     ]*" "\\|"] 6]] 2)
  36.