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.64 1996-09-08 17:59:45 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/linear-white-space-regexp "\\(\n?[ \t]\\)+")
  58 (defconst rfc822/quoted-pair-regexp "\\\\.")
  59 (defconst rfc822/qtext-regexp
  60   (concat "[^" (char-list-to-string rfc822/non-qtext-char-list) "]"))
  61 (defconst rfc822/quoted-string-regexp
  62   (concat "\""
  63           (regexp-*
  64            (regexp-or rfc822/qtext-regexp rfc822/quoted-pair-regexp)
  65            )
  66           "\""))
  67
  68 (defun rfc822/strip-quoted-pair (str)
  69   (let ((dest "")
  70         (i 0)
  71         (len (length str))
  72         chr flag)
  73     (while (< i len)
  74       (setq chr (elt str i))
  75       (if (or flag (not (eq chr ?\\)))
  76           (progn
  77             (setq dest (concat dest (char-to-string chr)))
  78             (setq flag nil)
  79             )
  80         (setq flag t)
  81         )
  82       (setq i (+ i 1))
  83       )
  84     dest))
  85
  86 (defun rfc822/strip-quoted-string (str)
  87   (rfc822/strip-quoted-pair
  88    (let ((max (- (length str) 1))
  89          )
  90      (if (and (eq (elt str 0) ?\")
  91               (eq (elt str max) ?\")
  92               )
  93          (substring str 1 max)
  94        str)
  95      )))
  96
  97
  98 ;;; @ unfolding
  99 ;;;
 100
 101 (defalias 'rfc822/unfolding-string 'std11-unfold-string)
 102
 103
 104 ;;; @ lexical analyze
 105 ;;;
 106
 107 (defalias 'rfc822/lexical-analyze 'std11-lexical-analyze)
 108
 109
 110 ;;; @ parser
 111 ;;;
 112
 113 (defalias 'rfc822/parse-address         'std11-parse-address)
 114 (defalias 'rfc822/parse-addresses       'std11-parse-addresses)
 115 (defalias 'rfc822/address-string        'std11-address-string)
 116 (defalias 'rfc822/full-name-string      'std11-full-name-string)
 117 (defalias 'rfc822/extract-address-components
 118   'std11-extract-address-components)
 119
 120
 121 ;;; @ end
 122 ;;;
 123
 124 (provide 'tl-822)
 125
 126 ;;; tl-822.el ends here