* gnus-art.el (gnus-use-idna): Don't directly refer to the value of

 idna-program in order to suppress byte compile warning issued by XEmacs that
 came to byte compile the default value section of defcustom forms recently.

* gnus-start.el (gnus-site-init-file): Don't directly refer to the value of
 installation-directory.

* message.el (message-use-idna): Don't directly refer to the value of
 idna-program.

* mm-uu.el (mm-uu-hide-markers): Don't directly call defined-colors.

* smiley.el (smiley-style): Don't directly call face-attribute.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 079a7d5..d28d2d5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,20 @@
+2007-12-05  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-art.el (gnus-use-idna): Don't directly refer to the value of
+       idna-program in order to suppress byte compile warning issued by XEmacs
+       that came to byte compile the default value section of defcustom forms
+       recently.
+
+       * gnus-start.el (gnus-site-init-file): Don't directly refer to the
+       value of installation-directory.
+
+       * message.el (message-use-idna): Don't directly refer to the value of
+       idna-program.
+
+       * mm-uu.el (mm-uu-hide-markers): Don't directly call defined-colors.
+
+       * smiley.el (smiley-style): Don't directly call face-attribute.
+
 2007-12-04  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * gnus-group.el (gnus-group-highlight-line): Add FIXME.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 8dd0aaa..2ec1fcf 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1601,7 +1601,7 @@ It is a string, such as \"PGP\". If nil, ask user."
 
 (defcustom gnus-use-idna (and (condition-case nil (require 'idna) (file-error))
                              (mm-coding-system-p 'utf-8)
-                             (executable-find idna-program))
+                             (executable-find (symbol-value 'idna-program)))
   "Whether IDNA decoding of headers is used when viewing messages.
 This requires GNU Libidn, and by default only enabled if it is found."
   :version "22.1"

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 144e884..6e55062 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -80,7 +80,7 @@ If a file with the `.el' or `.elc' suffixes exists, it will be read instead."
 (defcustom gnus-site-init-file
   (condition-case nil
       (concat (file-name-directory
-              (directory-file-name installation-directory))
+              (directory-file-name (symbol-value 'installation-directory)))
              "site-lisp/gnus-init")
     (error nil))
   "The site-wide Gnus Emacs-Lisp startup file name, or nil if none.

diff --git a/lisp/message.el b/lisp/message.el
index c9d9395..152872c 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1600,7 +1600,7 @@ no, only reply back to the author."
 (defcustom message-use-idna (and (condition-case nil (require 'idna)
                                   (file-error))
                                 (mm-coding-system-p 'utf-8)
-                                (executable-find idna-program)
+                                (executable-find (symbol-value 'idna-program))
                                 (string= (idna-to-ascii "räksmörgås")
                                          "xn--rksmrgs-5wao1o")
                                 t)

diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el
index 693fe73..bc182be 100644 (file)
--- a/lisp/mm-uu.el
+++ b/lisp/mm-uu.el
@@ -236,7 +236,7 @@ To disable dissecting shar codes, for instance, add
 ;; 21 and XEmacs don't support it.
 (defcustom mm-uu-hide-markers
   (< 16 (or (and (fboundp 'defined-colors)
-                (length (defined-colors)))
+                (length (eval '(defined-colors))))
            (and (fboundp 'device-color-cells)
                 (device-color-cells))
            0))

diff --git a/lisp/smiley.el b/lisp/smiley.el
index b0f1948..2e30101 100644 (file)
--- a/lisp/smiley.el
+++ b/lisp/smiley.el
@@ -62,7 +62,7 @@
 
 (defcustom smiley-style
   (if (or (and (fboundp 'face-attribute)
-              (>= (face-attribute 'default :height) 160))
+              (>= (eval '(face-attribute 'default :height)) 160))
          (and (fboundp 'face-height)
               (>= (face-height 'default) 14)))
       'medium