From b93673562df770580550bb7aedcc33be4c51bd90 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Wed, 5 Dec 2007 23:45:58 +0000 Subject: [PATCH] * 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. --- lisp/ChangeLog | 8 ++++++++ lisp/gnus-art.el | 2 +- lisp/gnus-start.el | 2 +- lisp/message.el | 2 +- lisp/mm-uu.el | 2 +- lisp/smiley.el | 2 +- 6 files changed, 13 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8e4d3ecf1..36fea24b3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2007-12-05 Katsumi Yamaoka + + * 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 * 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 db416051f..474830cfa 100644 --- 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 6e5506253..144e8845b 100644 --- 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 152872c97..c9d939598 100644 --- 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 bc182be67..693fe73d0 100644 --- 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 2e3010104..b0f194893 100644 --- 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 -- 2.34.1