From: czkmt <czkmt>
Date: Sun, 12 Sep 1999 05:02:43 +0000 (+0000)
Subject: (gnus-offline-lang): Declare before loading `gnus-offline'.
X-Git-Tag: t-gnus-6_13_1-04~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=db7088e83a53d9f80ce6e956a3b6a6360964f019;p=elisp%2Fgnus.git-

(gnus-offline-lang): Declare before loading `gnus-offline'.
---

diff --git a/lisp/gnus-ofsetup.el b/lisp/gnus-ofsetup.el
index 8160950..7566344 100644
--- a/lisp/gnus-ofsetup.el
+++ b/lisp/gnus-ofsetup.el
@@ -1,6 +1,6 @@
 ;;; gnus-ofsetup.el --- Setup advisor for Offline reading for Mail/News.
 ;;;
-;;; $Id: gnus-ofsetup.el,v 1.1.2.19.4.6 1999-09-03 15:44:25 czkmt Exp $
+;;; $Id: gnus-ofsetup.el,v 1.1.2.19.4.7 1999-09-12 05:02:43 czkmt Exp $
 ;;;
 ;;; Copyright (C) 1998 Tatsuya Ichikawa
 ;;; Author: Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
@@ -32,6 +32,18 @@
 
 ;;; Code:
 
+(eval-and-compile
+  (defvar gnus-offline-lang
+    (cond ((and (featurep 'meadow)
+		(string= current-language-environment "Japanese"))
+	   "ja_complete")
+	  ((and (boundp 'current-language-environment)
+		(string= current-language-environment "Japanese"))
+	   "ja")
+	  (t
+	   "en"))
+    "This variable decides which language will be used for display."))
+
 (eval-when-compile
   (require 'gnus-offline))
 
@@ -178,17 +190,6 @@
     (let ((forms (symbol-value list)))
       `(progn ,@forms))))
 
-(defvar gnus-offline-lang
-  (cond ((and (featurep 'meadow)
-	      (string= current-language-environment "Japanese"))
-	 "ja_complete")
-	((and (boundp 'current-language-environment)
-	      (string= current-language-environment "Japanese"))
-	 "ja")
-	(t
-	 "en"))
-  "This variable decides which language will be used for display.")
-
 (defvar gnus-ofsetup-resource-en
   '((prepare-miee-1
      . "Making directories failed. Set mail/news spool directories properly.")