[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

nnshimbun patch



以下のパッチを適用すると、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/