Merge changes made in Gnus trunk.

gnus.texi (Subscription Commands): Mention that you can also subscribe to new groups via the Server buffer, which is probably more convenient when subscribing to many groups.
gnus-group.el (gnus-group-mark-group): Use gnus-group-position-point instead of the summary one.
shr.el (shr-tag-img): Don't bug out on images that don't have a SRC.
This commit is contained in:
Gnus developers 2010-10-23 00:01:49 +00:00 committed by Katsumi Yamaoka
parent 039c6cc33e
commit 280f417b7e
5 changed files with 23 additions and 3 deletions

View file

@ -1,3 +1,9 @@
2010-10-22 Tassilo Horn <tassilo@member.fsf.org>
* gnus.texi (Subscription Commands): Mention that you can also
subscribe to new groups via the Server buffer, which is probably more
convenient when subscribing to many groups.
2010-10-21 Julien Danjou <julien@danjou.info>
* message.texi (Message Headers): Allow message-default-headers to be a

View file

@ -2211,6 +2211,12 @@ selected.
@section Subscription Commands
@cindex subscription
The following commands allow for managing your subscriptions in the
Group buffer. If you want to subscribe to many groups, it's probably
more convenient to go to the @ref{Server Buffer}, and choose the
server there using @kbd{RET} or @kbd{SPC}. Then you'll have the
commands listed in @ref{Browse Foreign Server} at hand.
@table @kbd
@item S t

View file

@ -1,3 +1,10 @@
2010-10-22 Lars Magne Ingebrigtsen <larsi@gnus.org>
* shr.el (shr-tag-img): Don't bug out on images that don't have a SRC.
* gnus-group.el (gnus-group-mark-group): Use gnus-group-position-point
instead of the summary one.
2010-10-22 Katsumi Yamaoka <yamaoka@jpl.org>
* mml.el (mml-preview): Work properly when editing article.

View file

@ -1887,7 +1887,7 @@ If FIRST-TOO, the current line is also eligible as a target."
(unless no-advance
(gnus-group-next-group 1))
(decf n))
(gnus-summary-position-point)
(gnus-group-position-point)
n))
(defun gnus-group-unmark-group (n)
@ -4009,7 +4009,7 @@ If DONT-SCAN is non-nil, scan non-activated groups as well."
(goto-char beg))
(when gnus-goto-next-group-when-activating
(gnus-group-next-unread-group 1 t))
(gnus-summary-position-point)
(gnus-group-position-point)
ret))
(defun gnus-group-fetch-control (group)

View file

@ -487,7 +487,8 @@ Return a string with image data."
(browse-url-url-encode-chars url "[)$ ]"))
(defun shr-tag-img (cont)
(when cont
(when (and cont
(cdr (assq :src cont)))
(when (and (> (current-column) 0)
(not (eq shr-state 'image)))
(insert "\n"))