* gnus-art.el (gnus-use-idna)

* gnus-start.el (gnus-site-init-file)
* message.el (message-use-idna)
* mm-uu.el (mm-uu-hide-markers)
* smiley.el (smiley-style): Revert changes that suppress warnings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8e4d3ec..36fea24 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2007-12-05  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-art.el (gnus-use-idna)
+       * gnus-start.el (gnus-site-init-file)
+       * message.el (message-use-idna)
+       * mm-uu.el (mm-uu-hide-markers)
+       * smiley.el (smiley-style): Revert changes that suppress warnings.
+
 2007-12-05  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-art.el (gnus-article-browse-html-parts): Add meta html tag to

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index db41605..474830c 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 (symbol-value 'idna-program)))
+                             (executable-find 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 6e55062..144e884 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 (symbol-value 'installation-directory)))
+              (directory-file-name 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 152872c..c9d9395 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 (symbol-value 'idna-program))
+                                (executable-find 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 bc182be..693fe73 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 (eval '(defined-colors))))
+                (length (defined-colors)))
            (and (fboundp 'device-color-cells)
                 (device-color-cells))
            0))

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