Mercurial > emacs

comparison lisp/gnus/gnus-sum.el @ 109435:cb913a283247

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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:54:06 +0000
parents 4e6b8160da4b
children 20f9503a8859
comparison
equal deleted inserted replaced
109434:a11596ec5941 109435:cb913a283247
12643 (grp (car gnus-article-current)) 12643 (grp (car gnus-article-current))
12644 (art (cdr gnus-article-current)) 12644 (art (cdr gnus-article-current))
12645 (head (gnus-summary-article-header art)) 12645 (head (gnus-summary-article-header art))
12646 (id (mail-header-id head))) 12646 (id (mail-header-id head)))
12647 `(,subject 12647 `(,subject
12648 ,@(bookmark-make-record-default 'no-file 'no-context pos) 12648 ,@(condition-case nil
12649 (bookmark-make-record-default 'no-file 'no-context (point))
12650 (wrong-number-of-arguments
12651 (bookmark-make-record-default 'point-only)))
12649 (location . ,(format "Gnus-%s %s:%d:%s" buf grp art id)) 12652 (location . ,(format "Gnus-%s %s:%d:%s" buf grp art id))
12650 (group . ,grp) (article . ,art) 12653 (group . ,grp) (article . ,art)
12651 (message-id . ,id) (handler . gnus-summary-bookmark-jump))))) 12654 (message-id . ,id) (handler . gnus-summary-bookmark-jump)))))
12652 12655
12653 ;;;###autoload 12656 ;;;###autoload