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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c6c93ab..beaed00 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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-15  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lpath.el: Bind bookmark-current-buffer, bookmark-yank-point for all

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 0d35592..ae29c17 100644 (file)
--- 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)))))