GNU bug report logs - #25274
Fix bug in customizing `mail-sources' variable

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 25274 in the body.
You can then email your comments to 25274 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Bake Timmons <65pandas <at> gmail.com>
To: bug-gnu-emacs <at> gnu.org
Subject: Fix bug in customizing `mail-sources' variable
Date: Sun, 25 Dec 2016 23:35:35 -0500

[0001-Fix-bug-in-customizing-mail-sources-variable.patch (text/x-patch, inline)]

From b51b93c8b1e9a57564e750894eaa35781e496fe5 Mon Sep 17 00:00:00 2001
From: Bake Timmons <b2timmons <at> speedymail.org>
Date: Sun, 25 Dec 2016 22:03:13 -0500
Subject: [PATCH] Fix bug in customizing `mail-sources' variable

* lisp/gnus/mail-source.el (mail-sources): Use list instead of cons
for lone argument.
---
 lisp/gnus/mail-source.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el
index 59a97dbb8c..8b7c8e0847 100644
--- a/lisp/gnus/mail-source.el
+++ b/lisp/gnus/mail-source.el
@@ -66,7 +66,7 @@ See Info node `(gnus)Mail Source Specifiers'."
 	  (repeat :tag "List"
 	   (choice :format "%[Value Menu%] %v"
 		   :value (file)
-		   (cons :tag "Group parameter `mail-source'"
+		   (list :tag "Group parameter `mail-source'"
 			 (const :format "" group))
 		   (cons :tag "Spool file"
 			 (const :format "" file)
-- 
2.11.0

Message #10 received at 25274-done <at> debbugs.gnu.org (full text, mbox):

From: Katsumi Yamaoka <yamaoka <at> jpl.org>
To: Bake Timmons <65pandas <at> gmail.com>
Cc: 25274-done <at> debbugs.gnu.org
Subject: Re: bug#25274: Fix bug in customizing `mail-sources' variable
Date: Tue, 27 Dec 2016 15:39:35 +0900

On Sun, 25 Dec 2016 23:35:35 -0500, Bake Timmons wrote:
> --- a/lisp/gnus/mail-source.el
> +++ b/lisp/gnus/mail-source.el
> @@ -66,7 +66,7 @@ See Info node `(gnus)Mail Source Specifiers'."
>  	  (repeat :tag "List"
>  	   (choice :format "%[Value Menu%] %v"
>  		   :value (file)
> -		   (cons :tag "Group parameter `mail-source'"
> +		   (list :tag "Group parameter `mail-source'"
>  			 (const :format "" group))
>  		   (cons :tag "Spool file"
>  			 (const :format "" file)

I verified the present code causes an error and applied the patch
to the master.  Thanks.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.