From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Mon, 29 Apr 2024 20:13:38 +0000 (-0700)
Subject: Add (semi-redundant) fix to nnatom backend declaration
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c97b4067e023b358d8e1ba0f90d63101deef8baa;p=emacs.git

Add (semi-redundant) fix to nnatom backend declaration

* lisp/gnus/gnus.el (gnus-valid-select-methods): We need a value for
post/mail/none in order to conform to the option type.
* lisp/gnus/nnatom.el: This call to gnus-declare-backend does the exact
same thing as above, and needs to be adjusted accordingly.

(cherry picked from commit 97a2710554fbd10a0c866e890f507e391620e769)
---

diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index bc8819dc967..f1fc129a505 100644
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -1360,7 +1360,7 @@ slower."
     ("nnimap" post-mail address prompt-address physical-address respool
      server-marks cloud)
     ("nnmaildir" mail respool address server-marks)
-    ("nnatom" address)
+    ("nnatom" none address)
     ("nnnil" none))
   "An alist of valid select methods.
 The first element of each list lists should be a string with the name
diff --git a/lisp/gnus/nnatom.el b/lisp/gnus/nnatom.el
index e8dfa12aff5..add9ae2dff9 100644
--- a/lisp/gnus/nnatom.el
+++ b/lisp/gnus/nnatom.el
@@ -269,7 +269,7 @@ return the subject.  Otherwise, return nil."
 (defvoo nnatom-read-parts-function #'nnatom--read-parts
   nil nnfeed-read-parts-function)
 
-(gnus-declare-backend (symbol-name nnatom-backend) 'address)
+(gnus-declare-backend (symbol-name nnatom-backend) 'none 'address)
 
 (provide 'nnatom)