From 1805e7894fe449e797772d136914965587d952e1 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 14 Apr 2003 22:14:54 +0000 Subject: [PATCH] Synch to Oort Gnus 200304142212. --- lisp/ChangeLog | 11 +++++++++++ lisp/gnus-msg.el | 7 ++++++- 2 files changed, 17 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1f0d5cd..9d4f05a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,14 @@ +2003-04-14 Katsumi Yamaoka + + * gnus-msg.el (gnus-summary-news-other-window): Use delq instead + of remove which is a cl run-time function in Emacs 20. + +2003-04-14 Jesper Harder + + * 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 * mailcap.el (mailcap-mime-data): Add application/pgp-keys. diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 3f3eca3..d0306f5 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -720,7 +720,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) + (delq + (car (gnus-find-method-for-group gnus-newsgroup-name)) + gnus-discouraged-post-methods))))) (save-excursion (set-buffer buffer) (setq gnus-newsgroup-name group))))) -- 1.7.10.4