;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:46:00 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/mail-utils.el ;;; emacs version 19.28.90.26. ;;; 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 "`/gd/gnu/emacs/19.0/lisp/mail-utils.el' was compiled for Emacs 19")) (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 (#$ . -518)) #@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 (#$ . 713)]) #@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\"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 (#$ . 934)]) (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>\fT\fѕ#MѕPG \f #&\"\fr\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 "[ \n,]+" mail-string-delete "[ , \n]*\\'" "\\s *"] 4 (#$ . 2014)]) #@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 !Q_ #Q`\fy!!uhѝ9u- ȘEȂF\f`{Q ) Ș?[ ) #t #l`\fy!wuhԝu\f`{)+" [t "^" regexp-quote field-name "[ ]*:[ ]*" name case-fold-search all "" value re-search-forward nil opoint 1 looking-at "[ ]" -1 (32 9) ", " last (32 9)] 4 (#$ . 2678)]) (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))