[mew-dist 24967] Re: summary-modeでの:; on Emacs20

[Kazu Yamamoto ( 山本和彦 )]

> emacs-20.7 と emacs-21.3 とで aset() の動作が異なるようです。
> 何かわかりますでしょうか？

ううう。Emacs 20.7 のバグにはまっていますね。以下のパッチで直るでしょう
か？

--かず

Index: mew-header.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-header.el,v
retrieving revision 1.25
diff -c -r1.25 mew-header.el
*** mew-header.el	20 May 2004 04:06:12 -0000	1.25
--- mew-header.el	31 May 2004 06:57:05 -0000
***************
*** 272,277 ****
--- 272,279 ----
         (throw 'max nil))))
  
  (defun mew-addrstr-parse-syntax-list (str sep addrp &optional depth)
+   (if (featurep 'mew-temacs)
+       (setq str (string-as-unibyte str))) ;; A bug of Emacs 20.7
    (let* ((i 0) (len (length str))
  	 (par-cnt 0) (tmp-cnt 0) (sep-cnt 0)
  	 (tmp (make-string len ?x))
***************
*** 361,367 ****
  	(setq i (1+ i))) ;; end of while
        (if (> tmp-cnt 0)
  	  (setq ret (cons (substring tmp 0 tmp-cnt) ret)))) ;; end of catch
!     (nreverse ret)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
--- 363,371 ----
  	(setq i (1+ i))) ;; end of while
        (if (> tmp-cnt 0)
  	  (setq ret (cons (substring tmp 0 tmp-cnt) ret)))) ;; end of catch
!     (if (featurep 'mew-temacs)
! 	(mapcar 'string-as-multibyte (nreverse ret)) ;; A bug of Emacs 20.7
!       (nreverse ret))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;