[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[mhc:00521] Re: mhc-cvs.el and Gnus support
白井> 実は、CVSROOT を設定していない :ext:, :pserver: な設定の client
白井> が全然動かなくなってしまいました。
パッチ了解しました。応急的な処置として、以下のようにパッチをあてれば、
checkout も含めて正常に動作するようになります。
Index: mhc-cvs.el
===================================================================
RCS file: /home/tsuchiya/CVS/projects/mhc/mhc-cvs.el,v
retrieving revision 1.4
diff -u -u -r1.4 mhc-cvs.el
--- mhc-cvs.el 2000/04/20 02:42:45 1.4
+++ mhc-cvs.el 2000/04/20 05:02:24
@@ -51,9 +51,9 @@
(and (file-directory-p dir) (expand-file-name "CVS" dir))
(if (file-directory-p dir)
(mhc-cvs/sync)
- (mhc-cvs/backend "-d" (mhc-cvs/read-repository-path)
- "checkout"
- (file-name-nondirectory (mhc-summary-folder-to-path mhc-base-folder)))))))
+ (let ((module (file-name-nondirectory (mhc-summary-folder-to-path mhc-base-folder)))
+ (mhc-base-folder ""))
+ (mhc-cvs/backend "-d" (mhc-cvs/read-repository-path) "checkout" module))))))
(defun mhc-cvs/read-repository-path ()
"CVSレポジトリのパス名を入力する関数"
@@ -112,7 +112,8 @@
(set-buffer buffer)
(buffer-disable-undo)
(delete-region (point-min) (point-max))
- (let ((default-directory (file-name-as-directory (expand-file-name mhc-mail-path))))
+ (let ((default-directory (file-name-as-directory
+ (mhc-summary-folder-to-path mhc-base-folder))))
(apply 'call-process "cvs" nil t nil "-f" "-w" options)))
(set-buffer current-buffer))))
--
土屋 雅稔 ( TSUCHIYA Masatoshi )
http://www-nagao.kuee.kyoto-u.ac.jp/member/tsuchiya/