;;; compiled by jimb@wookumz.gnu.ai.mit.edu on Wed May 26 23:16:48 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/mail-utils.el ;;; emacs version 19.8.0. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (require (quote lisp-mode)) (defvar mail-use-rfc822 nil "\ *If non-nil, use a full, hairy RFC822 parser on mail addresses. Otherwise, (the default) use a smaller, somewhat faster, and often correct parser.") (defalias 'mail-string-delete #[(string start end) " O O OP" [end string 0 start nil] 4 "\ Returns a string containing all of STRING except the part from START (inclusive) to END (exclusive)."]) (defalias 'mail-strip-quoted-names #[(address) "?? !!# \"!!#O\"o!q c!b#e!!`ߏ`)\"F  )\"  !#o  # G!V!HU!  !#\" !!!()*(S(#*)#+)" [address mail-use-rfc822 require rfc822 mapconcat identity rfc822-addresses ", " nil pos string-match "\\`[ \n]*" match-end 0 "[ \n]*\\'" "[ ]*(\\([^)\"\\]\\|\\\\.\\|\\\\\n\\)*(" get-buffer-create " *temp*" erase-buffer set-syntax-table lisp-mode-syntax-table 1 search-forward "(" t forward-char -1 skip-chars-backward " " delete-region (forward-sexp 1) ((error (byte-code "db" [] 1))) buffer-string "[ ]*(\\([^)\"\\]\\|\\\\.\\|\\\\\n\\)*)" mail-string-delete "[ ]*\"\\([^\"\\]\\|\\\\.\\|\\\\\n\\)*\"[ \n]*" 64 "\\(,\\|\\`\\)[^,]*<\\([^>,]*>\\)" match-beginning 2 close junk-end junk-beg] 7 "\ Delete comments and quoted strings in an address list ADDRESS. Also delete leading/trailing whitespace and replace FOO with just BAR. Return a modified address list."]) (byte-code "!\n " [boundp rmail-default-dont-reply-to-names "info-"] 2) (defalias 'rmail-dont-reply-to #[(userids) "  P !PPQʉ   \" a V> T !#O!RG   #&\" t 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,]+" match-end mail-string-delete "[ , \n]*\\'" "\\s *"] 5 "\ Returns string of mail addresses USERIDS sans any recipients that start with matches for `rmail-dont-reply-to-names'. Usenet paths ending in an element that matches are removed also."]) (defalias 'mail-fetch-field #[(field-name &optional last all) "eb !QebY #J` !!$  \"<Ȃ= `S\"Q ) \"?U ) #n #f` !!q `S\")+" [t "^" regexp-quote field-name "[ ]*:[ ]*" name case-fold-search all "" value re-search-forward nil opoint forward-line 1 looking-at "[ ]" string= ", " buffer-substring last] 5 "\ Return the value of the header field FIELD-NAME. The buffer is expected to be narrowed to just the headers of the message. If second arg LAST is non-nil, use the last such field if there are several. If third arg ALL is non-nil, concatenate all such fields with commas between."]) (byte-code "MM!" [mail-parse-comma-list #[nil "!m(`!! `\"\nB!!\n*" [nil beg accumulated skip-chars-forward " " "^," skip-chars-backward buffer-substring ", "] 3] mail-comma-list-regexp #[(labels) " \"\n #O \"- O !OQ) " [nil pos string-match "[^ ]" labels 0 "[ ]*$" "[ ]*,[ ]*" "\\|" match-end] 6] provide mail-utils] 2)