[gnus git] branch master updated: n0-17-114-g9ff1923 =1= (gnus-request-article-this-buffer): Use `gnus-refer-article-methods'.

       via  9ff1923f5172cfd71e0945bf71a8aeba37822a31 (commit)
      from  fc8cecf6baaa2f2d7157e25883d367dd2eebe81c (commit)


- Log -----------------------------------------------------------------
commit 9ff1923f5172cfd71e0945bf71a8aeba37822a31
Author: Andrew Cohen <[email protected]>
Date:   Thu Jun 30 08:40:43 2011 -0400

    (gnus-request-article-this-buffer): Use	`gnus-refer-article-methods'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a5ac0eb..552adae 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-06-30  Andrew Cohen  <[email protected]>
+
+	* gnus-art.el (gnus-request-article-this-buffer): Use existing function
+	`gnus-refer-article-methods'.
+
 2011-06-30  Teodor Zlatanov  <[email protected]>
 
 	* auth-source.el: Require EPA and EPG.
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 6c3ad01..7e2d213 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -6832,23 +6832,16 @@ If given a prefix, show the hidden text instead."
 		(numberp article))
 	    (let ((gnus-override-method gnus-override-method)
 		  (methods (and (stringp article)
-				gnus-refer-article-method))
+				(with-current-buffer gnus-summary-buffer
+				  (gnus-refer-article-methods))))
 		  (backend (car (gnus-find-method-for-group
 				 gnus-newsgroup-name)))
 		  result
 		  (inhibit-read-only t))
-	      (if (or (not (listp methods))
-		      (and (symbolp (car methods))
-			   (assq (car methods) nnoo-definition-alist)))
-		  (setq methods (list methods)))
 	      (when (and (null gnus-override-method)
 			 methods)
 		(setq gnus-override-method (pop methods)))
 	      (while (not result)
-		(when (eq gnus-override-method 'current)
-		  (setq gnus-override-method
-			(with-current-buffer gnus-summary-buffer
-			  gnus-current-select-method)))
 		(erase-buffer)
 		(gnus-kill-all-overlays)
 		(let ((gnus-newsgroup-name group))

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog   |    5 +++++
 lisp/gnus-art.el |   11 ++---------
 2 files changed, 7 insertions(+), 9 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project