Mercurial > emacs
changeset 109436:78cc63913bba
Make gnus-summary-bookmark-make-record work for Emacs 23 as well.
2010-07-15 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-sum.el (gnus-summary-bookmark-make-record): Make it work for
Emacs 23 as well.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Thu, 15 Jul 2010 00:56:13 +0000 |
| parents | 3fcc8637a887 (current diff) cb913a283247 (diff) |
| children | 6744f59d2606 |
| files | |
| diffstat | 2 files changed, 14 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Wed Jul 14 15:09:28 2010 -0400 +++ b/lisp/gnus/ChangeLog Thu Jul 15 00:56:13 2010 +0000 @@ -1,4 +1,9 @@ -2010-07-13 Thierry Volpiatto <thierry.volpiatto@gmail.com> +2010-07-15 Katsumi Yamaoka <yamaoka@jpl.org> + + * gnus-sum.el (gnus-summary-bookmark-make-record): Make it work for + Emacs 23 as well. + +2010-07-13 Thierry Volpiatto <thierry.volpiatto@gmail.com> Allow C-w when setting a bookmark in a Gnus Article buffer (Bug#5975). Patch applied by Karl Fogel. @@ -15,14 +20,14 @@ * gnus-art.el (bookmark-make-record-function): New local variable. - * gnus-sum.el (gnus-summary-bookmark-make-record): Allow setting - from article buffer. + * gnus-sum.el (gnus-summary-bookmark-make-record): Allow setting from + article buffer. (gnus-summary-bookmark-jump): Maybe jump to article buffer. 2010-07-13 Karl Fogel <kfogel@red-bean.com> - * gnus/gnus-sum.el (bookmark-make-record-default): Adjust - declaration, based on changes in bookmark.el. + * gnus-sum.el (bookmark-make-record-default): Adjust declaration, based + on changes in bookmark.el. 2010-06-22 Mark A. Hershberger <mah@everybody.org>
--- a/lisp/gnus/gnus-sum.el Wed Jul 14 15:09:28 2010 -0400 +++ b/lisp/gnus/gnus-sum.el Thu Jul 15 00:56:13 2010 +0000 @@ -12645,7 +12645,10 @@ (head (gnus-summary-article-header art)) (id (mail-header-id head))) `(,subject - ,@(bookmark-make-record-default 'no-file 'no-context pos) + ,@(condition-case nil + (bookmark-make-record-default 'no-file 'no-context (point)) + (wrong-number-of-arguments + (bookmark-make-record-default 'point-only))) (location . ,(format "Gnus-%s %s:%d:%s" buf grp art id)) (group . ,grp) (article . ,art) (message-id . ,id) (handler . gnus-summary-bookmark-jump)))))