diff options
| author | Gerd Moellmann | 2001-09-18 12:25:52 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-09-18 12:25:52 +0000 |
| commit | c55f89a5da27ee4700804179815d78c00dd28c2c (patch) | |
| tree | 5c0be568869f95a721a0f8f3dc37193863d07b64 | |
| parent | 475e0e0c0b183b04dc0867d20ec62c931ea824f1 (diff) | |
| download | emacs-c55f89a5da27ee4700804179815d78c00dd28c2c.tar.gz emacs-c55f89a5da27ee4700804179815d78c00dd28c2c.zip | |
(gnus-request-article-this-buffer): Refer to
`gnus-current-select-method' in the current summary buffer.
From TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp>.
| -rw-r--r-- | lisp/gnus/gnus-art.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 00a444f93d2..225ef3572b4 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el | |||
| @@ -1,5 +1,7 @@ | |||
| 1 | ;;; gnus-art.el --- article mode commands for Gnus | 1 | ;;; gnus-art.el --- article mode commands for Gnus |
| 2 | ;; Copyright (C) 1996, 1997, 1998, 1999, 2000 Free Software Foundation, Inc. | 2 | |
| 3 | ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001 | ||
| 4 | ;; Free Software Foundation, Inc. | ||
| 3 | 5 | ||
| 4 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 5 | ;; Keywords: news | 7 | ;; Keywords: news |
| @@ -4048,7 +4050,9 @@ If given a prefix, show the hidden text instead." | |||
| 4048 | (setq gnus-override-method (pop methods))) | 4050 | (setq gnus-override-method (pop methods))) |
| 4049 | (while (not result) | 4051 | (while (not result) |
| 4050 | (when (eq gnus-override-method 'current) | 4052 | (when (eq gnus-override-method 'current) |
| 4051 | (setq gnus-override-method gnus-current-select-method)) | 4053 | (setq gnus-override-method |
| 4054 | (with-current-buffer gnus-summary-buffer | ||
| 4055 | gnus-current-select-method))) | ||
| 4052 | (erase-buffer) | 4056 | (erase-buffer) |
| 4053 | (gnus-kill-all-overlays) | 4057 | (gnus-kill-all-overlays) |
| 4054 | (let ((gnus-newsgroup-name group)) | 4058 | (let ((gnus-newsgroup-name group)) |