From: yamaoka Date: Mon, 1 Oct 2001 04:58:34 +0000 (+0000) Subject: * nndoc.el (nndoc-oe-dbx-type-p): Use `string-as-multibyte' instead of X-Git-Tag: t-gnus-6_15_4-08-quimby-last-~62 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f231053eecad0341c82768ddad32d576f923b9b4;p=elisp%2Fgnus.git- * nndoc.el (nndoc-oe-dbx-type-p): Use `string-as-multibyte' instead of `mm-string-as-multibyte'. (nndoc-possibly-change-buffer): Use `nnheader-insert-file-contents' instead of `mm-insert-file-contents'. --- diff --git a/ChangeLog b/ChangeLog index 88a017b..b33b92b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2001-10-01 Katsumi Yamaoka + + * lisp/nndoc.el (nndoc-oe-dbx-type-p): Use `string-as-multibyte' + instead of `mm-string-as-multibyte'. + (nndoc-possibly-change-buffer): Use `nnheader-insert-file-contents' + instead of `mm-insert-file-contents'. + 2001-09-28 Katsumi Yamaoka * lisp/gnus-vers.el (gnus-revision-number): Increment to 08. diff --git a/lisp/nndoc.el b/lisp/nndoc.el index 4b0574b..7ef6e26 100644 --- a/lisp/nndoc.el +++ b/lisp/nndoc.el @@ -320,8 +320,8 @@ from the document.") (erase-buffer) (if (and (stringp nndoc-address) (string-match nndoc-binary-file-names nndoc-address)) - (let ((coding-system-for-read 'binary)) - (mm-insert-file-contents nndoc-address)) + (let ((nnheader-file-coding-system 'binary)) + (nnheader-insert-file-contents nndoc-address)) (if (stringp nndoc-address) (nnheader-insert-file-contents nndoc-address) (insert-buffer-substring nndoc-address)) @@ -628,7 +628,7 @@ from the document.") (looking-at "JMF")) (defun nndoc-oe-dbx-type-p () - (looking-at (mm-string-as-multibyte "\317\255\022\376"))) + (looking-at (string-as-multibyte "\317\255\022\376"))) (defun nndoc-read-little-endian () (+ (prog1 (char-after) (forward-char 1))