projects / elisp / flim.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: efc2772)
Synch with the flim-1_14 branch.
authoryamaoka <yamaoka>
Mon, 26 Aug 2002 22:46:38 +0000 (22:46 +0000)
committeryamaoka <yamaoka>
Mon, 26 Aug 2002 22:46:38 +0000 (22:46 +0000)
ChangeLog patch | blob | history
VERSION patch | blob | history
mime-def.el patch | blob | history
std11.el patch | blob | history

diff --git a/ChangeLog b/ChangeLog
index 68aa3bb..b6e5e21 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2002-08-26  MORIOKA Tomohiko  <tomo@mousai.as.wakwak.ne.jp>
+
+       * std11.el: Update Copyright header.
+
+2002-07-30  MORIOKA Tomohiko  <tomo@mousai.as.wakwak.ne.jp>
+
+       * std11.el (std11-non-atom-regexp): New constant.
+       (std11-analyze-atom): New implementation to avoid error in current
+       XEmacs UTF-2000 [may be caused by a bug about regexp].
+
 2002-07-26  Katsumi Yamaoka   <yamaoka@jpl.org>
 
        * smtp.el (smtp-open-connection-function): Add doc.
@@ -13,7 +23,7 @@
 \f
 2002-06-03  MORIOKA Tomohiko  <tomo@kanji.zinbun.kyoto-u.ac.jp>
 
-       * FLIM: Version 1.14.4 (Kashiharajing\e-Dþ-mae) released.\e-A
+       * FLIM: Version 1.14.4 (Kashiharajing\e-Dþ-mae)\e-A released.
 
 2002-01-16  Hiroya Murata     <lapis-lazuli@pop06.odn.ne.jp>
 
@@ -51,7 +61,7 @@
 \f
 2001-06-01  MORIOKA Tomohiko  <tomo@kanji.zinbun.kyoto-u.ac.jp>
 
-       * FLIM: Version 1.14.3 (Unebigory\e-Dòmae) released.\e-A
+       * FLIM: Version 1.14.3 (Unebigory\e-Dòmae)\e-A released.
 
 2001-06-01  Katsumi Yamaoka   <yamaoka@jpl.org>
 
@@ -1047,7 +1057,7 @@
 \f
 2000-07-12  MORIOKA Tomohiko  <tomo@kanji.zinbun.kyoto-u.ac.jp>
 
-       * FLIM-Chao: Version 1.14.1 (Rokujiz\e-Dò) released.\e-A
+       * FLIM-Chao: Version 1.14.1 (Rokujiz\e-Dò)\e-A released.
 
 2000-07-10  MORIOKA Tomohiko  <tomo@kanji.zinbun.kyoto-u.ac.jp>
 
@@ -1825,7 +1835,7 @@
 \f
 1999-05-31  MORIOKA Tomohiko  <tomo@m17n.org>
 
-       * FLIM: Version 1.12.7 (Y\e-Dþzaki) released.\e-A
+       * FLIM: Version 1.12.7 (Y\e-Dþzaki)\e-A released.
 
 1999-05-31  MORIOKA Tomohiko  <tomo@m17n.org>
 
@@ -2000,7 +2010,7 @@
 \f
 1999-05-11  MORIOKA Tomohiko  <tomo@m17n.org>
 
-       * FLIM: Version 1.12.6 (Family-K\e-Dòenmae) released.\e-A
+       * FLIM: Version 1.12.6 (Family-K\e-Dòenmae)\e-A released.
 
 1999-04-27  Shuhei KOBAYASHI  <shuhei@aqua.ocn.ne.jp>
 
@@ -2117,7 +2127,7 @@
 \f
 1999-01-23  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.12.3 (Kintetsu-K\e-Dòriyama) released.\e-A
+       * FLIM: Version 1.12.3 (Kintetsu-K\e-Dòriyama)\e-A released.
 
 1999-01-23  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
@@ -2160,7 +2170,7 @@
 \f
 1999-01-21  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.12.2 (Kuj\e-Dò) released.\e-A
+       * FLIM: Version 1.12.2 (Kuj\e-Dò)\e-A released.
 
 1999-01-16  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
@@ -2346,7 +2356,7 @@
 \f
 1998-12-02  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.12.1 (Nishinoky\e-Dò) released.\e-A
+       * FLIM: Version 1.12.1 (Nishinoky\e-Dò)\e-A released.
 
 1998-11-30  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
@@ -2564,7 +2574,7 @@
 \f
 1998-10-26  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.11.2 (Heij\e-Dò) was released.\e-A
