sync up to latest slim-1_13

diff --git a/ChangeLog b/ChangeLog
index 2b54d78..bb7178d 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,21 @@
+2000-06-23  Kenichi OKADA <okada@opaopa.org>
+
+       * mime-def.el (mime-library-product): Up.
+
+2000-05-25  Tanaka Akira      <akr@m17n.org>
+
+       * mime-en.sgml, mime-ja.sgml: Update for CVS via SSH.
+
+2000-05-09  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+       * smtp.el (smtp-deduce-address-list): Set `case-fold-search' to `t'
+       in the working buffer.
+
+2000-04-17  Yoshiki Hayashi  <yoshiki@xemacs.org>
+
+       * mel.el (mime-decode-string): Return original string
+       when it failed to decode.
+
 2000-04-16  Kenichi OKADA <okada@opaopa.org>
 
        * SLIM: Version 1.13.7 released.

diff --git a/SLIM-TIPS b/SLIM-TIPS
index a14d6c2..88c0539 100644 (file)
--- a/SLIM-TIPS
+++ b/SLIM-TIPS
@@ -1,6 +1,6 @@
 To use starttls, get next package.
 
-http://www.ueda.info.waseda.ac.jp/~ueno/tmp/starttls-0.2.tar.gz
+http://www.unixuser.org/~ueno/tmp/starttls-0.2.tar.gz
 
 To use DL modules(md5 and sha1), get next package.
 
@@ -8,4 +8,4 @@ Original:
 ftp://opaopa.org/pub/elisp/hmac-0.2.tar.gz
 
 GPL2 version:
-ftp://kiss.kake.info.waseda.ac.jp/pub/tmp/hmac-dl-0.1.tar.gz
+http://www.unixuser.org/~ueno/tmp/hmac-dl-0.1.tar.gz

