TSUCHIYA Masatoshi
tsuch****@namaz*****
2002年 9月 27日 (金) 09:53:48 JST
>> On Thu, 26 Sep 2002 16:34:03 +0900 >> 「土」== tsuch****@pine***** (TSUCHIYA Masatoshi) said as follows: 土> Oort Gnus と T-gnus の双方に対応するために,以下のように変更したら 土> どうでしょうか. 複数の summary / article buffer が開かれていた場合に対処するために,少 し変更しました.それと,byte-compile warning を消すために defvar を加 えました. -------------- next part -------------- --- lsdb.el 13 Sep 2002 07:55:39 -0000 1.67 +++ lsdb.el 27 Sep 2002 00:52:06 -0000 @@ -1325,15 +1325,12 @@ (add-hook 'gnus-article-prepare-hook 'lsdb-gnus-update-record) (add-hook 'gnus-save-newsrc-hook 'lsdb-mode-save)) -(defvar gnus-current-headers) +(defvar gnus-article-current-summary) +(defvar gnus-original-article-buffer) (defun lsdb-gnus-update-record () - (let ((entity gnus-current-headers) - records) - (with-temp-buffer - (set-buffer-multibyte nil) - (buffer-disable-undo) - (mime-insert-entity entity) - (setq records (lsdb-update-records)) + (with-current-buffer (with-current-buffer gnus-article-current-summary + gnus-original-article-buffer) + (let ((records (lsdb-update-records))) (when records (lsdb-display-record (car records)))))) -------------- next part -------------- -- 土屋 雅稔 ( TSUCHIYA Masatoshi )