diff options
| author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2010-04-12 11:17:29 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-04-12 11:17:29 -0400 |
| commit | 45be326afc57551050f71b07cb40752a8dfa2aa3 (patch) | |
| tree | b00795acf1ffb50b5e8730a8c111bdd7e962961b /lisp/gnus/gnus-sum.el | |
| parent | 4794a58232a4a31d628ac6a145dd1113c0ade6fd (diff) | |
| download | emacs-45be326afc57551050f71b07cb40752a8dfa2aa3.tar.gz | |
Summary: Add bookmark support for man, woman and gnus-summary.
* woman.el (woman-bookmark-make-record, woman-bookmark-jump):
New functions.
(woman-mode): Setup bookmark support.
* man.el (man-set-default-bookmark-title, man-bookmark-make-record)
(man-bookmark-jump): New functions.
(Man-mode): Setup bookmark support.
* gnus-sum.el (gnus-summary-bookmark-make-record)
(gnus-summary-bookmark-jump): New functions.
(gnus-summary-mode): Setup bookmark support.
Diffstat (limited to 'lisp/gnus/gnus-sum.el')
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 608224e436d..a8e612856a0 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -3072,6 +3072,9 @@ The following commands are available: (gnus-run-mode-hooks 'gnus-summary-mode-hook) (turn-on-gnus-mailing-list-mode) (mm-enable-multibyte) + ;; Bookmark support. + (set (make-local-variable 'bookmark-make-record-function) + 'gnus-summary-bookmark-make-record) (gnus-update-format-specifications nil 'summary 'summary-mode 'summary-dummy) (gnus-update-summary-mark-positions)) @@ -12640,6 +12643,38 @@ If ALL is a number, fetch this number of articles." (gnus-summary-limit (gnus-sorted-nunion old new)))) (gnus-summary-position-point))) +;;; BOOKMARK support for GNUS. + +(defun gnus-summary-bookmark-make-record () + "Make a bookmark entry for a Gnus buffer." + (require 'gnus) + (unless (and (eq major-mode 'gnus-summary-mode) gnus-article-current) + (error "Please retry from the Gnus summary buffer")) ;[1] + (let* ((subject (elt (gnus-summary-article-header) 1)) + (grp (car gnus-article-current)) + (art (cdr gnus-article-current)) + (head (gnus-summary-article-header art)) + (id (mail-header-id head))) + `(,subject + ,@(bookmark-make-record-default 'point-only) + (group . ,grp) (article . ,art) + (message-id . ,id) (handler . gnus-summary-bookmark-jump)))) + + +(defun gnus-summary-bookmark-jump (bookmark) + "Handler function for record returned by `gnus-summary-bookmark-make-record'. +BOOKMARK is a bookmark name or a bookmark record." + (let ((group (bookmark-prop-get bookmark 'group)) + (article (bookmark-prop-get bookmark 'article)) + (id (bookmark-prop-get bookmark 'message-id)) + buf) + (gnus-fetch-group group (list article)) + (gnus-summary-insert-cached-articles) + (gnus-summary-goto-article id nil 'force) + (setq buf (current-buffer)) + (bookmark-default-handler + `("" (buffer . ,buf) . ,(bookmark-get-bookmark-record bookmark))))) + (gnus-summary-make-all-marking-commands) (gnus-ems-redefine) |