;ELC ;;; compiled by erik@psilocin.gnu.ai.mit.edu on Mon Jul 1 20:01:24 1996 ;;; from file /home/gd/gnu/emacs/19.0/lisp/mailheader.el ;;; emacs version 19.31.4. ;;; 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 "`mailheader.el' was compiled for Emacs 19.29 or later")) (byte-code " B" [headers current-load-list] 2) #@210 Extract headers from current buffer after point. Returns a header alist, where each element is a cons cell (name . value), where NAME is a symbol, and VALUE is the string value of the header having that name. (defalias 'mail-header-extract #[nil "``wwVwgUw`wuwVw\n {!``{C\n uwVW``{\nB\n>\nAj \n#Bp \n@B\fB* b\f," [nil end start top message-headers "^- :" 0 58 " " intern value header mapconcat identity " "] 5 (#$ . 538)]) #@230 Extract headers from current buffer after point, without properties. Returns a header alist, where each element is a cons cell (name . value), where NAME is a symbol, and VALUE is the string value of the header having that name. (defalias 'mail-header-extract-no-properties #[nil " \"" [mapcar #[(elt) "\nAG\nA$\n" [set-text-properties 0 elt nil] 5] mail-header-extract] 3 (#$ . 1041)]) #@335 Apply PARSING-RULES to HEADERS. PARSING-RULES is an alist whose keys are header names (symbols) and whose value is a parsing function. The function takes one argument, a string, and return a list of values, which will destructively replace the value associated with the key in HEADERS, after being prepended with the original value. (defalias 'mail-header-parse #[(parsing-rules headers) ": @@\f2 A:' A\nA A@!2 A\nA A!B) A*\f" [parsing-rules nil rule --dolist-temp--88300 headers header] 5 (#$ . 1444)]) #@352 Return the value associated with header HEADER in HEADER-ALIST. If the value is a string, it is the original value of the header. If the value is a list, its first element is the original value of the header, with any subsequent elements bing the result of parsing the value. If HEADER-ALIST is nil, the dynamically bound variable `headers' is used. (defalias 'mail-header #[(header &optional header-alist) " \nA" [header header-alist headers] 2 (#$ . 1985)]) (put (quote mail-header) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@191 Set the value associated with header HEADER to VALUE in HEADER-ALIST. HEADER-ALIST defaults to the dynamically bound variable `headers' if nil. See `mail-header' for the semantics of VALUE. (defalias 'mail-header-set #[(header value &optional header-alist) "  \n\f \n BC* " [header-alist headers alist header entry value] 4 (#$ . 2543)]) (put (quote mail-header) (quote setf-method) #[(header &optional header-alist) "!!!\n\fDDC\n\f  F+\n\fE+" [gensym "--header--" --header--temp-- "--header-alist--" --header-alist--temp-- "--value--" --value--temp-- header header-alist value mail-header-set mail-header] 7]) #@485 Return a new header alist with MERGE-RULES applied to HEADERS. MERGE-RULES is an alist whose keys are header names (symbols) and whose values are forms to evaluate, the results of which are the new headers. It should be a string or a list of string. The first element may be nil to denote that the formatting functions must use the remaining elements, or skip the header altogether if there are no other elements. The macro `mail-header' can be used to access headers in HEADERS. (defalias 'mail-header-merge #[(merge-rules headers) "\n\"" [mapcar #[(rule) "@A!B" [rule eval] 3] merge-rules] 3 (#$ . 3214)]) (byte-code "! B" [boundp mail-header-format-function #[(header value) "\n!!\f:\f@\fű" [capitalize symbol-name header ": " value "\n"] 4 "Function to format headers without a specified formatting function."] current-load-list] 2) #@616 Use FORMAT-RULES to format HEADERS and insert into current buffer. FORMAT-RULES is an alist whose keys are header names (symbols), and whose values are functions that format the header, the results of which are inserted, unless it is nil. The function takes two arguments, the header symbol, and the value of that header. If the function itself is nil, the default action is to insert the value of the header, unless it is nil. The headers are inserted in the order of the FORMAT-RULES. A key of t represents any otherwise unmentioned headers. A key of nil has as its value a list of defaulted headers to ignore. (defalias 'mail-header-format #[(format-rules headers) "\nA\n\"\"\n@@  ,\nA* =\n @ @ >y @ A ApA \"x \"*AH* AA \" \"*A*c)" [append nil format-rules mapcar car ignore rule --dolist-temp--88307 header header-alist headers value t defaulted --dolist-temp--88308 mail-header-format-function "\n"] 5 (#$ . 4092)]) (provide (quote mailheader))