aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEric Abrahamsen2024-04-29 13:13:38 -0700
committerEric Abrahamsen2024-04-29 13:13:38 -0700
commit97a2710554fbd10a0c866e890f507e391620e769 (patch)
treef31d83cea1c0008ef9d9f390ea3269e172dc4c85
parentccb49acd2afb8cec9cec1afba16e16420b9f9261 (diff)
downloademacs-97a2710554fbd10a0c866e890f507e391620e769.tar.gz
emacs-97a2710554fbd10a0c866e890f507e391620e769.zip
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.
-rw-r--r--lisp/gnus/gnus.el2
-rw-r--r--lisp/gnus/nnatom.el2
2 files changed, 2 insertions, 2 deletions
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."
1360 ("nnimap" post-mail address prompt-address physical-address respool 1360 ("nnimap" post-mail address prompt-address physical-address respool
1361 server-marks cloud) 1361 server-marks cloud)
1362 ("nnmaildir" mail respool address server-marks) 1362 ("nnmaildir" mail respool address server-marks)
1363 ("nnatom" address) 1363 ("nnatom" none address)
1364 ("nnnil" none)) 1364 ("nnnil" none))
1365 "An alist of valid select methods. 1365 "An alist of valid select methods.
1366The first element of each list lists should be a string with the name 1366The 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."
269(defvoo nnatom-read-parts-function #'nnatom--read-parts 269(defvoo nnatom-read-parts-function #'nnatom--read-parts
270 nil nnfeed-read-parts-function) 270 nil nnfeed-read-parts-function)
271 271
272(gnus-declare-backend (symbol-name nnatom-backend) 'address) 272(gnus-declare-backend (symbol-name nnatom-backend) 'none 'address)
273 273
274(provide 'nnatom) 274(provide 'nnatom)
275 275