From db7088e83a53d9f80ce6e956a3b6a6360964f019 Mon Sep 17 00:00:00 2001 From: czkmt Date: Sun, 12 Sep 1999 05:02:43 +0000 Subject: [PATCH] (gnus-offline-lang): Declare before loading `gnus-offline'. --- lisp/gnus-ofsetup.el | 25 +++++++++++++------------ 1 file changed, 13 insertions(+), 12 deletions(-) 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 @@ -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.") -- 1.7.10.4