diff options
| author | Eric Abrahamsen | 2024-04-29 13:13:38 -0700 |
|---|---|---|
| committer | Eric Abrahamsen | 2024-04-29 13:13:38 -0700 |
| commit | 97a2710554fbd10a0c866e890f507e391620e769 (patch) | |
| tree | f31d83cea1c0008ef9d9f390ea3269e172dc4c85 | |
| parent | ccb49acd2afb8cec9cec1afba16e16420b9f9261 (diff) | |
| download | emacs-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.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/nnatom.el | 2 |
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. |
| 1366 | The first element of each list lists should be a string with the name | 1366 | 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." | |||
| 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 | ||