Revision 1004,
1.1 KB
checked in by iwaim, 14 years ago
(diff) |
update: navi2ch 2.0.0-2
|
Rev | Line | |
---|
[1004] | 1 | --- navi2ch-1.7.5/navi2ch-net.el.emacs22 2005-09-20 02:47:30.000000000 +0900 |
---|
| 2 | +++ navi2ch-1.7.5/navi2ch-net.el 2005-09-20 02:47:56.000000000 +0900 |
---|
| 3 | @@ -281,7 +281,7 @@ |
---|
| 4 | (while (re-search-forward "^\\([^\r\n:]+\\): \\(.+\\)\r\n" end t) |
---|
| 5 | (setq list (cons (cons (match-string 1) (match-string 2)) |
---|
| 6 | list))) |
---|
| 7 | - (let ((date (assoc-ignore-case "Date" list))) |
---|
| 8 | + (let ((date (assoc-string "Date" list t))) |
---|
| 9 | (when (and date (stringp (cdr date))) |
---|
| 10 | (setq navi2ch-net-last-date (cdr date)))) |
---|
| 11 | (setq navi2ch-net-header (nreverse list)))))))) |
---|
| 12 | --- navi2ch-1.7.5/navi2ch-util.el.emacs22 2005-09-20 02:47:40.000000000 +0900 |
---|
| 13 | +++ navi2ch-1.7.5/navi2ch-util.el 2005-09-20 02:48:12.000000000 +0900 |
---|
| 14 | @@ -369,7 +369,7 @@ |
---|
| 15 | (defsubst navi2ch-replace-html-tag-to-string (str) |
---|
| 16 | (let ((ret |
---|
| 17 | (or (cdr (if case-fold-search |
---|
| 18 | - (assoc-ignore-case str navi2ch-replace-html-tag-alist) |
---|
| 19 | + (assoc-string str navi2ch-replace-html-tag-alist t) |
---|
| 20 | (assoc str navi2ch-replace-html-tag-alist))) |
---|
| 21 | (save-match-data |
---|
| 22 | (let ((alist navi2ch-replace-html-tag-regexp-alist) |
---|
Note: See
TracBrowser
for help on using the repository browser.