ﾚｽ書き込み

Navi2ch for Emacs (Part 22)

PC,ｽﾏﾎ,PHSは ULA べっかんこ公式(ｽﾏﾎ) 公式(PC) で書き込んでください｡

名前
ﾒｰﾙ
引用切替：ﾚｽｱﾝｶｰのみ

>>171
> その1
> diff --git a/navi2ch-list.el b/navi2ch-list.el
> index 4188735..a2e8cad 100644
> --- a/navi2ch-list.el
> +++ b/navi2ch-list.el
> @@ -567,7 +567,7 @@ changed-list は '((board-id old-board new-board) ...) な alist。
> (let ((board-id (cdr (assoc url navi2ch-list-board-id-alist))))
> (or board-id
> (save-match-data
> -   (if (string-match "\\`http://.+/\\([^/]+\\)/\\'" url)
> +   (if (string-match "\\`https?://.+/\\([^/]+\\)/\\'" url)
> (match-string 1 url))))))
> 
> (defun navi2ch-list-make-board-txt ()
> @@ -590,7 +590,7 @@ changed-list は '((board-id old-board new-board) ...) な alist。
> (if (string-match "a" tag)
> (let (url board-id id u)
> (when (and (not ignore)
> -      (string-match "href=\\(.+/\\([^/]+\\)/\\)" attr))
> +      (string-match "href=\"?\\(.+/\\([^/]+\\)/\\)" attr))
> (setq url (match-string 1 attr))
> (setq url (or (cdr (assoc
> url
> @@ -624,7 +624,7 @@ changed-list は '((board-id old-board new-board) ...) な alist。
> 
> (defun navi2ch-list-valid-board (uri)
> (save-match-data
> -    (when (string-match "http://\\([^/]+\\)/\\([^/]+\\)/" uri)
> +    (when (string-match "https?://\\([^/]+\\)/\\([^/]+\\)/" uri)
> (let ((host (match-string 1 uri)))
> (and (not (string-match navi2ch-list-invalid-host-regexp host))
> (string-match navi2ch-list-valid-host-regexp host))))))

ﾛｰｶﾙﾙｰﾙ SETTING.TXT

他の携帯ﾌﾞﾗｳｻﾞのﾚｽ書き込みﾌｫｰﾑはこちら｡書き込み設定で書き込みｻｲﾄの設定ができます｡
・ULA
・べっかんこ(身代わりの術)
・べっかんこ(通常)
・公式(ｽﾏﾎ)
・公式(PC)[PC,ｽﾏﾎ,PHS可]

書き込み設定(板別)で板別の名前とﾒｰﾙを設定できます｡

上下板覧索設栞歴

ぬこの手ぬこTOP 0.013s