* gnus-msg.el (gnus-inews-do-gcc): Don't use read-only-p to see

whether backend can accept message.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8310534..3c2e74c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,9 @@
 
 2004-05-18  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-msg.el (gnus-inews-do-gcc): Don't use read-only-p to see
+       whether backend can accept message.
+
        * message.el (message-idna-to-ascii-rhs-1): Don't use equalp. 
 
 2004-05-18  Kai Grossjohann  <kgrossjo@eu.uu.net>

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index da85a35..36566e7 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -6037,7 +6037,7 @@ positives are possible."
     ("\\(\\b<\\(url:[>\n\t ]*\\)?\\(nntp\\|news\\):[>\n\t ]*\\(//\\)?\\([^>\n\t ]*\\)>\\)"
      1 (>= gnus-button-message-level 0) gnus-button-fetch-group 5)
     ("\\b\\(nntp\\|news\\):\\(//\\)?\\([^'\">\n\t ]+\\)"
-     0 (>= gnus-button-message-level 0) gnus-button-fetch-group 3)
+     0 (>= gnus-button-message-level 0) gnus-button-handle-news 3)
     ;; RFC 2392 (Don't allow `/' in domain part --> CID)
     ("\\bmid:\\(//\\)?\\([^'\">\n\t ]+@[^'\">\n\t /]+\\)"
      0 (>= gnus-button-message-level 0) gnus-button-message-id 2)

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index e278c29..225aab8 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1632,7 +1632,8 @@ this is a reply."
                     (concat "^" (regexp-quote mail-header-separator) "$")
                     nil t)
                (replace-match "" t t ))
-             (when (or (gnus-group-read-only-p group)
+             (when (or (not (gnus-check-backend-function
+                             'request-accept-article group))
                        (not (setq group-art
                                   (gnus-request-accept-article
                                    group method t t))))