diff options
Diffstat (limited to 'lisp/gnus/gnus-bookmark.el')
| -rw-r--r-- | lisp/gnus/gnus-bookmark.el | 33 |
1 files changed, 12 insertions, 21 deletions
diff --git a/lisp/gnus/gnus-bookmark.el b/lisp/gnus/gnus-bookmark.el index 57859d806c9..bc41d5b149d 100644 --- a/lisp/gnus/gnus-bookmark.el +++ b/lisp/gnus/gnus-bookmark.el @@ -1,4 +1,4 @@ -;;; gnus-bookmark.el --- Bookmarks in Gnus +;;; gnus-bookmark.el --- Bookmarks in Gnus -*- lexical-binding: t; -*- ;; Copyright (C) 2006-2021 Free Software Foundation, Inc. @@ -78,22 +78,19 @@ ((file-exists-p "~/.gnus.bmk") "~/.gnus.bmk") (t (nnheader-concat gnus-directory "bookmarks.el"))) "The default Gnus bookmarks file." - :type 'string - :group 'gnus-bookmark) + :type 'string) (defcustom gnus-bookmark-file-coding-system (if (mm-coding-system-p 'iso-2022-7bit) 'iso-2022-7bit) "Coding system used for writing Gnus bookmark files." - :type '(symbol :tag "Coding system") - :group 'gnus-bookmark) + :type '(symbol :tag "Coding system")) (defcustom gnus-bookmark-sort-flag t "Non-nil means Gnus bookmarks are sorted by bookmark names. Otherwise they will be displayed in LIFO order (that is, most recently set ones come first, oldest ones come last)." - :type 'boolean - :group 'gnus-bookmark) + :type 'boolean) (defcustom gnus-bookmark-bmenu-toggle-infos t "Non-nil means show details when listing Gnus bookmarks. @@ -102,19 +99,16 @@ This may result in truncated bookmark names. To disable this, put the following in your `.emacs' file: \(setq gnus-bookmark-bmenu-toggle-infos nil)" - :type 'boolean - :group 'gnus-bookmark) + :type 'boolean) (defcustom gnus-bookmark-bmenu-file-column 30 "Column at which to display details in a buffer listing Gnus bookmarks. You can toggle whether details are shown with \\<gnus-bookmark-bmenu-mode-map>\\[gnus-bookmark-bmenu-toggle-infos]." - :type 'integer - :group 'gnus-bookmark) + :type 'integer) (defcustom gnus-bookmark-use-annotations nil "If non-nil, ask for an annotation when setting a bookmark." - :type 'boolean - :group 'gnus-bookmark) + :type 'boolean) (defcustom gnus-bookmark-bookmark-inline-details '(author) "Details to be shown with `gnus-bookmark-bmenu-toggle-infos'. @@ -125,8 +119,7 @@ The default value is \(subject)." (const :tag "Subject" subject) (const :tag "Date" date) (const :tag "Group" group) - (const :tag "Message-id" message-id))) - :group 'gnus-bookmark) + (const :tag "Message-id" message-id)))) (defcustom gnus-bookmark-bookmark-details '(author subject date group annotation) @@ -139,14 +132,12 @@ The default value is \(author subject date group annotation)." (const :tag "Date" date) (const :tag "Group" group) (const :tag "Message-id" message-id) - (const :tag "Annotation" annotation))) - :group 'gnus-bookmark) + (const :tag "Annotation" annotation)))) (defface gnus-bookmark-menu-heading '((t (:inherit font-lock-type-face))) "Face used to highlight the heading in Gnus bookmark menu buffers." - :version "23.1" ;; No Gnus - :group 'gnus-bookmark) + :version "23.1") ;; No Gnus (defconst gnus-bookmark-end-of-version-stamp-marker "-*- End Of Bookmark File Format Version Stamp -*-\n" @@ -279,7 +270,7 @@ So the cdr of each bookmark is an alist too.") (gnus-bookmark-maybe-load-default-file) (let* ((bookmark (or bmk-name (gnus-completing-read "Jump to bookmarked article" - (mapcar 'car gnus-bookmark-alist)))) + (mapcar #'car gnus-bookmark-alist)))) (bmk-record (cadr (assoc bookmark gnus-bookmark-alist))) (group (cdr (assoc 'group bmk-record))) (message-id (cdr (assoc 'message-id bmk-record)))) @@ -359,7 +350,7 @@ deletion, or > if it is flagged for displaying." (switch-to-buffer (gnus-get-buffer-create "*Gnus Bookmark List*")) (set-buffer (gnus-get-buffer-create "*Gnus Bookmark List*"))) (let ((inhibit-read-only t) - alist name start end) + alist name) ;; start end (erase-buffer) (insert "% Gnus Bookmark\n- --------\n") (add-text-properties (point-min) (point) |