tm 7.80.

diff --git a/ChangeLog b/ChangeLog
index 3fc1789..20ec0de 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,237 @@
+Sat Aug 31 15:08:42 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tl: Version 7.61 was released.
+
+Fri Aug 30 16:12:22 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tl-list.el (list*): New function.
+
+       * std11.el (std11-find-field-body): New function.
+
+Fri Aug 30 15:14:30 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * emu-xemacs.el (next-visible-point): fixed. (cf. [tm-en:719])
+
+       * install.el (install-file): check write
+       permission. (cf. [bug-tm-en:720])
+
+Fri Aug 30 06:11:58 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * std11.el (std11-addr-to-string): Add DOC-string.
+       (std11-address-string): Add DOC-string.
+       (std11-full-name-string): Add DOC-string.
+
+Fri Aug 30 04:25:34 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * mu-cite.el (mu-cite/get-field-value): Function
+       `std11-find-field-body' was renamed to `std11-field-body'.
+
+       * mu-cite.el (mu-cite/get-field-value-method-alist): Function
+       `std11-find-field-body' was renamed to `std11-field-body'.
+
+       * tl-822.el (rfc822/get-field-body): Function
+       `std11-find-field-body' was renames to `std11-field-body'.
+       (rfc822/get-field-bodies): Function `std11-find-field-bodies' was
+       renames to `std11-field-bodies'.
+
+       * std11.el (std11-field-body): Renamed from
+       `std11-find-field-body'.
+       (std11-field-bodies): Renamed from `std11-find-field-bodies'.
+
+Wed Aug 28 22:52:29 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * std11.el (std11-parse-addresses-string): New function.
+
+       * mu-cite.el: Use std11.el instead of tl-822.el.
+
+Wed Aug 28 21:06:59 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * std11.el (std11-full-name-string): New function.
+
+       * tl-822.el (rfc822/full-name-string): New alias for
+       `std11-full-name-string'; moved to std11.el.
+
+       * std11.el (std11-addr-to-string): eliminate comments.
+
+       * std11.el (std11-addr-to-string): New function; moved from
+       tl-822.el.
+       (std11-address-string): New function; moved from tl-822.el.
+
+       * tl-822.el (rfc822/address-string): New aliases for
+       `std11-address-string'; moved to std11.el.
+
+       * std11.el (std11-parse-address-string): moved from
+       std11-parse.el.
+
+       * std11-parse.el: Function `std11-parse-address-string' was moved
+       to std11.el.
+
+Wed Aug 28 20:45:00 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * TL-ELS: Add std11.el and std11-parse.el.
+
+       * tl-822.el (rfc822/extract-address-components): Use function
+       `std11-parse-address-string'.
+
+       * std11.el (std11-parse-address-string): Add as autoload function.
+
+       * std11-parse.el (std11-parse-address-string): New function.
+
+Wed Aug 28 20:34:53 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * std11-parse.el: Parser were moved from tl-822.el and renamed to
+       `std11-*'.
+
+       * std11.el (std11-parse-address, std11-parse-addresses): Add as
+       autoload function.
+
+       * tl-822.el: Parser were moved to std11-parse.el and renamed to
+       `std11-*'.
+       (rfc822/parse-address): New aliases for `std11-parse-address'.
+       (rfc822/parse-addresses): New aliases for `std11-parse-addresses'.
+
+Wed Aug 28 18:18:03 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * std11.el: Remove autoload for `std11-analyze-*'.
+       Add `std11-lexical-analyze' as autoload function of std11-parse.
+
+Wed Aug 28 18:15:17 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tl-822.el: Alias `rfc822/analyze-spaces',
+       `rfc822/analyze-special', `rfc822/analyze-atom',
+       `rfc822/analyze-quoted-string', `rfc822/analyze-domain-literal',
+       and `rfc822/analyze-comment' were abolished.
+
+Wed Aug 28 18:12:56 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tl-822.el (rfc822/lexical-analyze): New alias for
+       `std11-lexical-analyze'; moved to std11-parse.el.
+
+       * std11-parse.el (std11-lexical-analyze): New function.
+
+       * tl-822.el (rfc822/analyze-comment): New alias; new
+       implementation.
+
+       * std11-parse.el (std11-check-enclosure): New function; changed
+       from `std11-analyze-enclosure'.
+       (std11-analyze-quoted-string): Use function
+       `std11-check-enclosure'.
+       (std11-analyze-domain-literal): Use function
+       `std11-check-enclosure'.
+       (std11-analyze-comment): New function.
+
+       * tl-822.el (rfc822/analyze-domain-literal): New alias.
+
+       * std11-parse.el (std11-analyze-domain-literal): New function.
+
+       * std11-parse.el (std11-analyze-enclosure): New function.
+       (std11-analyze-quoted-string): New implementation.
+
+       * std11-parse.el (std11-analyze-quoted-string): New function.
+
+       * tl-822.el (rfc822/analyze-quoted-string): New alias for
+       `std11-analyze-quoted-string'; moved to std11-parse.el.
+
+Wed Aug 28 17:16:30 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tl-822.el (rfc822/analyze-atom): New alias for
+       `std11-analyze-atom'; New implementation.
+
+       * std11-parse.el (std11-analyze-atom): New function.
+
+       * std11.el: Add `std11-analyze-special' as autoload function of
+       std11-parse.
+
+       * std11-parse.el (std11-analyze-special): New function.
+
+       * tl-822.el (rfc822/analyze-special):
+       New alias for `std11-analyze-special'; moved
+       to std11-parse.el.
+
+       * std11.el: autoload std11-parse for `std11-analyze-spaces'.
+
+       * std11-parse.el: New module.
+
+       * tl-822.el (rfc822/analyze-spaces): New alias for
+       `std11-analyze-spaces'; moved to std11-parse.el.
+
+Wed Aug 28 15:39:00 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tl-822.el, std11.el: Function `std11-field-names' was renamed to
+       `std11-collect-field-names'.
+
+Wed Aug 28 15:26:10 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tl-822.el, std11.el: Function `std11-field-bodies' was renamed
+       to `std11-find-field-bodies'.
+
+Wed Aug 28 15:18:03 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * mu-cite.el
+       (mu-cite/get-field-value-method-alist, mu-cite/get-field-value):
+       Function `std11-field-body' was renamed to
+       `std11-find-field-body'.
+
+       * tl-822.el, std11.el: Function `std11-field-body' was renamed to
+       `std11-find-field-body'.
+
+Wed Aug 28 15:11:19 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * std11.el (std11-unfold-string): New function.
+
+Wed Aug 28 14:40:33 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tl-822.el (rfc822/unfolding-string): New alias for
+       `std11-unfold-string'; moved to std11.el.
+
+Wed Aug 28 14:17:21 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * std11.el (std11-field-body): fixed.
+
+       * mu-cite.el: Use function `std11-field-body' instead of
+       `rfc822/get-field-body'.
+
+       * x-face-mule.el: Use std11.el.
+
+       * std11.el (std11-field-bodies): New function.
+
+       * tl-822.el (rfc822/get-field-bodies): New alias for
+       `std11-field-bodies'; moved to std11.el.
+
+       * tl-822.el: Constant `rfc822/field-name-regexp' was abolished.
+
+       * tl-822.el: Constant `rfc822/field-top-regexp' was abolished.
+
+       * std11.el (std11-field-names): New function.
+
+       * tl-822.el (rfc822/get-field-names): New alias for
+       `std11-field-names'; moved to std11.el.
+
+       * tl-822.el: Constant `rfc822::next-field-top-regexp' was
+       abolished.
+
+       * std11.el (std11-field-body): New function.
+
+       * tl-822.el (rfc822/get-field-body): New alias for
+       `std11-field-body'; moved to std11.el.
+
+       * std11.el (std11-next-field-head-regexp): New constant.
+
+       * std11.el: New module.
+
+       * tl-822.el (rfc822/narrow-to-header): New alias for
+       `std11-narrow-to-header'; moved to std11.el.
+       (rfc822/get-header-string): New alias for `std11-header-string';
+       moved to std11.el.
+       (rfc822/get-header-string-except): New alias for
+       `std11-header-string-except'; moved to std11.el.
+       (rfc822/field-end): New alias for `std11-field-end'; moved to
+       std11.el.
+
+       * tl-seq.el: autoload for cl.el does not work to load cl-seq. (cf. 
+       [tm-en:709,710])
+
+\f
 Fri Aug 23 07:28:37 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
        * tl: Version 7.48 was released.

