diff options
| author | Stefan Monnier | 2019-06-14 02:51:07 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2019-06-14 02:51:07 -0400 |
| commit | 622bfdffa8b0c830bc6a979a2e9c114bad1ac114 (patch) | |
| tree | 687c5fbe96f628dcc1bda5863b6dc693c7495f93 | |
| parent | 5e09ace07435b3897db7d113c9e813aa6856fc63 (diff) | |
| download | emacs-622bfdffa8b0c830bc6a979a2e9c114bad1ac114.tar.gz emacs-622bfdffa8b0c830bc6a979a2e9c114bad1ac114.zip | |
* lisp/gnus/message.el: Fix NNTP sending, broken by e51adfbdb7
(message-check-news-header-syntax): `message--check-continuation-headers`
signals an error instead of returning nil on error.
| -rw-r--r-- | lisp/gnus/message.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 9ce35cece47..986567faa1f 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el | |||
| @@ -5165,8 +5165,8 @@ Otherwise, generate and save a value for `canlock-password' first." | |||
| 5165 | "Really post to %s unknown group%s: %s? " | 5165 | "Really post to %s unknown group%s: %s? " |
| 5166 | (if (= (length errors) 1) "this" "these") | 5166 | (if (= (length errors) 1) "this" "these") |
| 5167 | (if (= (length errors) 1) "" "s") | 5167 | (if (= (length errors) 1) "" "s") |
| 5168 | (mapconcat 'identity errors ", "))))))) | 5168 | (mapconcat #'identity errors ", "))))))) |
| 5169 | (message--check-continuation-headers) | 5169 | (progn (message--check-continuation-headers) t) |
| 5170 | ;; Check the Newsgroups & Followup-To headers for syntax errors. | 5170 | ;; Check the Newsgroups & Followup-To headers for syntax errors. |
| 5171 | (message-check 'valid-newsgroups | 5171 | (message-check 'valid-newsgroups |
| 5172 | (let ((case-fold-search t) | 5172 | (let ((case-fold-search t) |