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 bc8819dc96795e244b40bd1670cbdedea9881fe5..f1fc129a5050ebfbffedde6ba52baa20746c6b81 100644 (file)
--- 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 e8dfa12aff520a9a79ed6de6d57caad8c5233e1a..add9ae2dff9c6c43358b881822fe92d7207fb1e6 100644 (file)
--- 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)