Function: gnus-bookmark-set

gnus-bookmark-set is an autoloaded, interactive and byte-compiled function defined in gnus-bookmark.el.gz.

Signature

(gnus-bookmark-set)

Documentation

Set a bookmark for this article.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-bookmark.el.gz
;;;###autoload
(defun gnus-bookmark-set ()
  "Set a bookmark for this article."
  (interactive nil gnus-article-mode gnus-summary-mode)
  (gnus-bookmark-maybe-load-default-file)
  (if (or (not (derived-mode-p 'gnus-summary-mode))
	  (not gnus-article-current))
      (error "Please select an article in the Gnus summary buffer")
    (let* ((group (car gnus-article-current))
	   (article (cdr gnus-article-current))
	   (header (gnus-summary-article-header article))
	   (author (mail-header-from header))
	   (message-id (mail-header-id header))
	   (date (mail-header-date header))
	   (subject (gnus-summary-subject-string))
	   (bmk-name (gnus-bookmark-set-bookmark-name group author subject))
	   ;; Maybe ask for annotation
	   (annotation
	    (if gnus-bookmark-use-annotations
		 (read-from-minibuffer
		  (format "Annotation for %s: " bmk-name)) "")))
      ;; Set the bookmark list
      (setq gnus-bookmark-alist
	    (cons
	     (list (substring-no-properties bmk-name)
		   (gnus-bookmark-make-record
		    group message-id author date subject annotation))
	     gnus-bookmark-alist))))
  (gnus-bookmark-bmenu-surreptitiously-rebuild-list)
  (gnus-bookmark-write-file))