| 12345678910111213141516171819202122 |
- --- navi2ch-1.7.5/navi2ch-net.el.emacs22 2005-09-20 02:47:30.000000000 +0900
- +++ navi2ch-1.7.5/navi2ch-net.el 2005-09-20 02:47:56.000000000 +0900
- @@ -281,7 +281,7 @@
- (while (re-search-forward "^\\([^\r\n:]+\\): \\(.+\\)\r\n" end t)
- (setq list (cons (cons (match-string 1) (match-string 2))
- list)))
- - (let ((date (assoc-ignore-case "Date" list)))
- + (let ((date (assoc-string "Date" list t)))
- (when (and date (stringp (cdr date)))
- (setq navi2ch-net-last-date (cdr date))))
- (setq navi2ch-net-header (nreverse list))))))))
- --- navi2ch-1.7.5/navi2ch-util.el.emacs22 2005-09-20 02:47:40.000000000 +0900
- +++ navi2ch-1.7.5/navi2ch-util.el 2005-09-20 02:48:12.000000000 +0900
- @@ -369,7 +369,7 @@
- (defsubst navi2ch-replace-html-tag-to-string (str)
- (let ((ret
- (or (cdr (if case-fold-search
- - (assoc-ignore-case str navi2ch-replace-html-tag-alist)
- + (assoc-string str navi2ch-replace-html-tag-alist t)
- (assoc str navi2ch-replace-html-tag-alist)))
- (save-match-data
- (let ((alist navi2ch-replace-html-tag-regexp-alist)
|
