[Emacs]navi2ch の article のバッファ名が url なので分かにくい

とりあえず、navi2ch-article.el 内の同 subst を置き換えて胡麻化す。良い方法はないのかのー。

(defsubst navi2ch-article-get-buffer-name (board article)
(let* ((navi2ch-article-buffer-name-prefix "* navi2ch(a) ")
(subj (cdr (assoc 'subject article)))
(old-buffer-name (concat navi2ch-article-buffer-name-prefix
(navi2ch-article-get-url board article 'no-kako)))
(new-buffer-name (concat navi2ch-article-buffer-name-prefix
(cdr (assoc 'name board))
" - "
subj))
(buffer (get-buffer old-buffer-name)))
(cond
((and subj
buffer) ;; t t
(with-current-buffer buffer
(rename-buffer new-buffer-name))
new-buffer-name)
((and subj
(not buffer)) ;; t n
new-buffer-name)
;;      ((and (not subj)
;; 	   buffer) ;; n t
;;       old-buffer-name)
;;      ((and (not subj)
;; 	   (not buffer)) ;; n n
;;       old-buffer-name)
(t
old-buffer-name))))