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

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

update: navi2ch 2.0.0-2

  • navi2ch-1.7.5/navi2ch-net.el

    old new  
    281281             (while (re-search-forward "^\\([^\r\n:]+\\): \\(.+\\)\r\n" end t) 
    282282               (setq list (cons (cons (match-string 1) (match-string 2)) 
    283283                                list))) 
    284              (let ((date (assoc-ignore-case "Date" list))) 
     284             (let ((date (assoc-string "Date" list t))) 
    285285               (when (and date (stringp (cdr date))) 
    286286                 (setq navi2ch-net-last-date (cdr date)))) 
    287287             (setq navi2ch-net-header (nreverse list)))))))) 
  • navi2ch-1.7.5/navi2ch-util.el

    old new  
    369369(defsubst navi2ch-replace-html-tag-to-string (str) 
    370370  (let ((ret 
    371371         (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) 
    373373                    (assoc str navi2ch-replace-html-tag-alist))) 
    374374             (save-match-data 
    375375               (let ((alist navi2ch-replace-html-tag-regexp-alist) 
Note: See TracBrowser for help on using the repository browser.