aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGnus developers2010-10-23 00:01:49 +0000
committerKatsumi Yamaoka2010-10-23 00:01:49 +0000
commit280f417b7e9404fdc6b242e0b2edb0d3923055e6 (patch)
treed31f64f73d0097a0f49288e20773382ff09a6992
parent039c6cc33e93a240921b43cf70fbbd43b8ba7018 (diff)
downloademacs-280f417b7e9404fdc6b242e0b2edb0d3923055e6.tar.gz
emacs-280f417b7e9404fdc6b242e0b2edb0d3923055e6.zip
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.
-rw-r--r--doc/misc/ChangeLog6
-rw-r--r--doc/misc/gnus.texi6
-rw-r--r--lisp/gnus/ChangeLog7
-rw-r--r--lisp/gnus/gnus-group.el4
-rw-r--r--lisp/gnus/shr.el3
5 files changed, 23 insertions, 3 deletions
diff --git a/doc/misc/ChangeLog b/doc/misc/ChangeLog
index a87fb9e610e..9c768950702 100644
--- a/doc/misc/ChangeLog
+++ b/doc/misc/ChangeLog
@@ -1,3 +1,9 @@
12010-10-22 Tassilo Horn <tassilo@member.fsf.org>
2
3 * gnus.texi (Subscription Commands): Mention that you can also
4 subscribe to new groups via the Server buffer, which is probably more
5 convenient when subscribing to many groups.
6
12010-10-21 Julien Danjou <julien@danjou.info> 72010-10-21 Julien Danjou <julien@danjou.info>
2 8
3 * message.texi (Message Headers): Allow message-default-headers to be a 9 * message.texi (Message Headers): Allow message-default-headers to be a
diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi
index 7b642aefda0..a45ad232e65 100644
--- a/doc/misc/gnus.texi
+++ b/doc/misc/gnus.texi
@@ -2211,6 +2211,12 @@ selected.
2211@section Subscription Commands 2211@section Subscription Commands
2212@cindex subscription 2212@cindex subscription
2213 2213
2214The following commands allow for managing your subscriptions in the
2215Group buffer. If you want to subscribe to many groups, it's probably
2216more convenient to go to the @ref{Server Buffer}, and choose the
2217server there using @kbd{RET} or @kbd{SPC}. Then you'll have the
2218commands listed in @ref{Browse Foreign Server} at hand.
2219
2214@table @kbd 2220@table @kbd
2215 2221
2216@item S t 2222@item S t
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 7c3b91cbea7..699e1b6da5a 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,10 @@
12010-10-22 Lars Magne Ingebrigtsen <larsi@gnus.org>
2
3 * shr.el (shr-tag-img): Don't bug out on images that don't have a SRC.
4
5 * gnus-group.el (gnus-group-mark-group): Use gnus-group-position-point
6 instead of the summary one.
7
12010-10-22 Katsumi Yamaoka <yamaoka@jpl.org> 82010-10-22 Katsumi Yamaoka <yamaoka@jpl.org>
2 9
3 * mml.el (mml-preview): Work properly when editing article. 10 * mml.el (mml-preview): Work properly when editing article.
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 7152c18d145..7720c1cc7e6 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -1887,7 +1887,7 @@ If FIRST-TOO, the current line is also eligible as a target."
1887 (unless no-advance 1887 (unless no-advance
1888 (gnus-group-next-group 1)) 1888 (gnus-group-next-group 1))
1889 (decf n)) 1889 (decf n))
1890 (gnus-summary-position-point) 1890 (gnus-group-position-point)
1891 n)) 1891 n))
1892 1892
1893(defun gnus-group-unmark-group (n) 1893(defun gnus-group-unmark-group (n)
@@ -4009,7 +4009,7 @@ If DONT-SCAN is non-nil, scan non-activated groups as well."
4009 (goto-char beg)) 4009 (goto-char beg))
4010 (when gnus-goto-next-group-when-activating 4010 (when gnus-goto-next-group-when-activating
4011 (gnus-group-next-unread-group 1 t)) 4011 (gnus-group-next-unread-group 1 t))
4012 (gnus-summary-position-point) 4012 (gnus-group-position-point)
4013 ret)) 4013 ret))
4014 4014
4015(defun gnus-group-fetch-control (group) 4015(defun gnus-group-fetch-control (group)
diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index a25fc2c262a..6646cecb2fa 100644
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/shr.el
@@ -487,7 +487,8 @@ Return a string with image data."
487 (browse-url-url-encode-chars url "[)$ ]")) 487 (browse-url-url-encode-chars url "[)$ ]"))
488 488
489(defun shr-tag-img (cont) 489(defun shr-tag-img (cont)
490 (when cont 490 (when (and cont
491 (cdr (assq :src cont)))
491 (when (and (> (current-column) 0) 492 (when (and (> (current-column) 0)
492 (not (eq shr-state 'image))) 493 (not (eq shr-state 'image)))
493 (insert "\n")) 494 (insert "\n"))