From 8a8bde047472a3b2a8a503f7ffb7f29f985298c6 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 10 Apr 2001 23:56:14 +0000 Subject: [PATCH] * nnshimbun.el: Enclose w3m stuff with `eval-and-compile'; bind `w3m-work-buffer-name' and `w3m-retrieve' when compiling. --- ChangeLog | 5 +++++ lisp/nnshimbun.el | 10 +++++++--- 2 files changed, 12 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index f820771..cb18515 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2001-04-10 Katsumi Yamaoka + + * lisp/nnshimbun.el: Enclose w3m stuff with `eval-and-compile'; + bind `w3m-work-buffer-name' and `w3m-retrieve' when compiling. + 2001-04-09 Katsumi Yamaoka * lisp/gnus-vers.el (gnus-revision-number): Increment to 10. diff --git a/lisp/nnshimbun.el b/lisp/nnshimbun.el index f497435..f661ccc 100644 --- a/lisp/nnshimbun.el +++ b/lisp/nnshimbun.el @@ -313,8 +313,12 @@ for a charset indication") (eval-and-compile (defalias-maybe 'coding-system-category 'get-code-mnemonic))) -(if (and (ignore-errors (require 'w3m)) - (fboundp 'w3m-retrieve)) +(eval-when-compile + (defvar w3m-work-buffer-name) + (autoload 'w3m-retrieve "w3m")) +(eval-and-compile + (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." @@ -388,7 +392,7 @@ for a charset indication") (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) -- 1.7.10.4