diff options
| author | Lars Ingebrigtsen | 2019-11-27 12:44:58 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-11-27 12:44:58 +0100 |
| commit | fd63880540bc8853a709e5a52c2565301a3d74eb (patch) | |
| tree | 5fd90e021ac46b8b592797fe916461142e224f30 | |
| parent | 215f678c7262db2ed353f2bf1e0a97c59a452605 (diff) | |
| download | emacs-fd63880540bc8853a709e5a52c2565301a3d74eb.tar.gz emacs-fd63880540bc8853a709e5a52c2565301a3d74eb.zip | |
Make message-allow-no-recipients 'always work
* lisp/gnus/message.el (message-send): Make
message-allow-no-recipients 'always work.
| -rw-r--r-- | lisp/gnus/message.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index c66b551c1e4..f33454e7047 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el | |||
| @@ -4247,9 +4247,9 @@ It should typically alter the sending method in some way or other." | |||
| 4247 | (let ((fcc (message-fetch-field "Fcc")) | 4247 | (let ((fcc (message-fetch-field "Fcc")) |
| 4248 | (gcc (message-fetch-field "Gcc"))) | 4248 | (gcc (message-fetch-field "Gcc"))) |
| 4249 | (when (or fcc gcc) | 4249 | (when (or fcc gcc) |
| 4250 | (or (eq message-allow-no-recipients 'always) | 4250 | (setq dont-barf-on-no-method |
| 4251 | (and (not (eq message-allow-no-recipients 'never)) | 4251 | (or (eq message-allow-no-recipients 'always) |
| 4252 | (setq dont-barf-on-no-method | 4252 | (and (not (eq message-allow-no-recipients 'never)) |
| 4253 | (y-or-n-p | 4253 | (y-or-n-p |
| 4254 | (format "No receiver, perform %s anyway? " | 4254 | (format "No receiver, perform %s anyway? " |
| 4255 | (cond ((and fcc gcc) "Fcc and Gcc") | 4255 | (cond ((and fcc gcc) "Fcc and Gcc") |