source: projects/specs/trunk/n/navi2ch/navi2ch-1.7.5-emacs22.patch @ 1004

Revision 1004, 1.1 KB checked in by iwaim, 14 years ago (diff)

update: navi2ch 2.0.0-2
RevLine 
[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.