From: yamaoka <yamaoka>
Date: Fri, 2 Jul 1999 13:10:17 +0000 (+0000)
Subject: (gnus-startup-file-coding-system): Use `static-if'.
X-Git-Tag: et-gnus-6_11_04-02~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a109a085e1d8f3daef9ce923bbf40d8fec78fdc6;p=elisp%2Fgnus.git-

(gnus-startup-file-coding-system): Use `static-if'.
(TopLevel): Require `static'.
---

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index ff75518..8902ab3 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -32,7 +32,9 @@
 (require 'gnus-range)
 (require 'gnus-util)
 (require 'message)
-(eval-when-compile (require 'cl))
+(eval-when-compile
+  (require 'cl)
+  (require 'static))
 
 (defcustom gnus-startup-file (nnheader-concat gnus-home-directory ".newsrc")
   "Your `.newsrc' file.
@@ -395,7 +397,7 @@ Can be used to turn version control on or off."
   :group 'gnus-newsrc
   :type 'boolean)
 
-(defvar gnus-startup-file-coding-system (if (boundp 'MULE)
+(defvar gnus-startup-file-coding-system (static-if (boundp 'MULE)
 					    '*ctext*
 					  'ctext)
   "*Coding system for startup file.")