Synch to Oort Gnus 200303190702.

[elisp/gnus.git-] / lisp / message.el

diff --git a/lisp/message.el b/lisp/message.el
index 5134cae..7abec7f 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3990,6 +3990,7 @@ This sub function is for exclusive use of `message-send-mail'."
                  (message-narrow-to-headers)
                  (and news
                       (or (message-fetch-field "cc")
+                          (message-fetch-field "bcc")
                           (message-fetch-field "to"))
                       (let ((ct (mime-read-Content-Type)))
                         (or (not ct)
@@ -4498,8 +4499,9 @@ Otherwise, generate and save a value for `canlock-password' first."
                     (gnus-groups-from-server method)))
            errors)
        (while groups
-        (unless (or (equal (car groups) "poster")
-                    (member (car groups) known-groups))
+        (when (and (not (equal (car groups) "poster"))
+                   (not (member (car groups) known-groups))
+                   (not (member (car groups) errors)))
           (push (car groups) errors))
         (pop groups))
        (cond