comparison lisp/mail/mailheader.el @ 15580:1808d2672d00

(require 'cl) is only necessary when compiling.

15579:690a439bcc0e

;;; mail-header.el --- Mail header parsing, merging, formatting

;; Copyright (C) 1996 by Free Software Foundation, Inc.

;; Author: Erik Naggum <[e-mail]>
;; Keywords: tools, mail, news

;; Boston, MA 02111-1307, USA.

;;; Commentary:

;; This package provides an abstraction to RFC822-style messages, used in
;; mail news, and some other systems.  The simple syntactic rules for such
;; headers, such as quoting and line folding, are routinely reimplemented
;; in many individual packages.  This package removes the need for this
;; redundancy by representing message headers as association lists,
;; offering functions to extract the set of headers from a message, to
;; parse individual headers, to merge sets of headers, and to format a set

;; the other set will be evaluated with the symbols in the first set of
;; headers bound to their respective values.

;;; Code:

(require 'cl)

;; Make the byte-compiler shut up.
(defvar headers)

(defun mail-header-extract ()

		   (funcall mail-header-format-function header value))))))
    (insert "\n")))

(provide 'mailheader)

;;; mail-header.el ends here

15580:1808d2672d00

;;; mailheader.el --- Mail header parsing, merging, formatting

;; Copyright (C) 1996 by Free Software Foundation, Inc.

;; Author: Erik Naggum <[e-mail]>
;; Keywords: tools, mail, news

;; Boston, MA 02111-1307, USA.

;;; Commentary:

;; This package provides an abstraction to RFC822-style messages, used in
;; mail, news, and some other systems.  The simple syntactic rules for such
;; headers, such as quoting and line folding, are routinely reimplemented
;; in many individual packages.  This package removes the need for this
;; redundancy by representing message headers as association lists,
;; offering functions to extract the set of headers from a message, to
;; parse individual headers, to merge sets of headers, and to format a set

;; the other set will be evaluated with the symbols in the first set of
;; headers bound to their respective values.

;;; Code:

(eval-when-compile
  (require 'cl))

;; Make the byte-compiler shut up.
(defvar headers)

(defun mail-header-extract ()

		   (funcall mail-header-format-function header value))))))
    (insert "\n")))

(provide 'mailheader)

;;; mailheader.el ends here