Revision 1004,
1.1 KB
checked in by iwaim, 14 years ago
(diff) |
update: navi2ch 2.0.0-2
|
-
old
|
new
|
|
281 | 281 | (while (re-search-forward "^\\([^\r\n:]+\\): \\(.+\\)\r\n" end t) |
282 | 282 | (setq list (cons (cons (match-string 1) (match-string 2)) |
283 | 283 | list))) |
284 | | (let ((date (assoc-ignore-case "Date" list))) |
| 284 | (let ((date (assoc-string "Date" list t))) |
285 | 285 | (when (and date (stringp (cdr date))) |
286 | 286 | (setq navi2ch-net-last-date (cdr date)))) |
287 | 287 | (setq navi2ch-net-header (nreverse list)))))))) |
-
old
|
new
|
|
369 | 369 | (defsubst navi2ch-replace-html-tag-to-string (str) |
370 | 370 | (let ((ret |
371 | 371 | (or (cdr (if case-fold-search |
372 | | (assoc-ignore-case str navi2ch-replace-html-tag-alist) |
| 372 | (assoc-string str navi2ch-replace-html-tag-alist t) |
373 | 373 | (assoc str navi2ch-replace-html-tag-alist))) |
374 | 374 | (save-match-data |
375 | 375 | (let ((alist navi2ch-replace-html-tag-regexp-alist) |
Note: See
TracBrowser
for help on using the repository browser.