Function: gnus-bookmark-set-bookmark-name

gnus-bookmark-set-bookmark-name is a byte-compiled function defined in gnus-bookmark.el.gz.

Signature

(gnus-bookmark-set-bookmark-name GROUP AUTHOR SUBJECT)

Documentation

Set bookmark name from GROUP AUTHOR and SUBJECT.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-bookmark.el.gz
(defun gnus-bookmark-set-bookmark-name (group author subject)
  "Set bookmark name from GROUP AUTHOR and SUBJECT."
  (let* ((subject (split-string subject))
	 (default-name-0 ;; Should be merged with -1?
	   (concat (car (nreverse (delete "" (split-string group "[\\.:]"))))
		   "-" (car (split-string author))
		   "-" (car subject) "-" (cadr subject)))
	 (default-name-1
	   ;; Strip "[]" chars from the bookmark name:
	   (replace-regexp-in-string "[]_[]" "" default-name-0))
	 (name (read-from-minibuffer
		(format "Set bookmark (%s): " default-name-1)
		nil nil nil nil
		default-name-1)))
    (if (string-equal name "")
	default-name-1
      name)))