[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
nnshimbun patch
- From: TSUCHIYA Masatoshi <tsuchiya@xxxxxxxxxxxxxxxxxxxxxxx>
- Date: 13 Mar 2001 20:38:28 +0900
- X-ml-name: emacs-w3m
- X-mail-count: 00205
以下のパッチを適用すると、nnshimbun.el の url-*.el 依存部分をなくすこ
とが出来ます。
--- nnshimbun.el.orig Sat Mar 10 15:57:37 2001
+++ nnshimbun.el Sat Mar 10 18:51:48 2001
@@ -313,6 +313,14 @@
(eval-and-compile
(defalias-maybe 'coding-system-category 'get-code-mnemonic)))
+(if (and (ignore-errors (require 'w3m))
+ (fboundp 'w3m-retrieve))
+;; When w3m.el is available.
+(defun nnshimbun-retrieve-url (url &optional no-cache)
+ "Rertrieve URL contents and insert to current buffer."
+ (when (w3m-retrieve url nil nil no-cache)
+ (insert-buffer w3m-work-buffer-name)))
+;; Otherwise.
(defun nnshimbun-retrieve-url (url &optional no-cache)
"Rertrieve URL contents and insert to current buffer."
(let ((buf (current-buffer))
@@ -380,6 +388,7 @@
(set-buffer buf)
(insert-buffer url-working-buffer)
(kill-buffer url-working-buffer)))
+)
(deffoo nnshimbun-request-article (article &optional group server to-buffer)
(when (nnshimbun-possibly-change-group group server)
# 後は nnweb.el に依存しないように改造すれば、完全に url-*.el 非依存に
# なって、run-time CL と縁が切れるかも、とか夢想中。
## url-*.el によるダウンロードよりも速度が速いような気がする、ってプラ
## シーボ入ってるかな。
--
土屋 雅稔 ( TSUCHIYA Masatoshi )
http://www-nagao.kuee.kyoto-u.ac.jp/member/tsuchiya/