;; Author: Erik Naggum <erik@naggum.no>
;; Keywords: tools, mail, news
+;; Package: mail-utils
;; This file is part of GNU Emacs.
(eval-when-compile
(require 'cl))
-;; Make the byte-compiler shut up.
-(defvar headers)
-
(defun mail-header-extract ()
"Extract headers from current buffer after point.
Returns a header alist, where each element is a cons cell (name . value),
(cons (cdr header) (funcall (cdr rule) (cdr header))))))))
headers)
+;; Advertized part of the interface; see mail-header, mail-header-set.
+(defvar headers)
+
(defsubst mail-header (header &optional header-alist)
"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
(provide 'mailheader)
-;; arch-tag: 6e7aa221-80b5-4b3d-b46f-fd66ab567be0
;;; mailheader.el ends here