Permalink
Browse files

* configure.in: Changed to 2.0.0-DEV

* navi2ch-article.el

(navi2ch-article-goto-number): Don't check range in hide, or important
mode.

(navi2ch-article-goto-board): Update docstring.

(navi2ch-article-load-number): Return nearest position when hide, or
important mode.

(navi2ch-article-toggle-hide): Also call navi2ch-article-load-number()
in hide mode.

(navi2ch-article-toggle-important): Also call
navi2ch-article-load-number() in important mode.

* navi2ch-oyster.el: Always use tls.el.
  • Loading branch information...
1 parent 2ba0fa7 commit 0f2d8e4c613ab95d4c109351d05114bab390ec5c nawota committed Aug 2, 2008
Showing with 46 additions and 16 deletions.
  1. +16 −0 ChangeLog
  2. +1 −1 configure
  3. +1 −1 configure.in
  4. +26 −8 navi2ch-article.el
  5. +1 −5 navi2ch-oyster.el
  6. +1 −1 navi2ch-version.el
View
@@ -1,3 +1,19 @@
+2008-08-02 Naohiro Aota <nao.aota@gmail.com>
+
+ * configure.in: 2.0.0-DEV に変更。
+
+ * navi2ch-article.el (navi2ch-article-goto-number): hide,
+ important モードの時は range をチェックする必要がない。
+ (navi2ch-article-goto-board): docstring を更新。
+ (navi2ch-article-load-number): hide, important モードの時はなるべく
+ 近くに復帰するように。
+ (navi2ch-article-toggle-hide): hide モードでも
+ navi2ch-article-load-number() を呼ぶように。
+ (navi2ch-article-toggle-important): important モードでも
+ navi2ch-article-load-number() を呼ぶように。
+
+ * navi2ch-oyster.el: 常に tls.el を使うように。
+
2008-07-31 Hiroshi Fujishima <hirobo@tonteki.org>
* navi2ch-oyster.el (navi2ch-oyster-login): ssl.el のかわりに、
View
@@ -2086,7 +2086,7 @@ fi
# Define the identity of the package.
PACKAGE=navi2ch
- VERSION=1.8.0
+ VERSION=2.0.0-DEV
cat >>confdefs.h <<_ACEOF
View
@@ -1,5 +1,5 @@
AC_INIT(navi2ch.el)
-AM_INIT_AUTOMAKE(navi2ch, 1.8.0)
+AM_INIT_AUTOMAKE(navi2ch, 2.0.0-DEV)
AM_MAINTAINER_MODE
AC_PREREQ(2.53)
View
@@ -1558,9 +1558,25 @@ FIRST $B$,(B nil $B$J$i$P!"%U%!%$%k$,99?7$5$l$F$J$1$l$P2?$b$7$J$$!#(B"
navi2ch-article-current-article))))))
(defun navi2ch-article-load-number ()
- (unless (or navi2ch-article-hide-mode
- navi2ch-article-important-mode)
- (let ((num (cdr (assq 'number navi2ch-article-current-article))))
+ (let ((num (cdr (assq 'number navi2ch-article-current-article)))
+ (list (cond
+ (navi2ch-article-hide-mode
+ (cdr (assq 'hide navi2ch-article-current-article)))
+ (navi2ch-article-important-mode
+ (cdr (assq 'important navi2ch-article-current-article)))
+ (t nil))))
+ (when list
+ (let (nearest_len nearest_n)
+ (dolist (n list)
+ (let ((len (abs (- n num))))
+ (when (or (null nearest_len)
+ (< len nearest_len))
+ (setq nearest_len len
+ nearest_n n))))
+ (setq num nearest_n)))
+ (when (or list
+ (not (or navi2ch-article-hide-mode
+ navi2ch-article-important-mode)))
(navi2ch-article-goto-number (or num 1)))))
(defun navi2ch-article-save-info (&optional board article first)
@@ -1804,7 +1820,9 @@ FIRST $B$,(B nil $B$J$i$P!"%U%!%$%k$,99?7$5$l$F$J$1$l$P2?$b$7$J$$!#(B"
(first (caar navi2ch-article-message-list))
(last (caar (last navi2ch-article-message-list))))
(setq num (max first (min last num)))
- (unless (navi2ch-article-inside-range-p num range len)
+ (unless (or navi2ch-article-hide-mode
+ navi2ch-article-important-mode
+ (navi2ch-article-inside-range-p num range len))
(if navi2ch-article-redraw-when-goto-number
(progn
(navi2ch-article-fix-range num)
@@ -1823,6 +1841,8 @@ FIRST $B$,(B nil $B$J$i$P!"%U%!%$%k$,99?7$5$l$F$J$1$l$P2?$b$7$J$$!#(B"
(force-mode-line-update t)))
(defun navi2ch-article-goto-board (&optional board)
+ "BOARD $B$G;XDj$5$l$?HD$K0\F0!#(B
+BOARD $B$,(B nil $B$J$i$P!"8=:_3+$$$F$$$k%9%l$NHD$K0\F0!#(B"
(interactive)
(navi2ch-list-goto-board (or board
navi2ch-article-current-board)))
@@ -3046,8 +3066,7 @@ FUNC $B$O(B (NUMBER, LIST) $B$r0z?t$K<h$k4X?t$G$"$k;v!#(B"
(navi2ch-article-insert-messages
navi2ch-article-message-list
navi2ch-article-view-range)))
- (unless navi2ch-article-hide-mode
- (navi2ch-article-load-number)))
+ (navi2ch-article-load-number))
;;; important mode
(navi2ch-set-minor-mode 'navi2ch-article-important-mode
@@ -3090,8 +3109,7 @@ FUNC $B$O(B (NUMBER, LIST) $B$r0z?t$K<h$k4X?t$G$"$k;v!#(B"
(navi2ch-article-insert-messages
navi2ch-article-message-list
navi2ch-article-view-range)))
- (unless navi2ch-article-important-mode
- (navi2ch-article-load-number)))
+ (navi2ch-article-load-number))
(defun navi2ch-article-search ()
"$B%a%C%;!<%8$r8!:w$9$k!#(B
View
@@ -34,11 +34,7 @@
(require 'navi2ch-util)
(require 'navi2ch-multibbs)
-(eval-and-compile
- (if (or (< 21 emacs-major-version)
- (featurep 'xemacs))
- (require 'tls)
- (autoload 'open-ssl-stream "ssl")))
+(require 'tls)
(defvar navi2ch-oyster-func-alist
'((bbs-p . navi2ch-oyster-p)
View
@@ -3,4 +3,4 @@
;;; navi2ch-version.el.in --- template of navi2ch-version.el
(provide 'navi2ch-version)
-(defconst navi2ch-version "1.8.0")
+(defconst navi2ch-version "2.0.0-DEV")

0 comments on commit 0f2d8e4

Please sign in to comment.