+       * FLIM: Version 1.11.2 (Heij\e-Dò)\e-A was released.
 
        * NEWS (Abolish variable `mime-temp-directory'): New subsection.
 
@@ -2844,7 +2854,7 @@
 \f
 1998-10-12  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.10.4 (Shin-H\e-Dòsono) was released.\e-A
+       * FLIM: Version 1.10.4 (Shin-H\e-Dòsono)\e-A was released.
 
 1998-10-12  Katsumi Yamaoka   <yamaoka@jpl.org>
 
@@ -3029,7 +3039,7 @@
 \f
 1998-09-29  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.10.0 (K\e-Dòdo) was released.\e-A
+       * FLIM: Version 1.10.0 (K\e-Dòdo)\e-A was released.
 
        * README.en (What's FLIM): Add mel-ccl.el.
 
@@ -3316,7 +3326,7 @@
 \f
 1998-08-31  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.9.1 (Tonosh\e-Dò) was released.\e-A
+       * FLIM: Version 1.9.1 (Tonosh\e-Dò)\e-A was released.
 
        * mime-en.sgml (mm-backend): Translate a little.
 
@@ -3459,7 +3469,7 @@
 \f
 1998-07-07  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM-Chao: Version 1.8.0 (Shij\e-Dò) was released.\e-A
+       * FLIM-Chao: Version 1.8.0 (Shij\e-Dò)\e-A was released.
 
 1998-07-07  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
@@ -3571,7 +3581,7 @@
 \f
 1998-07-01  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.8.0 (\e-DÒkubo) was released.\e-A
+       * FLIM: Version 1.8.0 (\e-DÒkubo)\e-A was released.
 
        * README.en: Delete `How to use'.
 
@@ -3696,7 +3706,7 @@
 \f
 1998-06-28  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM-Chao: Version 1.7.0 (Goj\e-Dò) was released.\e-A
+       * FLIM-Chao: Version 1.7.0 (Goj\e-Dò)\e-A was released.
 
 1998-06-26  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
@@ -3955,7 +3965,7 @@
 \f
 1998-06-19  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.4.1 (Momoyama-Gory\e-Dòmae) was released.\e-A
+       * FLIM: Version 1.4.1 (Momoyama-Gory\e-Dòmae)\e-A was released.
 
 1998-06-18  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
@@ -4075,7 +4085,7 @@
 \f
 1998-05-06  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.2.0 (J\e-Dþjò) was released.\e-A
+       * FLIM: Version 1.2.0 (J\e-Dþjò)\e-A was released.
 
        * README.en (What's FLIM): Delete description about
        std11-parse.el; add description about mailcap.el.
@@ -4126,7 +4136,7 @@
 \f
 1998-05-05  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.1.0 (T\e-Dòji) was released.\e-A
+       * FLIM: Version 1.1.0 (T\e-Dòji)\e-A was released.
 
 1998-05-04  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
@@ -4162,7 +4172,7 @@
 \f
 1998-04-17  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.0.1 (Ky\e-Dòto) was released.\e-A
+       * FLIM: Version 1.0.1 (Ky\e-Dòto)\e-A was released.
 
        * mime-def.el (mime-spadework-module-version-string): New
        constant.
diff --git a/VERSION b/VERSION
index 23955f1..745aab0 100644 (file)
--- a/VERSION
+++ b/VERSION
@@ -4,7 +4,7 @@
 
 ;;-------------------------------------------------------------------------
 ;;     Kinki Nippon Railway    \e$(B6a5&F|K\E4F;\e(B     http://www.kintetsu.co.jp/
-;;     Ky\e-Dòto Line\e-A                \e$(B5~ET@~\e(B
+;;     Ky\e-Dòto\e-A Line                \e$(B5~ET@~\e(B
 ;;-------------------------------------------------------------------------
 1.0.1  Ky\e-Dòto\e-A                     \e$(B5~ET\e(B             ; <=> JR, \e$(B5~ET;T8rDL6I\e(B
 1.1.0  T\e-Dòji\e-A                      \e$(BEl;{\e(B
@@ -34,7 +34,7 @@
 1.11.3 Saidaiji                \e$(B@>Bg;{\e(B           ; = \e$(B6aE4\e(B \e$(BF`NI@~\e(B
 ;;-------------------------------------------------------------------------
 ;;     Kinki Nippon Railway    \e$(B6a5&F|K\E4F;\e(B     http://www.kintetsu.co.jp/
-;;     Ky\e-Dòto Line\e-A                \e$(B3`86@~\e(B
+;;     Ky\e-Dòto\e-A Line                \e$(B3`86@~\e(B
 ;;-------------------------------------------------------------------------
        (Saidaiji)              (\e$(B@>Bg;{\e(B)
 1.12.0 Amagatsuji              \e$(BFt%vDT\e(B
@@ -55,6 +55,13 @@
 1.14.4 Kashiharajing\e-Dþ-mae\e-A        \e$(B3`86?@5\A0\e(B       ; = \e$(B6aE4\e(B \e$(BFnBg:e@~!"5HLn@~\e(B
 
 
+;;-------------------------------------------------------------------------
+;;     Keihan Electric Railway \e$(B5~:eEE5$E4F;\e(B     http://www.keihan.co.jp/
+;;                             \e$(B3{El@~\e(B
+;;-------------------------------------------------------------------------
+1.14.5 Demachiyanagi           \e$(B=PD.Lx\e(B           ; <=> \e$(B1CEE\e(B
+
+
 [Chao Version names]
 
 ;;-------------------------------------------------------------------------
@@ -117,7 +124,7 @@
 1.14.0 Gokend\e-Dò\e-A                   \e$B8^4VF2\e(B
 1.14.3 Terai-Nishikuchi        \e$B;{0f@>8}\e(B
 1.14.4 Jid\e-Dò\e-Asha-Renraku           \e$B<+F0<VO"Mm\e(B
------- Hon-Terai               \e$BK\;{0f\e(B
+1.14.5 Hon-Terai               \e$BK\;{0f\e(B
 ------ Suenobu-Ushijima        \e$BKv?.5mEg\e(B
 ------ Kaga-Sano               \e$B2C2l:4Ln\e(B
 ------ Yunotani-Ishiko         \e$BErC+@P;R\e(B
diff --git a/mime-def.el b/mime-def.el
index 8d4715a..2720f6d 100644 (file)
--- a/mime-def.el
+++ b/mime-def.el
@@ -34,7 +34,7 @@
 (eval-when-compile (require 'luna))    ; luna-arglist-to-arguments
 
 (eval-and-compile
-  (defconst mime-library-product ["CLIME" (1 14 4) "\e$B<+F0<VO"Mm\e(B"]
+  (defconst mime-library-product ["CLIME" (1 14 5) "\e$BK\;{0f\e(B"]
     "Product name, version number and code name of MIME-library package."))
 
 (defmacro mime-product-name (product)
diff --git a/std11.el b/std11.el
index ac5129f..32b930f 100644 (file)
--- a/std11.el
+++ b/std11.el
@@ -1,6 +1,6 @@
 ;;; std11.el --- STD 11 functions for GNU Emacs
 
-;; Copyright (C) 1995,1996,1997,1998,1999,2000 Free Software Foundation, Inc.
+;; Copyright (C) 1995,96,97,98,99,2000,01,02 Free Software Foundation, Inc.
 
 ;; Author:   MORIOKA Tomohiko <tomo@m17n.org>
 ;; Keywords: mail, news, RFC 822, STD 11
@@ -291,6 +291,11 @@ be the result."
   )
 ;; (defconst std11-spaces-regexp
 ;;   (eval-when-compile (concat "[" std11-space-char-list "]+")))
+
+(defconst std11-non-atom-regexp
+  (eval-when-compile
+    (concat "[" std11-special-char-list std11-space-char-list "]")))
+
 (defconst std11-atom-regexp
   (eval-when-compile
     (concat "[^" std11-special-char-list std11-space-char-list "]+")))
@@ -315,13 +320,21 @@ be the result."
     ))
 
 (defun std11-analyze-atom (string start)
-  (if (and (string-match std11-atom-regexp string start)
-          (= (match-beginning 0) start))
-      (let ((end (match-end 0)))
-       (cons (cons 'atom (substring string start end))
-             ;;(substring string end)
-             end)
-       )))
+  (if (string-match std11-non-atom-regexp string start)
+      (if (> (match-beginning 0) start)
+         (cons (cons 'atom (substring string start (match-beginning 0)))
+               (match-beginning 0))
+       nil)
+    (cons (cons 'atom (substring string start))
+         (length string)))
+  ;; (if (and (string-match std11-atom-regexp string start)
+  ;;          (= (match-beginning 0) start))
+  ;;     (let ((end (match-end 0)))
+  ;;       (cons (cons 'atom (substring string start end))
+  ;;             ;;(substring string end)
+  ;;             end)
+  ;;       ))
+  )
 
 (defun std11-check-enclosure (string open close &optional recursive from)
   (let ((len (length string))