From 647150d2f577d4131900b7cf29880e34f1c4cea8 Mon Sep 17 00:00:00 2001 From: okada Date: Wed, 13 Nov 2002 02:33:57 +0000 Subject: [PATCH] Synch up with flim-1_14. --- ChangeLog | 21 +++++++++++++++++++++ luna.el | 9 +++++++-- mime-en.texi | 6 +++--- mime-ja.texi | 6 +++--- mime-parse.el | 1 + 5 files changed, 35 insertions(+), 8 deletions(-) diff --git a/ChangeLog b/ChangeLog index 2bfa0b5..35dd964 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,24 @@ +2002-11-06 Yoichi NAKAYAMA + + * mime-parse.el (mime-parse-buffer): Require mmbuffer. + +2002-09-26 TSUCHIYA Masatoshi + + * luna.el (luna-define-method): Clear method cache of child + classes. + +2002-09-24 TSUCHIYA Masatoshi + + * mime-ja.texi (CVS): Escape @. + + * luna.el (luna-define-method): Fix the bug that method cache is + not cleard. + +2002-09-14 KOSEKI Yoshinori + + * mime-en.texi (CVS): Fix Typo. (@ to @@). + mime-ja.texi (CVS): Ditto. + 2002-08-26 MORIOKA Tomohiko * std11.el: Update Copyright header. diff --git a/luna.el b/luna.el index 0199aed..f33b83f 100644 --- a/luna.el +++ b/luna.el @@ -164,8 +164,13 @@ The optional 5th BODY is the body of the method." (sym (luna-class-find-or-make-member (luna-find-class ',class) ',name)) (cache (get ',name 'luna-method-cache))) - (if cache - (unintern ',class cache)) + (and cache + (fboundp sym) + (mapatoms + (lambda (s) + (if (memq (symbol-function sym) (symbol-value s)) + (unintern s cache))) + cache)) (fset sym func) (put sym 'luna-method-qualifier ,method-qualifier)))) diff --git a/mime-en.texi b/mime-en.texi index aff3da6..e04f744 100644 --- a/mime-en.texi +++ b/mime-en.texi @@ -1533,13 +1533,13 @@ newest FLIM by the following method. @example (0) cvs login - % cvs -d :pserver:anonymous@cvs.m17n.org:/cvs/root login + % cvs -d :pserver:anonymous@@cvs.m17n.org:/cvs/root login CVS password: [CR] # NULL string (1) checkout - % cvs -d :pserver:anonymous@cvs.m17n.org:/cvs/root checkout + % cvs -d :pserver:anonymous@@cvs.m17n.org:/cvs/root checkout checkout [-r TAG] flim @end example @@ -1548,7 +1548,7 @@ If you would like to join CVS based development, please send mail to @itemize @bullet @item - + @end itemize @noindent diff --git a/mime-ja.texi b/mime-ja.texi index b8840e5..c7520bd 100644 --- a/mime-ja.texi +++ b/mime-ja.texi @@ -1529,13 +1529,13 @@ FLIM $B$N(B file $B$O(B CVS $B$r;H$C$F4IM}$5$l$F$$$^$9!#$3$N$?$a!"0J2<$NJ}K @example (0) cvs login - % cvs -d :pserver:anonymous@cvs.m17n.org:/cvs/root login + % cvs -d :pserver:anonymous@@cvs.m17n.org:/cvs/root login CVS password: [CR] # NULL string (1) checkout - % cvs -d :pserver:anonymous@cvs.m17n.org:/cvs/root checkout + % cvs -d :pserver:anonymous@@cvs.m17n.org:/cvs/root checkout checkout [-r TAG] flim @end example @@ -1544,7 +1544,7 @@ CVS $B$rMQ$$$?3+H/$K;22C$7$?$$J}$O(B @itemize @bullet @item - + @end itemize @noindent diff --git a/mime-parse.el b/mime-parse.el index fef2ac3..4d70477 100644 --- a/mime-parse.el +++ b/mime-parse.el @@ -496,6 +496,7 @@ If Content-Transfer-Encoding field is not found, return nil." (defun mime-parse-buffer (&optional buffer representation-type) "Parse BUFFER as a MIME message. If buffer is omitted, it parses current-buffer." + (require 'mmbuffer) (save-excursion (if buffer (set-buffer buffer)) (mime-parse-message (or representation-type -- 1.7.10.4