navi2ch/navi2ch-faebfd1/navi2ch-board.el

35 (require 'navi2ch)
202     (list (cons 'subject str)
210   (let* ((alist (navi2ch-multibbs-url-to-board url))
211 	 (uri  (cdr (assq 'uri alist)))
212 	 (id   (cdr (assq 'id alist)))
219 	  (let* ((alist (navi2ch-alist-list-to-alist
223 		 (name (concat (or (cdr (assoc id alist))
226 	    (list (cons 'uri uri)
248 	    list)
252 	    (setq list (cons (navi2ch-board-get-matched-article) list)))
253 	  (nreverse list))))))
285 (defun navi2ch-board-insert-subjects (list)
291     (dolist (article list)
386 	(to (navi2ch-board-get-file-name
389       (setq from (prog1 to
390 		   (setq to from))))
393 	(with-temp-file to
404 	       (list (cons 'artid artid))
498      (list (assq 'bookmark board)
505   (let ((alist (navi2ch-load-info
508     (dolist (x alist)
530 	(list (cdr (assq sym navi2ch-board-current-board))))
533 	  (setq list (funcall func artid list))
535 		(navi2ch-put-alist sym list
562 				    (list (cons 'artid
639 	current-board list)
650     (setq list (cdr (assq 'bookmark board)))
651     (when (and artid (not (member artid list)))
652       (setq board (navi2ch-put-alist 'bookmark (cons artid list) board))