Migrate from GitHub to SourceForge with this tool. Check out all of SourceForge's recent improvements.
Close

#5 state を header に突っこんだらおかしくなっちゃった。

closed
None
5
2007-04-29
2002-10-02
No

state を header に突っこんだらおかしくなっちゃった事に対
するパッチとか。
2ch にいっぱい並べるのはあれなんで。

Discussion

  • Taiki SUGAWARA

    Taiki SUGAWARA - 2002-10-02
    • assigned_to: nobody --> taiki
     
  • Taiki SUGAWARA

    Taiki SUGAWARA - 2002-10-02

    Logged In: YES
    user_id=369908

    ҤȤĤ
    (defun navi2ch-2ch-board-update (board)
    (let ((file (navi2ch-board-get-file-name board))
    (time (cdr (assq 'time board))))
    (if navi2ch-board-enable-readcgi
    (navi2ch-net-update-file-with-readcgi
    (navi2ch-board-get-readcgi-raw-url board) file
    time)
    (let ((url (navi2ch-board-get-url
    board (if navi2ch-board-use-
    subback-html
    navi2ch-board-
    subback-file-name)))
    (func (navi2ch-multibbs-subject-callback
    board)))
    (navi2ch-net-update-file url file time func)))))

     
  • Taiki SUGAWARA

    Taiki SUGAWARA - 2002-10-02

    Logged In: YES
    user_id=369908

    դĤ
    (defun navi2ch-article-fetch-article (board article
    &optional force)
    (if (get-buffer (navi2ch-article-get-buffer-name
    board article))
    (save-excursion
    (navi2ch-article-view-article board article force nil
    nil t))
    (let (ret header file)
    (setq article (navi2ch-article-load-info board article)
    file (navi2ch-article-get-file-name board
    article))
    (unless (and (cdr (assq 'kako article))
    (file-exists-p file)
    (not (and force ; force ꤵʤ¤sync
    ʤ
    (y-or-n-p "re-sync kako article?"))))
    (setq ret (navi2ch-article-update-file board article
    force)
    article (nth 0 ret)
    header (nth 1 ret))
    (when (and header
    (not (navi2ch-net-get-header 'not-updated
    header)))
    (navi2ch-article-save-info board article)
    (navi2ch-article-set-summary-element board
    article t)
    t)))))

     
  • Taiki SUGAWARA

    Taiki SUGAWARA - 2002-10-02

    Logged In: YES
    user_id=369908

    դĤΤϤäѹ
    ѤʤȤDzԤβȤʤʤΤʤ
    (defun navi2ch-article-fetch-article (board article
    &optional force)
    (if (get-buffer (navi2ch-article-get-buffer-name board
    article))
    (save-excursion
    (navi2ch-article-view-article board article force nil
    nil t))
    (let (ret header file)
    (setq article (navi2ch-article-load-info board article)
    file (navi2ch-article-get-file-name board
    article))
    (unless (and (cdr (assq 'kako article))
    (file-exists-p file)
    (not (and force ; force ꤵʤ¤
    sync ʤ
    (y-or-n-p "re-sync kako article?"))))
    (setq ret (navi2ch-article-update-file board article
    force)
    article (nth 0 ret)
    header (nth 1 ret))
    (when (and header
    (not (navi2ch-net-get-state 'not-updated
    header)))
    (navi2ch-article-save-info board article)
    (navi2ch-article-set-summary-element board
    article t)
    t)))))

     
  • Taiki SUGAWARA

    Taiki SUGAWARA - 2002-10-04
    • status: open --> closed
     
  • Taiki SUGAWARA

    Taiki SUGAWARA - 2002-10-16
    • status: closed --> open
     
  • Taiki SUGAWARA

    Taiki SUGAWARA - 2002-10-16

    Logged In: YES
    user_id=369908

    ޤꤢꤽʤǺƥץ

     
  • Anonymous

    Anonymous - 2007-04-29
    • status: open --> closed
     

Log in to post a comment.