From ecc21fa5cc39f5d559ca6322d2c4f5af28bc74ab Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Thu, 15 Jul 2010 00:55:31 +0000 Subject: [PATCH] Make gnus-summary-bookmark-make-record work for Emacs 23 as well. 2010-07-15 Katsumi Yamaoka * gnus-sum.el (gnus-summary-bookmark-make-record): Make it work for Emacs 23 as well. --- lisp/ChangeLog | 5 +++++ lisp/gnus-sum.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c6c93ab25..beaed0084 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-07-15 Katsumi Yamaoka + + * gnus-sum.el (gnus-summary-bookmark-make-record): Make it work for + Emacs 23 as well. + 2010-07-15 Katsumi Yamaoka * lpath.el: Bind bookmark-current-buffer, bookmark-yank-point for all diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 0d3559227..ae29c17ae 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -12645,7 +12645,10 @@ If ALL is a number, fetch this number of articles." (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))))) -- 2.25.1