[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[mhc:00526] Re: About T-gnus support ( Re: Variable binding depth exceeds max-specpdl-size )
土屋です。
>> On Mon, 17 Apr 2000 10:54:45 +0900
>> 「三好」== miyoshi@xxxxxxxxxxxxxxxxx (MIYOSHI Masanori) said as follows:
三好> 正式には、スケジュールのある場所を、ポイント値で
三好> gnus-newsgroup-data に設定しないといけません。しかし、これがまた
三好> 面倒なので、手抜きをして未設定のままになっています。
かなり強引な方法ですが、以下のようにして point 値を設定するようにして
みました。
Index: mhc.el
===================================================================
RCS file: /home/tsuchiya/CVS/projects/mhc/mhc.el,v
retrieving revision 1.7
diff -u -u -r1.7 mhc.el
--- mhc.el 2000/04/19 14:52:09 1.7
+++ mhc.el 2000/04/20 09:38:51
@@ -338,7 +338,7 @@
(setq header
(make-full-mail-header 0 (eword-encode-string
(mhc-sch-subject sch))))
- (push (gnus-data-make num 0 nil header 0) gnus-newsgroup-data))
+ (push (gnus-data-make num 0 (point-marker) header 0) gnus-newsgroup-data))
(remove-text-properties 0 (length insert)
'(gnus-number nil) insert)))))
(insert insert)
@@ -447,7 +447,7 @@
(mhc-summary-folder-to-path mhc-base-folder)))))
"\\|"))
(gnus-activate-group pvgroup 'scan)
- (make-local-variable 'gnus-newsgroup-data)))))
+ (gnus-summary-make-local-variables)))))
(message "Scanning %s ..." (ddate-yymm-s1 ddate "/"))
(mhc-sch-scan (ddate-mm-first-day ddate)
(ddate-mm-last-day ddate)
@@ -481,6 +481,15 @@
(run-hooks 'mhc-mode-hook)
(setq inhibit-read-only nil)
(setq buffer-read-only t))
+ (if (eq mhc-mailer-package 'gnus)
+ (let ((marker) (data gnus-newsgroup-data))
+ (while data
+ (setq marker (gnus-data-pos (car data)))
+ (gnus-data-set-pos (car data) (marker-position marker))
+ (set-marker marker nil)
+ (setq data (cdr data)))
+ (setq gnus-newsgroup-begin (gnus-data-number (gnus-last-element gnus-newsgroup-data))
+ gnus-newsgroup-end (gnus-data-number (car gnus-newsgroup-data)))))
(message "Scanning %s ... done." (ddate-yymm-s1 ddate "/"))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
でも、まだ N, P は使えません。というか、使えるんですけど、出鱈目なとこ
ろに移動してくれます。こんな小手先の修正では駄目なのかなぁ。
土屋> あと、nndir:/home/tsuchiya/.T-gnus/MHC/schedule/2000/04/ というグルー
土屋> プが大量に出来てしまうのも、ちょっと嫌な感じがします。うまく隠してしま
土屋> う方法はないものでしょうか?
三好> MH 形式のデータを一時的に参照するための適当なバックエンドはないで
三好> しょうか? nneething と同じ感覚で使えればよいのですが。
今、Semi-gnus ML の方でひとしきり騒いでいますが、その解として一時的な
グループが適当なのではないでしょうか。ただ、構成グループを変更しても、
うまく記事番号との対応付けが rescan してくれないので、困っているところ
です。
--
土屋 雅稔 ( TSUCHIYA Masatoshi )
http://www-nagao.kuee.kyoto-u.ac.jp/member/tsuchiya/