(defun navi2ch-bbs-limit-get ()
  (let* ((board navi2ch-article-current-board)
         (coding-system-for-read 'binary)
         (coding-system-for-write 'binary)
         (content (navi2ch-net-get-content
                   (navi2ch-net-download-file
                    (navi2ch-board-get-url board
                                           navi2ch-net-setting-file-name)))))
    (when (stringp content)
      (if (string-match "BBS_MESSAGE_COUNT=\\(.+\\)" content)
	  (setq navi2ch-bbs-limit-length
		(string-to-number (match-string 1 content)))
	(setq navi2ch-bbs-limit-length nil))
      (if (string-match "BBS_LINE_NUMBER=\\(.+\\)" content)
	  (setq navi2ch-bbs-limit-lines
		(* (string-to-number (match-string 1 content)) 2))
	(setq navi2ch-bbs-limit-lines nil)))))