[mew-dist 25388] Re: 'o' error in thread folder

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 25386] Re: 'o' error in thread folder
Message-ID: <20041006.114126.74748908.kazu at example.com>
Date: Wed, 06 Oct 2004 11:41:26 +0900 (JST)

> > > ここから mew-sumsyn-folder-name() => mew-physical-folder() 内部
> > > で string-match() をしているから、match-data が変わっちゃって、
> > 
> > こうしましょうか。
> 
> これをマージした rc2 を出してもいいですか？

# すぐ rc2 を出すのは大賛成 :-)

まだ実験していないのだけど、ここで、save-match-data() 使うのは大
げさので、

(defsubst mew-physical-folder (folder)
  (let ((tmp-match (match-data)))
    (if (string-match "^\\*" folder)
	(setq folder (substring folder 1)))
    (if (string-match "\\*$" folder)
	(setq folder (substring folder 0 -1)))
    (set-match-data tmp-match)
    folder))

とか、

(defsubst mew-physical-folder (folder)
  (if (eq (aref folder 0) ?\*)
      (setq folder (substring folder 1)))
  (if (eq (aref folder (1- (length folder))) ?\*)
      (setq folder (substring folder 0 -1)))
  folder)

とかはどうでしょうか？

# mark 関係の loop で使うので、save-match-data() の中の
# unwind-protect() が余分だから。。。

-- 
白井秀行 (mailto:shirai at example.com)