From d787ccfcc9d49f371e33ef4ada178cf5cd6a8028 Mon Sep 17 00:00:00 2001 From: FUJISHIMA Satsuki Date: Fri, 1 Aug 2003 03:06:07 +0000 Subject: update to 1.7+20030723 snapshot. --- japanese/navi2ch-emacs20/Makefile | 10 ++++- japanese/navi2ch-emacs20/distinfo | 3 +- .../files/patch-navi2ch-multibbs.el | 49 ---------------------- .../navi2ch-emacs20/files/patch-navi2ch-net.el | 33 --------------- japanese/navi2ch-emacs20/pkg-plist | 4 ++ 5 files changed, 14 insertions(+), 85 deletions(-) delete mode 100644 japanese/navi2ch-emacs20/files/patch-navi2ch-multibbs.el delete mode 100644 japanese/navi2ch-emacs20/files/patch-navi2ch-net.el (limited to 'japanese') diff --git a/japanese/navi2ch-emacs20/Makefile b/japanese/navi2ch-emacs20/Makefile index 877eaf3305a8..d757e26748d8 100644 --- a/japanese/navi2ch-emacs20/Makefile +++ b/japanese/navi2ch-emacs20/Makefile @@ -6,17 +6,23 @@ # PORTNAME= navi2ch -PORTVERSION= 1.6.1 -PORTREVISION= 1 +PORTVERSION= 1.7.0.${SNAPDATE} PORTEPOCH= 1 CATEGORIES= japanese www elisp MASTER_SITES= ${MASTER_SITE_SOURCEFORGE} MASTER_SITE_SUBDIR= ${PORTNAME} PKGNAMESUFFIX= -${EMACS_PORT_NAME} +DISTNAME= ${PORTNAME}-${PORTVERSION:C/.0.*$//} + +PATCH_SITES= ${MASTER_SITE_LOCAL} +PATCH_SITE_SUBDIR= sf +PATCHFILES= ${DISTNAME}-${SNAPDATE}.diff.gz +PATCH_DIST_STRIP= -p1 MAINTAINER= sf@FreeBSD.org COMMENT= 2ch.net and 2ch-like BBS navigator for Emacsen +SNAPDATE= 20030723 EMACS_PORT_NAME?= emacs20 GNU_CONFIGURE= yes diff --git a/japanese/navi2ch-emacs20/distinfo b/japanese/navi2ch-emacs20/distinfo index 291f2bde4014..8f708d8b1fe9 100644 --- a/japanese/navi2ch-emacs20/distinfo +++ b/japanese/navi2ch-emacs20/distinfo @@ -1 +1,2 @@ -MD5 (navi2ch-1.6.1.tar.gz) = 98b1f69791777695f4ec3d6649618d03 +MD5 (navi2ch-1.7.tar.gz) = e8860e8e6b66550d5e86c519f81fc62e +MD5 (navi2ch-1.7-20030723.diff.gz) = f442acf5b6f9d700440825118c1cd045 diff --git a/japanese/navi2ch-emacs20/files/patch-navi2ch-multibbs.el b/japanese/navi2ch-emacs20/files/patch-navi2ch-multibbs.el deleted file mode 100644 index 8b652e976bee..000000000000 --- a/japanese/navi2ch-emacs20/files/patch-navi2ch-multibbs.el +++ /dev/null @@ -1,49 +0,0 @@ -Index: navi2ch-multibbs.el -=================================================================== -RCS file: /cvsroot/navi2ch/navi2ch/navi2ch-multibbs.el,v -retrieving revision 1.20 -diff -u -u -r1.20 navi2ch-multibbs.el ---- navi2ch-multibbs.el 15 Dec 2002 04:23:00 -0000 1.20 -+++ navi2ch-multibbs.el 23 Mar 2003 09:16:07 -0000 -@@ -32,6 +32,7 @@ - (defvar navi2ch-multibbs-ident - "$Id: navi2ch-multibbs.el,v 1.20 2002/12/15 04:23:00 nanashi Exp $") - -+(require 'navi2ch-http-date) - (require 'navi2ch) - - (defvar navi2ch-multibbs-func-alist nil -@@ -221,6 +222,18 @@ - board 'article-to-url 'navi2ch-2ch-article-to-url))) - (funcall func board article start end nofirst))) - -+(defun navi2ch-multibbs-get-message-time-field () -+ (if (stringp navi2ch-net-last-date) -+ (navi2ch-http-date-decode navi2ch-net-last-date) -+ (let* ((now (current-time)) -+ (lag 300) ; ずらす秒数 -+ (h (nth 0 now)) -+ (l (- (nth 1 now) lag))) -+ (when (< l 0) -+ (setq l (+ l 65536) -+ h (- h 0))) -+ (cons h l)))) -+ - (defun navi2ch-multibbs-send-message - (from mail message subject board article) - (let* ((bbstype (navi2ch-multibbs-get-bbstype board)) -@@ -236,12 +249,8 @@ - (string-match "\\([^/]+\\)/$" uri) - (match-string 1 uri))) - (key (cdr (assq 'artid article))) -- (time (mapconcat 'int-to-string -- (let ((time (current-time))) -- (navi2ch-bigint-add -- (navi2ch-bigint-multiply -- (nth 0 time) (expt 2 16)) (nth 1 time))) -- "")) -+ (time (format-time-string -+ "%s" (navi2ch-multibbs-get-message-time-field))) - (navi2ch-net-http-proxy (and navi2ch-net-send-message-use-http-proxy - navi2ch-net-http-proxy)) - (tries 2) ; 送信試行の最大回数 diff --git a/japanese/navi2ch-emacs20/files/patch-navi2ch-net.el b/japanese/navi2ch-emacs20/files/patch-navi2ch-net.el deleted file mode 100644 index a1311a561b12..000000000000 --- a/japanese/navi2ch-emacs20/files/patch-navi2ch-net.el +++ /dev/null @@ -1,33 +0,0 @@ -Index: navi2ch-net.el -=================================================================== -RCS file: /cvsroot/navi2ch/navi2ch/navi2ch-net.el,v -retrieving revision 1.66 -diff -u -u -r1.66 navi2ch-net.el ---- navi2ch-net.el 15 Dec 2002 04:23:00 -0000 1.66 -+++ navi2ch-net.el 23 Mar 2003 09:16:29 -0000 -@@ -34,6 +34,7 @@ - (defvar navi2ch-net-connection-name "navi2ch connection") - (defvar navi2ch-net-user-agent "Monazilla/1.00 Navi2ch") - (defvar navi2ch-net-setting-file-name "SETTING.TXT") -+(defvar navi2ch-net-last-date nil) - (defvar navi2ch-net-last-url nil) - (defvar navi2ch-net-process nil) - (defvar navi2ch-net-last-host nil) -@@ -250,6 +251,9 @@ - (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))) -+ (when (and date (stringp (cdr date))) -+ (setq navi2ch-net-last-date (cdr date)))) - (setq navi2ch-net-header (nreverse list)))))))) - - (defun navi2ch-net-get-content-subr-with-temp-file (gzip-p start end) -@@ -378,6 +382,7 @@ - (cons "Pragma" "no-cache") - (and time (cons "If-Modified-Since" time))) - (and navi2ch-net-accept-gzip -+ (not (assoc "Range" other-header)) - '("Accept-Encoding" . "gzip")) - (and navi2ch-net-user-agent - (cons "User-Agent" navi2ch-net-user-agent))) diff --git a/japanese/navi2ch-emacs20/pkg-plist b/japanese/navi2ch-emacs20/pkg-plist index 0d12865fecc3..f9f891636c59 100644 --- a/japanese/navi2ch-emacs20/pkg-plist +++ b/japanese/navi2ch-emacs20/pkg-plist @@ -20,6 +20,8 @@ share/doc/ja/navi2ch/contrib/navi2ch-migemo.el %%LISPDIR%%/navi2ch/navi2ch-article.elc %%LISPDIR%%/navi2ch/navi2ch-articles.el %%LISPDIR%%/navi2ch/navi2ch-articles.elc +%%LISPDIR%%/navi2ch/navi2ch-auto-modify.el +%%LISPDIR%%/navi2ch/navi2ch-auto-modify.elc %%LISPDIR%%/navi2ch/navi2ch-board-misc.el %%LISPDIR%%/navi2ch/navi2ch-board-misc.elc %%LISPDIR%%/navi2ch/navi2ch-board.el @@ -70,6 +72,8 @@ share/doc/ja/navi2ch/contrib/navi2ch-migemo.el %%LISPDIR%%/navi2ch/navi2ch-vars.elc %%LISPDIR%%/navi2ch/navi2ch-version.el %%LISPDIR%%/navi2ch/navi2ch-version.elc +%%LISPDIR%%/navi2ch/navi2ch-xmas.el +%%LISPDIR%%/navi2ch/navi2ch-xmas.elc %%LISPDIR%%/navi2ch/navi2ch.el %%LISPDIR%%/navi2ch/navi2ch.elc @dirrm %%LISPDIR%%/navi2ch -- cgit v1.2.3