w3m-history-slimmed-history-flat() wrong

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxx>]

ご無沙汰しています。白井です。

# 眠いのと github の使い方さっぱり分かっていないので日本語と ML
# で ^^;;;

## I am so sleepy that I will explain it in Japanese m(_ _)m

さっき git pull したらほとんど動かなくなってしまったので、ちょっ
と追いかけました。

少なくとも、w3m-history.el/w3m-history-slimmed-history-flat() の

(setq new-flat (cons (cdr (assoc position flat-map)) nil))
-->
(setq new-flat (cdr (assoc position flat-map)))

の変更で、w3m-session-history-to-save() が毎回エラーするようになっ
ています。ここでエラーすると session file 消しちゃうし。。。

........

わざわざ書くこともないとは思うのですが。

(setq new1 nil)
(setq new1 (cdr '(1 2))) (2)
new1 ==> (2)

(setq old1 nil)
(setq old1 (cons (cdr '(1 2)) nil))
old1 ==> ((2))

と異なる結果になるので、(listp "some url string") error で怒られ
ました。とりあえず、上記だけ戻したら今のところは大丈夫っぽいです。

あとはまかせた！！

## ちなみにどれぐらい github を知らないかというと、数日分の巻き
## 戻し方もわからなかったので、Mac の TimeMachine で戻したという
## 体たらく