tl-822.el

   1 ;;; tl-822.el --- RFC 822 parser for GNU Emacs
   2
   3 ;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
   4
   5 ;; Author:   MORIOKA Tomohiko <morioka@jaist.ac.jp>
   6 ;; Keywords: mail, news, RFC 822
   7
   8 ;; This file is part of MU (Message Utilities).
   9
  10 ;; This program is free software; you can redistribute it and/or
  11 ;; modify it under the terms of the GNU General Public License as
  12 ;; published by the Free Software Foundation; either version 2, or (at
  13 ;; your option) any later version.
  14
  15 ;; This program is distributed in the hope that it will be useful, but
  16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18 ;; General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with This program; see the file COPYING.  If not, write to
  22 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  23 ;; Boston, MA 02111-1307, USA.
  24
  25 ;;; Code:
  26
  27 (require 'tl-seq)
  28 (require 'tl-str)
  29 (require 'std11)
  30
  31
  32 (defconst rfc822/RCS-ID
  33   "$Id: tl-822.el,v 7.68 1996-09-14 08:44:17 morioka Exp $")
  34 (defconst rfc822/version (get-version-string rfc822/RCS-ID))
  35
  36
  37 ;;; @ header
  38 ;;;
  39
  40 (defalias 'rfc822/narrow-to-header      'std11-narrow-to-header)
  41 (defalias 'rfc822/get-header-string     'std11-header-string)
  42 (defalias 'rfc822/get-header-string-except 'std11-header-string-except)
  43 (defalias 'rfc822/get-field-names       'std11-collect-field-names)
  44
  45
  46 ;;; @ field
  47 ;;;
  48
  49 (defalias 'rfc822/field-end             'std11-field-end)
  50 (defalias 'rfc822/get-field-body        'std11-field-body)
  51 (defalias 'rfc822/get-field-bodies      'std11-field-bodies)
  52
  53
  54 ;;; @ quoting
  55 ;;;
  56
  57 (defconst rfc822/quoted-pair-regexp "\\\\.")
  58 (defconst rfc822/qtext-regexp
  59   (concat "[^" (char-list-to-string std11-non-qtext-char-list) "]"))
  60 (defconst rfc822/quoted-string-regexp
  61   (concat "\""
  62           (regexp-*
  63            (regexp-or rfc822/qtext-regexp rfc822/quoted-pair-regexp)
  64            )
  65           "\""))
  66
  67 (defalias 'rfc822/wrap-as-quoted-string 'std11-wrap-as-quoted-string)
  68 (defalias 'rfc822/strip-quoted-string   'std11-strip-quoted-string)
  69
  70
  71 ;;; @ unfolding
  72 ;;;
  73
  74 (defalias 'rfc822/unfolding-string 'std11-unfold-string)
  75
  76
  77 ;;; @ lexical analyze
  78 ;;;
  79
  80 (defalias 'rfc822/lexical-analyze 'std11-lexical-analyze)
  81
  82
  83 ;;; @ parser
  84 ;;;
  85
  86 (defalias 'rfc822/parse-address         'std11-parse-address)
  87 (defalias 'rfc822/parse-addresses       'std11-parse-addresses)
  88 (defalias 'rfc822/address-string        'std11-address-string)
  89 (defalias 'rfc822/full-name-string      'std11-full-name-string)
  90 (defalias 'rfc822/extract-address-components
  91   'std11-extract-address-components)
  92
  93
  94 ;;; @ end
  95 ;;;
  96
  97 (provide 'tl-822)
  98
  99 ;;; tl-822.el ends here