diff --git a/SLIM-VERSION b/SLIM-VERSION
index 9a53279..d84ba1d 100644 (file)
--- a/SLIM-VERSION
+++ b/SLIM-VERSION
@@ -7,4 +7,6 @@
 1.13.4 \e$B:g860j7C\e(B
 1.13.5 \e$B;3@%$^$_\e(B
 1.13.6 \e$BEg:jOB2N;R\e(B
-1.13.7 \e$B0kLn5.M};R\e(B
\ No newline at end of file
+1.13.7 \e$B0kLn5.M};R\e(B
+
+1.14.0 \e$B0BG\$J$D$_\e(B
\ No newline at end of file

diff --git a/mel.el b/mel.el
index 12fff86..98d08c7 100644 (file)
--- a/mel.el
+++ b/mel.el
@@ -199,7 +199,12 @@ ENCODING must be string.  If ENCODING is found in
 the STRING by its value."
   (let ((f (mel-find-function 'mime-decode-string encoding)))
     (if f
-       (funcall f string)
+       (condition-case nil
+           (funcall f string)
+         (error
+          (message "Wrong Content-Transfer-Encoding: %s"
+                   encoding)
+          string))
       string)))
 
 

diff --git a/mime-def.el b/mime-def.el
index 3dcb894..dd43d35 100644 (file)
--- a/mime-def.el
+++ b/mime-def.el
@@ -35,7 +35,7 @@
 (eval-when-compile (require 'cl))      ; list*
 
 (eval-and-compile
-  (defconst mime-library-product ["SLIM" (1 13 7) "\e$B0kLn5.M};R\e(B"]
+  (defconst mime-library-product ["SLIM" (1 14 0) "\e$B0BIt$J$D$_\e(B"]
     "Product name, version number and code name of MIME-library package.")
   )
 

diff --git a/mime-en.sgml b/mime-en.sgml
index 35b4b1a..746c987 100644 (file)
--- a/mime-en.sgml
+++ b/mime-en.sgml
@@ -1351,8 +1351,12 @@ CVS \e$B$rMQ$$$?3+H/$K;22C$7$?$$J}$O\e(B
 </ul>
 
 <noindent>
-\e$B$^$G!"\e(Baccount \e$BL>$H\e(B UNIX \e$B$N\e(B passwd \e$B$HF1$87A<0$N\e(B crypt \e$B2=$5$l$?\e(B password
-\e$B$r1h$($F8fO"Mm$/$@$5$$!#\e(B
+\e$B$^$G!"%"%+%&%s%HL>$H\e(B ssh \e$B$N8x3+80$rAw$C$F$/$@$5$$!#\e(Bssh \e$B7PM3$G$O!"\e(B
+cvsroot \e$B$O\e(B :ext:cvs@cvs.m17n.org:/cvs/root \e$B$H$J$j$^$9!#\e(B
+<p>
+\e$B$I$&$7$F$b\e(B ssh \e$B$,;H$($J$$>l9g!"\e(Bpserver \e$B7PM3$G$b3+H/$K;22C$G$-$^$9!#\e(B
+\e$B$3$N>l9g!"\e(BUNIX \e$B$N\e(B /etc/passwd \e$BMM<0$G0E9f2=$5$l$?%Q%9%o!<%I$rAw$C$F2<$5$$!#\e(B
+\e$B$3$N>l9g\e(B cvsroot \e$B$O\e(B :pserver:<\e$B%"%+%&%s%HL>\e(B>@cvs.m17n.org:/cvs/root \e$B$H$J$j$^$9!#\e(B
 
 
 <h2> History of FLIM

diff --git a/mime-ja.sgml b/mime-ja.sgml
index 32f99a9..e4bc50b 100644 (file)
--- a/mime-ja.sgml
+++ b/mime-ja.sgml
@@ -1351,8 +1351,12 @@ CVS \e$B$rMQ$$$?3+H/$K;22C$7$?$$J}$O\e(B
 </ul>
 
 <noindent>
-\e$B$^$G!"\e(Baccount \e$BL>$H\e(B UNIX \e$B$N\e(B passwd \e$B$HF1$87A<0$N\e(B crypt \e$B2=$5$l$?\e(B password
-\e$B$r1h$($F8fO"Mm$/$@$5$$!#\e(B
+\e$B$^$G!"%"%+%&%s%HL>$H\e(B ssh \e$B$N8x3+80$rAw$C$F$/$@$5$$!#\e(Bssh \e$B7PM3$G$O!"\e(B
+cvsroot \e$B$O\e(B :ext:cvs@cvs.m17n.org:/cvs/root \e$B$H$J$j$^$9!#\e(B
+<p>
+\e$B$I$&$7$F$b\e(B ssh \e$B$,;H$($J$$>l9g!"\e(Bpserver \e$B7PM3$G$b3+H/$K;22C$G$-$^$9!#\e(B
+\e$B$3$N>l9g!"\e(BUNIX \e$B$N\e(B /etc/passwd \e$BMM<0$G0E9f2=$5$l$?%Q%9%o!<%I$rAw$C$F2<$5$$!#\e(B
+\e$B$3$N>l9g\e(B cvsroot \e$B$O\e(B :pserver:<\e$B%"%+%&%s%HL>\e(B>@cvs.m17n.org:/cvs/root \e$B$H$J$j$^$9!#\e(B
 
 
 <h2> \e$BNr;K\e(B

diff --git a/smtp.el b/smtp.el
index e80a68d..ee09fd2 100644 (file)
--- a/smtp.el
+++ b/smtp.el
@@ -420,8 +420,7 @@ don't define this value."
 
 (defun smtp-deduce-address-list (smtp-text-buffer header-start header-end)
   "Get address list suitable for smtp RCPT TO:<address>."
-  (let ((case-fold-search t)
-       (simple-address-list "")
+  (let ((simple-address-list "")
        this-line
        this-line-end
        addr-regexp
@@ -430,6 +429,7 @@ don't define this value."
        (save-excursion
          ;;
          (set-buffer smtp-address-buffer)
+         (setq case-fold-search t)
          (erase-buffer)
          (insert (save-excursion
                    (set-buffer smtp-text-buffer)