[gnus git] branch master updated: n0-13-107-g593e88e =2= * gnus-art.el (gnus-article-treat-body-boundary): Fix boundary width on XEmacs, which was one character too wide. ; * gnus-sum.el (gnus-articles-to-read): Use gnus-large-newsgroup as default number of articles to display. (gnus-articles-to-read): Use pretty names for prompt.

       via  593e88e819db92fd8297a062aa3e47e6e3b775e8 (commit)
       via  326877efbc539ce00ce52fbb581f9ba377591571 (commit)
      from  5f010ae4af62767b310552982e231d082ac51652 (commit)


- Log -----------------------------------------------------------------
commit 593e88e819db92fd8297a062aa3e47e6e3b775e8
Author: Nelson Ferreira <[email protected]>
Date:   Tue Mar 15 17:31:01 2011 +0100

    * gnus-art.el (gnus-article-treat-body-boundary): Fix boundary width on
    XEmacs, which was one character too wide.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 97d427f..8908666 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-03-15  Nelson Ferreira  <[email protected]>  (tiny change)
+
+	* gnus-art.el (gnus-article-treat-body-boundary): Fix boundary width on
+	XEmacs, which was one character too wide.
+
 2011-03-09  Antoine Levitt  <[email protected]>
 
 	* gnus-sum.el (gnus-articles-to-read): Use gnus-large-newsgroup as
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index c64138b..20ffa8e 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2337,10 +2337,12 @@ long lines if and only if arg is positive."
       (let ((start (point)))
 	(insert "X-Boundary: ")
 	(gnus-add-text-properties start (point) '(invisible t intangible t))
-	(insert (let (str)
-		  (while (>= (window-width) (length str))
+       (insert (let (str (max (window-width)))
+                 (if (featurep 'xemacs)
+                     (setq max (1- max)))
+                 (while (>= max (length str))
 		    (setq str (concat str gnus-body-boundary-delimiter)))
-		  (substring str 0 (window-width)))
+                 (substring str 0 max))
 		"\n")
 	(gnus-put-text-property start (point) 'gnus-decoration 'header)))))
 

commit 326877efbc539ce00ce52fbb581f9ba377591571
Author: Antoine Levitt <[email protected]>
Date:   Tue Mar 15 17:23:19 2011 +0100

    * gnus-sum.el (gnus-articles-to-read): Use gnus-large-newsgroup as
    default number of articles to display.
    (gnus-articles-to-read): Use pretty names for prompt.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e7bcd39..97d427f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-03-09  Antoine Levitt  <[email protected]>
+
+	* gnus-sum.el (gnus-articles-to-read): Use gnus-large-newsgroup as
+	default number of articles to display.
+	(gnus-articles-to-read): Use pretty names for prompt.
+
 2011-03-15  Lars Magne Ingebrigtsen  <[email protected]>
 
 	* gnus-int.el (gnus-open-server): Ditto.
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index a8786e3..bc572f2 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -5848,13 +5848,13 @@ If SELECT-ARTICLES, only select those articles from GROUP."
 			 (input
 			  (read-string
 			   (format
-			    "How many articles from %s (%s %d): "
-			    (gnus-group-decoded-name gnus-newsgroup-name)
-			    (if initial "max" "default")
-			    number)
-			   (if initial
-			       (cons (number-to-string initial)
-				     0)))))
+			    "How many articles from %s (available %d, default %d): "
+			    (gnus-group-decoded-name (gnus-group-real-name gnus-newsgroup-name))
+			    number
+			    (or initial gnus-large-newsgroup))
+			   nil
+			   nil
+			   (number-to-string (or initial gnus-large-newsgroup)))))
 		    (if (string-match "^[ \t]*$" input) number input)))
 		 ((and (> scored marked) (< scored number)
 		       (> (- scored number) 20))
@@ -5862,7 +5862,7 @@ If SELECT-ARTICLES, only select those articles from GROUP."
 			 (read-string
 			  (format "%s %s (%d scored, %d total): "
 				  "How many articles from"
-				  (gnus-group-decoded-name group)
+				  (gnus-group-decoded-name (gnus-group-real-name gnus-newsgroup-name))
 				  scored number))))
 		    (if (string-match "^[ \t]*$" input)
 			number input)))

-----------------------------------------------------------------------
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   |   11 +++++++++++
 lisp/gnus-art.el |    8 +++++---
 lisp/gnus-sum.el |   16 ++++++++--------
 3 files changed, 24 insertions(+), 11 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