[gnus git] branch master updated: m0-5-56-g206e383 =1= * gnus-sum.el (gnus-summary-limit-to-author): Use default value instead of initial input when reading the author to restrict the summary to.

       via  206e383b9779521052d9ac3f98c9acfe415275c1 (commit)
      from  6d942f0a7e11bef0dddeb29736346493ffa0f4eb (commit)


- Log -----------------------------------------------------------------
commit 206e383b9779521052d9ac3f98c9acfe415275c1
Author: Tassilo Horn <[email protected]>
Date:   Mon Jul 9 14:05:08 2012 +0200

    * gnus-sum.el (gnus-summary-limit-to-author): Use default value instead
    of initial input when reading the author to restrict the summary to.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6cf41e6..2bf2c71 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-07-09  Tassilo Horn  <[email protected]>
+
+	* gnus-sum.el (gnus-summary-limit-to-author): Use default value instead
+	of initial input when reading the author to restrict the summary to.
+
 2012-07-09  Katsumi Yamaoka  <[email protected]>
 
 	* mm-decode.el (mm-shr):
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index afc0231..b7711da 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -8239,14 +8239,17 @@ If NOT-MATCHING, excluding articles that have subjects that match a regexp."
   "Limit the summary buffer to articles that have authors that match a regexp.
 If NOT-MATCHING, excluding articles that have authors that match a regexp."
   (interactive
-   (list (read-string (if current-prefix-arg
-			  "Exclude author (regexp): "
-			"Limit to author (regexp): ")
-		      (let ((header (gnus-summary-article-header)))
-			(if (not header)
-			    ""
-			  (car (mail-header-parse-address
+   (list (let* ((header (gnus-summary-article-header))
+		(default (and header (car (mail-header-parse-address
 				(mail-header-from header))))))
+	   (read-string (concat (if current-prefix-arg
+				    "Exclude author (regexp"
+				  "Limit to author (regexp")
+				(if default
+				    (concat ", default \"" default "\"): ")
+				  "): "))
+			nil nil
+			default))
 	 current-prefix-arg))
   (gnus-summary-limit-to-subject from "from" not-matching))
 

-----------------------------------------------------------------------
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-sum.el |   19 +++++++++++--------
 2 files changed, 16 insertions(+), 8 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