bug#58546: 29.0.50; Customizing 'message-server-alist' fails with backtrace

[Mauro Aranda <maurooaranda@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 550 bytes --]

Stefan Kangas <stefankangas@gmail.com> writes:

 > When I evaluate this in emacs -Q:
 >
 >     (progn (require 'message)
 >            (customize-option 'message-server-alist))
 >
 > It fails with this backtrace:
 >
 > Debugger entered--Lisp error: (void-function nil)
 >   nil((quote :args ((choice (string :tag "From Address") (function
 > :tag "Predicate")))))

When wid-edit tries to create a widget of type "quote", it usually
indicates double quoting in the :type definition.

The attached patch should fix it, please confirm.

[-- Attachment #2: 0001-Fix-message-server-alist-type-Bug-58546.patch --]
[-- Type: text/x-patch, Size: 1060 bytes --]

From 0489230cc9ce93105ae4779d6dfa09b5b30832d0 Mon Sep 17 00:00:00 2001
From: Mauro Aranda <maurooaranda@gmail.com>
Date: Sat, 15 Oct 2022 10:01:09 -0300
Subject: [PATCH] ; Fix message-server-alist :type (Bug#58546)

---
 lisp/gnus/message.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 67ec0531fa..5e4e9854a6 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -4361,10 +4361,10 @@ message-server-alist
 the function will be inserted instead.
 If the buffer already has a\"X-Message-SMTP-Method\" header,
 it is left unchanged."
-  :type '(alist :key-type '(choice
-                            (string :tag "From Address")
-                            (function :tag "Predicate"))
-                :value-type 'string)
+  :type '(alist :key-type (choice
+                           (string :tag "From Address")
+                           (function :tag "Predicate"))
+                :value-type string)
   :version "29.1"
   :group 'message-sending)
 
-- 
2.34.1