diff --git a/emu-xemacs.el b/emu-xemacs.el
index 0fe3b06..2b3c306 100644 (file)
--- a/emu-xemacs.el
+++ b/emu-xemacs.el
@@ -1,30 +1,30 @@
-;;;
 ;;; emu-xemacs.el --- Emacs 19 emulation module for XEmacs
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1995 MORIOKA Tomohiko
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Version:
-;;;    $Id: emu-xemacs.el,v 7.9 1996/07/22 18:54:54 morioka Exp $
-;;; Keywords: emulation, compatibility, XEmacs
-;;;
-;;; This file is part of tl (Tiny Library).
-;;;
-;;; 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.  If not, write to the Free Software
-;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-;;;
+
+;; Copyright (C) 1995 Free Software Foundation, Inc.
+;; Copyright (C) 1995,1996 MORIOKA Tomohiko
+
+;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Version:
+;;     $Id: emu-xemacs.el,v 7.10 1996/08/30 15:14:30 morioka Exp $
+;; Keywords: emulation, compatibility, XEmacs
+
+;; This file is part of tl (Tiny Library).
+
+;; 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:
 
 ;;; @ text property
@@ -108,7 +108,8 @@
          )
        (setq pos (1+ pos))
       )
-    (next-single-property-change pos 'invisible)
+    (or (next-single-property-change pos 'invisible)
+       (point-max))
     ))
 
 

diff --git a/install.el b/install.el
index f934a69..e557267 100644 (file)
--- a/install.el
+++ b/install.el
@@ -4,7 +4,7 @@
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1996/8/18
-;; Version: $Id: install.el,v 1.5 1996/08/21 12:08:41 morioka Exp $
+;; Version: $Id: install.el,v 1.6 1996/08/30 15:12:25 morioka Exp $
 ;; Keywords: install
 
 ;; This file is part of tl (Tiny Library).
@@ -57,7 +57,8 @@
          (copy-file src-file full-path t t)
          (if move
              (catch 'tag
-               (while (file-exists-p src-file)
+               (while (and (file-exists-p src-file)
+                           (file-writable-p src-file))
                  (condition-case err
                      (progn
                        (delete-file src-file)