;ELC ;;; compiled by roland@churchy.gnu.ai.mit.edu on Wed Jul 7 16:47:14 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/mail-utils.el ;;; emacs version 19.16.5. ;;; bytecomp version FSF 2.10 ;;; 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")) (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\"k!q c!b#aux`ۏ`)|D  )\"  ̕#k  # G̕V̕HU̕  ̕#\" ԕ̕#$%#S##%$#+)" [address mail-use-rfc822 require rfc822 mapconcat identity rfc822-addresses ", " 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 1) ((error (byte-code "db" [] 1))) buffer-string "[ ]*(\\([^)\"\\]\\|\\\\.\\|\\\\\n\\)*)" mail-string-delete "[ ]*\"\\([^\"\\]\\|\\\\.\\|\\\\\n\\)*\"[ \n]*" 64 "\\(,\\|\\`\\)[^,]*<\\([^>,]*>\\)" 2 close junk-end junk-beg] 6 "\ 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ʉ   \" _ V> T ѕ#MѕPG   #&\" r 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 "\ 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 !QebT #F` y!$ Ș9Ȃ: `S{Q ) Ș?P ){ #{i #a` y!l `S{)+" [t "^" regexp-quote field-name "[ ]*:[ ]*" name case-fold-search all "" value re-search-forward nil opoint 1 looking-at "[ ]" ", " last] 4 "\ 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 "\"\"\"\"!" [defalias mail-parse-comma-list #[nil "wm'`wx `{\nBww\n*" [nil beg accumulated " " "^," ", "] 2] mail-comma-list-regexp #[(labels) " \"\n #O \", O ŕOQ) " [nil pos string-match "[^ ]" labels 0 "[ ]*$" "[ ]*,[ ]*" "\\|"] 6] mail-rfc822-time-zone #[(time) " !@ !ť WɂťŦ$*" [current-time-zone time 0 sec abs 60 absmin format "%c%02d%02d" 45 43] 6] mail-rfc822-date #[nil "  ! \" ƔƕO ȔȕO ɔɕO ʔʕO ! *" [current-time time current-time-string s string-match "[^ ]+ +\\([^ ]+\\) +\\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\)" 2 " " 1 4 3 mail-rfc822-time-zone] 10] provide mail-utils] 3)