[Emacs-diffs] /srv/bzr/emacs/trunk r106808: Fix bug#9693 and bug#9697.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 106808
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sat 2012-01-07 04:52:56 +0000
message:
  Fix bug#9693 and bug#9697.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-sum.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2012-01-07 01:13:52 +0000
+++ b/lisp/gnus/ChangeLog       2012-01-07 04:52:56 +0000
@@ -1,5 +1,9 @@
 2012-01-07  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * gnus-sum.el (gnus-summary-read-group): Document more parameters
+       (bug#9693).
+       (gnus-summary-setup-buffer): Document return value (bug#9697).
+
        * mm-decode.el (mm-interactively-view-part): Use `completing-read',
        since ido doesn't work on symbols (bug#9632).
 

=== modified file 'lisp/gnus/gnus-sum.el'
--- a/lisp/gnus/gnus-sum.el     2012-01-07 01:13:52 +0000
+++ b/lisp/gnus/gnus-sum.el     2012-01-07 04:52:56 +0000
@@ -3503,7 +3503,8 @@
                                               (current-buffer))))))
 
 (defun gnus-summary-setup-buffer (group)
-  "Initialize summary buffer."
+  "Initialize summary buffer.
+If the setup was successful, non-nil is returned."
   (let ((buffer (gnus-summary-buffer-name group))
        (dead-name (concat "*Dead Summary "
                           (gnus-group-decoded-name group) "*")))
@@ -3931,7 +3932,11 @@
   "Start reading news in newsgroup GROUP.
 If SHOW-ALL is non-nil, already read articles are also listed.
 If NO-ARTICLE is non-nil, no article is selected initially.
-If NO-DISPLAY, don't generate a summary buffer."
+If NO-DISPLAY, don't generate the summary buffer contents.
+If KILL-BUFFER, it should be a buffer that's killed once the new
+summary buffer has been generated.
+If BACKWARD, move point to the previous group in the group buffer
+If SELECT-ARTICLES, only select those articles from GROUP."
   (let (result)
     (while (and group
                (null (setq result