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

navi2ch-1.7.5/navi2ch-net.el

@@ -281 +281 @@
              (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

@@ -369 +369 @@
 (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)