1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 1371e700281..01f2523e0f1 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -4020,7 +4020,7 @@ See `message-citation-line-format'."
     (unless from
       (setq from (mail-header-from message-reply-headers)))
     (let* ((data (condition-case ()
-                     (funcall (if (boundp gnus-extract-address-components)
+                     (funcall (if (boundp 'gnus-extract-address-components)
                                   gnus-extract-address-components
                                 'mail-extract-address-components)
                               from)