土屋です。
shimbun を利用した nnshimbun.el の新版です。
shimbun とは、nnshimbun.el からページの取得・整形の部分のみを取り出し
たライブラリで、現在、emacs-w3m ML にて寺西さんを中心として開発が進め
られています。
おもな変更点は
(a) 閲覧できるページがかなり増えています。
(b) 新規のページに対応するのも容易になっています。
(c) mew.org で提供されていた幾つかの meadow-develop などの ML archive
については、提供場所の移転などもあり、従来の設定では閲覧できないよ
うになっています。
などです。
使い方は次の通り。
(1) emacs-w3m と shimbun ライブラリをインストール
(2) 従来の nnshimbun.el を添付したファイルで置き換え、必要なら
byte-compile する
(3) gnus-group-make-shimbun-group が正常に動作しなくなるので、
gnus-group.el に添付したパッチを適用する
動作レポートをお願いします。
Attachment:
nnshimbun.el.gz
Description: Binary data
Index: gnus-group.el =================================================================== RCS file: /cvs/root/gnus/lisp/gnus-group.el,v retrieving revision 1.1.1.14.4.18.2.18.2.14 diff -u -u -r1.1.1.14.4.18.2.18.2.14 gnus-group.el --- gnus-group.el 2001/04/09 02:49:45 1.1.1.14.4.18.2.18.2.14 +++ gnus-group.el 2001/05/27 08:55:30 @@ -2433,22 +2433,34 @@ "Create a nnshimbun group." (interactive) (require 'nnshimbun) - (let* ((minibuffer-setup-hook (append minibuffer-setup-hook - '(beginning-of-line))) - (server (completing-read "Shimbun address: " - nnshimbun-type-definition nil t - (or (car gnus-group-shimbun-server-history) - (caar nnshimbun-type-definition)) - 'gnus-group-shimbun-server-history)) - (group (completing-read - "Group name: " + (let* ((minibuffer-setup-hook + (append minibuffer-setup-hook '(beginning-of-line))) + (alist + (apply 'nconc (mapcar - 'list - (cdr (assq 'groups - (cdr (assoc server nnshimbun-type-definition))))) - nil t nil)) - (nnshimbun-pre-fetch-article nil)) - (gnus-group-make-group group (list 'nnshimbun server)))) + (lambda (d) + (delq nil + (mapcar + (lambda (f) + (and (string-match "^sb-\\(.*\\)\\.el$" f) + (list (match-string 1 f)))) + (directory-files d)))) + load-path))) + (server (completing-read + "Shimbun address: " + alist nil t + (or (car gnus-group-shimbun-server-history) + (caar alist)) + 'gnus-group-shimbun-server-history)) + (groups) + (nnshimbun-pre-fetch-article)) + (require (intern (concat "sb-" server))) + (when (setq groups (intern-soft (concat "shimbun-" server "-groups"))) + (gnus-group-make-group + (completing-read "Group name: " + (mapcar 'list (symbol-value groups)) + nil t nil) + (list 'nnshimbun server))))) (defun gnus-group-make-archive-group (&optional all) "Create the (ding) Gnus archive group of the most recent articles.
--
土屋 雅稔 ( TSUCHIYA Masatoshi )
http://www-nagao.kuee.kyoto-u.ac.jp/member/tsuchiya/