1;;; navi2ch-futaba.el --- View futaba module for Navi2ch. -*- coding: iso-2022-7bit; -*- 2 3;; Copyright (C) 2002, 2003, 2004 by Navi2ch Project 4 5;; Author: 6 7;; Keywords: 2ch, network 8 9;; This file is free software; you can redistribute it and/or modify 10;; it under the terms of the GNU General Public License as published by 11;; the Free Software Foundation; either version 2, or (at your option) 12;; any later version. 13 14;; This file is distributed in the hope that it will be useful, 15;; but WITHOUT ANY WARRANTY; without even the implied warranty of 16;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 17;; GNU General Public License for more details. 18 19;; You should have received a copy of the GNU General Public License 20;; along with GNU Emacs; see the file COPYING. If not, write to 21;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, 22;; Boston, MA 02111-1307, USA. 23 24;;; Commentary: 25 26;; 27 28;;; Code: 29(provide 'navi2ch-futaba) 30 31(eval-when-compile (require 'cl)) 32(require 'navi2ch-util) 33(require 'navi2ch-multibbs) 34 35(defvar navi2ch-futaba-func-alist 36 '((bbs-p . navi2ch-futaba-p) 37 (send-success-p . navi2ch-futaba-send-message-success-p) 38 )) 39 40(defvar navi2ch-futaba-variable-alist 41 (list (cons 'coding-system navi2ch-coding-system))) 42 43(navi2ch-multibbs-regist 'futaba 44 navi2ch-futaba-func-alist 45 navi2ch-futaba-variable-alist) 46 47;;------------- 48 49(defun navi2ch-futaba-p (uri) 50 "URI $B$,$U$?$P$A$c$s$M$k$J$i$P(B non-nil$B$rJV$9!#(B" 51 (string-match "http://www.2chan.net/" uri)) 52 53(defun navi2ch-futaba-send-message-success-p (proc) 54 (string= "302" (navi2ch-net-get-status proc))) 55 56 57(provide 'navi2ch-futaba) 58 59;;; navi2ch-futaba.el ends here 60