(gnus-summary-news-other-window): Make a buffer

local copy of gnus-discouraged-post-methods with the current
method removed.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1f0d5cd..5440efc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2003-04-14  Jesper Harder  <harder@ifa.au.dk>
+
+       * gnus-msg.el (gnus-summary-news-other-window): Make a buffer
+       local copy of gnus-discouraged-post-methods with the current
+       method removed.
+
 2003-04-14  Simon Josefsson  <jas@extundo.com>
 
        * mailcap.el (mailcap-mime-data): Add application/pgp-keys.

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 84b1701..a278731 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -691,7 +691,12 @@ network.  The corresponding backend must have a 'request-post method."
                  gnus-newsgroup-name))
          ;; #### see comment in gnus-setup-message -- drv
          (gnus-setup-message 'message
-           (message-news (gnus-group-real-name gnus-newsgroup-name))))
+           (progn
+             (message-news (gnus-group-real-name gnus-newsgroup-name))
+             (set (make-local-variable 'gnus-discouraged-post-methods)
+                  (remove
+                   (car (gnus-find-method-for-group gnus-newsgroup-name))
+                   gnus-discouraged-post-methods)))))
       (save-excursion
        (set-buffer buffer)
        (setq gnus-newsgroup-name group)))))