- 651 名前：642 mailto:sage [2008/12/30(火) 14:29:56 ]
- (defun howmoney-summary-check ()
(let* ((line-number (howm-view-line-number))
(item-lines (nth (1- line-number) howmoney-items))
(item-list (nth 2 item-lines)))
(unless item-list
(setq item-list
(howmoney-correct-original-items howmoney-items)))
(when item-list
(with-current-buffer (howm-view-summary-buffer)
+ (let ((riffle-type ':howm))
(howm-view-set-item-list item-list)
(howm-view-summary-show item-list)
+ )
))))
