;ELC ;;; compiled by kwzh@psilocin.gnu.ai.mit.edu on Sun Jul 7 20:02:04 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/mail-utils.el ;;; emacs version 19.31.91.1. ;;; 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.29"))) (error "`mail-utils.el' was compiled for Emacs 19.29 or later")) (require (quote lisp-mode)) #@148 *If non-nil, use a full, hairy RFC822 parser on mail addresses. Otherwise, (the default) use a smaller, somewhat faster, and often correct parser. (defvar mail-use-rfc822 nil (#$ . -513)) (defalias 'mail-file-babyl-p #[(file) "!Î\nq $!+" [generate-new-buffer " *rmail-file-p*" buf ((kill-buffer buf)) insert-file-contents file nil 0 100 looking-at "BABYL OPTIONS:"] 5]) #@102 Returns a string containing all of STRING except the part from START (inclusive) to END (exclusive). (defalias 'mail-string-delete #[(string start end) " O O OP" [end string 0 start nil] 4 (#$ . 904)]) #@173 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. (defalias 'mail-strip-quoted-names #[(address) " !!# \"̕̕#O\"i!q c!b#_ux`ۏ`)|B  )~\" ~ ̕#i  # 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 "\\(,\\s-*\\|\\`\\)[^,]*<\\([^>,]*>\\)" 2 close junk-end junk-beg] 6 (#$ . 1125)]) (byte-code "!\n \f" [boundp rmail-default-dont-reply-to-names "info-"] 2) #@184 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 'rmail-dont-reply-to #[(userids) "  P !PPQʉ \f \"\f^\fV=Ҕ\fѕ#LѕOG \f #&\"\fq\fO\"ѕO," [rmail-dont-reply-to-names rmail-default-dont-reply-to-names "\\|" "" regexp-quote user-login-name "\\>" "\\(^\\|,\\)[ \n]*\\([^,\n]*!\\|\\)\\(" "\\)" t nil epos pos case-fold-search match string-match userids 0 2 ",[ \n]+" mail-string-delete "[ , \n]*\\'" "\\s *"] 4 (#$ . 2205)]) #@279 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. (defalias 'mail-fetch-field #[(field-name &optional last all) "eb !QY #K`\fy!!u\fx Ș>Ȃ?\f`\"Q ) Ș?U ) #n #f`\fy!qu\fx\f`\")+" [t "^" regexp-quote field-name "[ ]*:[ ]*" name case-fold-search all "" value re-search-forward nil opoint 1 looking-at "[ ]" -1 " " ", " buffer-substring-no-properties last] 5 (#$ . 2869)]) (defalias 'mail-parse-comma-list #[nil "wm'`wx `{\nBww\n*" [nil beg accumulated " " "^," ", "] 2]) (defalias 'mail-comma-list-regexp #[(labels) "\f\"\n\f \f #O\f\",\f O\fŕOQ)\f" [nil pos string-match "[^ ]" labels 0 "[ ]*$" "[ ]*,[ ]*" "\\|"] 6]) (defalias 'mail-rfc822-time-zone #[(time) " !@ !ť WɂťŦ$*" [current-time-zone time 0 sec abs 60 absmin format "%c%02d%02d" 45 43] 6]) (defalias '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 (quote mail-utils))