From: yamaoka <yamaoka>
Date: Tue, 10 Apr 2001 23:56:14 +0000 (+0000)
Subject: * nnshimbun.el: Enclose w3m stuff with `eval-and-compile';
X-Git-Tag: t-gnus-6_15_3-00-quimby~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8a8bde047472a3b2a8a503f7ffb7f29f985298c6;p=elisp%2Fgnus.git-

* nnshimbun.el: Enclose w3m stuff with `eval-and-compile';
 bind `w3m-work-buffer-name' and `w3m-retrieve' when compiling.
---

diff --git a/ChangeLog b/ChangeLog
index f820771..cb18515 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-04-10  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* 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 <yamaoka@jpl.org>
 
 	* 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)