From 52a059b50235867ccb029d7143d7eb15bebe2b7f Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 13 Feb 1998 09:59:42 +0000 Subject: [PATCH] Delete because it is not used. --- tl-822.el | 99 ------------------------------------------------------------- 1 file changed, 99 deletions(-) delete mode 100644 tl-822.el diff --git a/tl-822.el b/tl-822.el deleted file mode 100644 index 97d56a7..0000000 --- a/tl-822.el +++ /dev/null @@ -1,99 +0,0 @@ -;;; tl-822.el --- RFC 822 parser for GNU Emacs - -;; Copyright (C) 1995,1996 Free Software Foundation, Inc. - -;; Author: MORIOKA Tomohiko -;; Keywords: mail, news, RFC 822 - -;; This file is part of MU (Message Utilities). - -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2, or (at -;; your option) any later version. - -;; This program is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with This program; see the file COPYING. If not, write to -;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Code: - -(require 'tl-seq) -(require 'tl-str) -(require 'std11) - - -(defconst rfc822/RCS-ID - "$Id: tl-822.el,v 7.68 1996-09-14 08:44:17 morioka Exp $") -(defconst rfc822/version (get-version-string rfc822/RCS-ID)) - - -;;; @ header -;;; - -(defalias 'rfc822/narrow-to-header 'std11-narrow-to-header) -(defalias 'rfc822/get-header-string 'std11-header-string) -(defalias 'rfc822/get-header-string-except 'std11-header-string-except) -(defalias 'rfc822/get-field-names 'std11-collect-field-names) - - -;;; @ field -;;; - -(defalias 'rfc822/field-end 'std11-field-end) -(defalias 'rfc822/get-field-body 'std11-field-body) -(defalias 'rfc822/get-field-bodies 'std11-field-bodies) - - -;;; @ quoting -;;; - -(defconst rfc822/quoted-pair-regexp "\\\\.") -(defconst rfc822/qtext-regexp - (concat "[^" (char-list-to-string std11-non-qtext-char-list) "]")) -(defconst rfc822/quoted-string-regexp - (concat "\"" - (regexp-* - (regexp-or rfc822/qtext-regexp rfc822/quoted-pair-regexp) - ) - "\"")) - -(defalias 'rfc822/wrap-as-quoted-string 'std11-wrap-as-quoted-string) -(defalias 'rfc822/strip-quoted-string 'std11-strip-quoted-string) - - -;;; @ unfolding -;;; - -(defalias 'rfc822/unfolding-string 'std11-unfold-string) - - -;;; @ lexical analyze -;;; - -(defalias 'rfc822/lexical-analyze 'std11-lexical-analyze) - - -;;; @ parser -;;; - -(defalias 'rfc822/parse-address 'std11-parse-address) -(defalias 'rfc822/parse-addresses 'std11-parse-addresses) -(defalias 'rfc822/address-string 'std11-address-string) -(defalias 'rfc822/full-name-string 'std11-full-name-string) -(defalias 'rfc822/extract-address-components - 'std11-extract-address-components) - - -;;; @ end -;;; - -(provide 'tl-822) - -;;; tl-822.el ends here -- 1.7.10.4