(gnus-summary-bookmark-make-record): Add `location' field. By Stefan Monnier.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fecb1bc..dd08dea 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-04-14  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * gnus-sum.el (gnus-summary-bookmark-make-record): Add `location' field.
+
 2010-04-14  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lpath.el: Fbind bookmark-default-handler,

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index ba74e3b..d8a36dd 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -12657,8 +12657,9 @@ If ALL is a number, fetch this number of articles."
          (id      (mail-header-id head)))
     `(,subject
       ,@(bookmark-make-record-default 'point-only)
-        (group . ,grp) (article . ,art)
-        (message-id . ,id) (handler . gnus-summary-bookmark-jump))))
+      (location . ,(format "Gnus %s:%d:%s" grp art id))
+      (group . ,grp) (article . ,art)
+      (message-id . ,id) (handler . gnus-summary-bookmark-jump))))
 
 ;;;###autoload
 (defun gnus-summary-bookmark-jump (bookmark)