* lisp/mail/mail-utils.el (mail-dont-reply-to): Silence compiler.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 19ea787d4b8a10be043b04d1b0d8ad40a2769b90..844fcaad833f37b6559cbfc0ec27260a7f73c872 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2011-05-17  Glenn Morris  <rgm@gnu.org>
 
+       * mail/mail-utils.el (mail-dont-reply-to): Silence compiler.
+
        * progmodes/idlw-shell.el (idlwave-shell-complete-filename):
        Replace obsolete function.
 

diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index 328a5d50d34b662da0f82a4a1987690889632128..2e6f06a675840544b972252e8c65697a26a198e0 100644 (file)
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -236,7 +236,7 @@ comma-separated list, and return the pruned list."
       (setq mail-dont-reply-to-names
            (concat
             ;; `rmail-default-dont-reply-to-names' is obsolete.
-            (if rmail-default-dont-reply-to-names
+            (if (bound-and-true-p rmail-default-dont-reply-to-names)
                 (concat rmail-default-dont-reply-to-names "\\|")
               "")
             (if (and user-mail-address