mirror of
https://git.freebsd.org/ports.git
synced 2025-05-31 02:16:27 -04:00
update to 1.7+20030723 snapshot.
This commit is contained in:
FUJISHIMA Satsuki
parent
fbb9f4c695
commit
d787ccfcc9
Notes:
svn2git
2021-03-31 03:12:20 +00:00
svn path=/head/; revision=86090
5 changed files with 14 additions and 85 deletions
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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) ; $B$:$i$9IC?t(B
|
||||
+ (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) ; $BAw?.;n9T$N:GBg2s?t(B
|
||||
|
|
@ -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)))
|
||||
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue