;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\305\306\307%\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\323%\210\310\324\312\313\325DD\326\316\327%\210\310\330\312\313\331DD\332\316\327%\210\310\333\312\313\334DD\335\316\336%\210\310\337\312\313\340DD\341\316\327%\210\310\342\312\313\343DD\344\316\345%\210\310\346\312\313\347DD\350\316\351%\210\352\353\354\355\356\357%\207" [require gnus-sum custom-declare-group gnus-bookmark nil "Setting, annotation and jumping to Gnus bookmarks." :group gnus custom-declare-variable gnus-bookmark-default-file funcall function #[0 "\301\302!\203\302\207\303\304\"\207" [gnus-directory file-exists-p "~/.gnus.bmk" nnheader-concat "bookmarks.el"] 3 #1=""] "The default Gnus bookmarks file." :type string gnus-bookmark-file-coding-system #[0 "\300\301!\205\301\207" [mm-coding-system-p iso-2022-7bit] 2 #1#] "Coding system used for writing Gnus bookmark files." (symbol :tag "Coding system") gnus-bookmark-sort-flag #[0 "\300\207" [t] 1 #1#] "Non-nil means Gnus bookmarks are sorted by bookmark names.\nOtherwise they will be displayed in LIFO order (that is,\nmost recently set ones come first, oldest ones come last)." boolean gnus-bookmark-bmenu-toggle-infos #[0 "\300\207" [t] 1 #1#] "Non-nil means show details when listing Gnus bookmarks.\nList of details is defined in `gnus-bookmark-bookmark-inline-details'.\nThis may result in truncated bookmark names.  To disable this, put the\nfollowing in your `.emacs' file:\n\n(setq gnus-bookmark-bmenu-toggle-infos nil)" gnus-bookmark-bmenu-file-column #[0 "\300\207" [30] 1 #1#] "Column at which to display details in a buffer listing Gnus bookmarks.\nYou can toggle whether details are shown with \\<gnus-bookmark-bmenu-mode-map>\\[gnus-bookmark-bmenu-toggle-infos]." integer gnus-bookmark-use-annotations #[0 "\300\207" [nil] 1 #1#] "If non-nil, ask for an annotation when setting a bookmark." gnus-bookmark-bookmark-inline-details #[0 "\300\207" [(author)] 1 #1#] "Details to be shown with `gnus-bookmark-bmenu-toggle-infos'.\nThe default value is (subject)." (list :tag "Gnus bookmark details" (set :inline t (const :tag "Author" author) (const :tag "Subject" subject) (const :tag "Date" date) (const :tag "Group" group) (const :tag "Message-id" message-id))) gnus-bookmark-bookmark-details #[0 "\300\207" [(author subject date group annotation)] 1 #1#] "Details to be shown with `gnus-bookmark-bmenu-show-details'.\nThe default value is (author subject date group annotation)." (list :tag "Gnus bookmark details" (set :inline t (const :tag "Author" author) (const :tag "Subject" subject) (const :tag "Date" date) (const :tag "Group" group) (const :tag "Message-id" message-id) (const :tag "Annotation" annotation))) custom-declare-face gnus-bookmark-menu-heading ((t (:inherit font-lock-type-face))) "Face used to highlight the heading in Gnus bookmark menu buffers." :version "23.1"] 6)
#@73 This string marks the end of the version stamp in a Gnus bookmark file.
(defconst gnus-bookmark-end-of-version-stamp-marker "-*- End Of Bookmark File Format Version Stamp -*-\n" (#$ . 2990))
#@97 The current version of the format used by bookmark files.
You should never need to change this.
(defconst gnus-bookmark-file-format-version 0 (#$ . 3187))
#@321 Association list of Gnus bookmarks and their records.
The format of the alist is

     (BMK1 BMK2 ...)

where each BMK is of the form

(NAME
  (group . GROUP)
  (message-id . MESSAGE-ID)
  (author . AUTHOR)
  (date . DATE)
  (subject . SUBJECT)
  (annotation . ANNOTATION))

So the cdr of each bookmark is an alist too.
(defvar gnus-bookmark-alist nil (#$ . 3349))
#@34 Set a bookmark for this article.
(defalias 'gnus-bookmark-set #[0 "\304 \210\305\306!\203
\204\307\310!\210\202\210@A\311
	\"\312
8\262
\211\313H
\314H\312H\315\311
\206F\316`\317\"\211\205;\320
!\266\316`\321\"\206F\322 	\"\312
8\262
\211\205Z\323
!\205Z\211\324H\266\202\325#\n\203o\326\327\330\"!\202p\331\332!\333\n	&DB\266	\334 \210\335 \207" [gnus-article-current gnus-newsgroup-data gnus-bookmark-use-annotations gnus-bookmark-alist gnus-bookmark-maybe-load-default-file derived-mode-p gnus-summary-mode error "Please select an article in the Gnus summary buffer" gnus-data-find-in 3 2 4 nil get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject mail-header-p 1 gnus-bookmark-set-bookmark-name read-from-minibuffer format "Annotation for %s: " "" substring-no-properties gnus-bookmark-make-record gnus-bookmark-bmenu-surreptitiously-rebuild-list gnus-bookmark-write-file] 17 (#$ . 3720) [nil (gnus-article-mode gnus-summary-mode)]])
#@190 Return the record part of a new bookmark.
Arguments GROUP MESSAGE-ID AUTHOR DATE SUBJECT and ANNOTATION
will be saved in the bookmark.

(fn GROUP MESSAGE-ID AUTHOR DATE SUBJECT ANNOTATION)
(defalias 'gnus-bookmark-make-record #[1542 "\300\301!B\302\301!B\303\301!B\304\301!B\305\301!B\306\301!B\257\207" [group substring-no-properties message-id author date subject annotation] 14 (#$ . 4746)])
#@77 Set bookmark name from GROUP AUTHOR and SUBJECT.

(fn GROUP AUTHOR SUBJECT)
(defalias 'gnus-bookmark-set-bookmark-name #[771 "\300
!\301\302\300\303\"\"\237@\304\300!@\304@\304A@\260\305\306\302#\307\310\311\"\312\211\211\211&\211\302\230\2036
\207\207" [split-string delete "" "[\\.:]" "-" replace-regexp-in-string "[]_[]" read-from-minibuffer format "Set bookmark (%s): " nil] 13 (#$ . 5160)])
#@75 Write currently defined Gnus bookmarks into `gnus-bookmark-default-file'.
(defalias 'gnus-bookmark-write-file #[0 "\212\304 \305\306\"\216\307\310!q\210\311 \210\312 \210\313p\"\210\3141)	\315ed#)0\210\202/\210\316\317\"\210\320p!\210\316\321\")\262
)\207" [gnus-bookmark-alist gnus-bookmark-file-coding-system coding-system-for-write gnus-bookmark-default-file current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] gnus-get-buffer-create " *Gnus bookmarks*" erase-buffer gnus-bookmark-insert-file-format-version-stamp pp (file-error) write-region message "Can't write %s" kill-buffer "Saving Gnus bookmarks to file %s...done"] 5 (#$ . 5575) nil])
#@70 Insert text indicating current version of Gnus bookmark file format.
(defalias 'gnus-bookmark-insert-file-format-version-stamp #[0 "\303\304	\203\305\306	!\307Q\202\310#c\210\311\312\313\n\261\207" [gnus-bookmark-file-format-version gnus-bookmark-file-coding-system gnus-bookmark-end-of-version-stamp-marker format ";;;; Gnus Bookmark Format Version %d %s;;;;\n" "-*- coding: " symbol-name "; -*- " "" ";;; This format is meant to be slightly human-readable;\n" ";;; nevertheless, you probably don't want to edit it.\n" ";;; "] 6 (#$ . 6278)])
#@62 Jump to a Gnus bookmark (BMK-NAME).

(fn &optional BMK-NAME)
(defalias 'gnus-bookmark-jump #[256 "\302 \210\211\206\303\304\305\306\"\"\307
\"A@\310
\236A\311\236A
\2032\312	!\204)\313 \210\314!\210\315\316\"\210\211\205P\317
\320\321#\206P\322\323!\203M\323 \210\317
\320\321#\207\324\325!\207" [gnus-bookmark-alist gnus-group-buffer gnus-bookmark-maybe-load-default-file gnus-completing-read "Jump to bookmarked article" mapcar car assoc group message-id get-buffer gnus-no-server gnus-activate-group gnus-group-quick-select-group 0 gnus-summary-goto-article nil force fboundp gnus-summary-insert-cached-articles message "Message could not be found."] 9 (#$ . 6834) nil])
(defvar gnus-bookmark-already-loaded nil)
#@205 Return a `gnus-bookmark-alist' from the current buffer.
The buffer must of course contain Gnus bookmark format information.
Does not care from where in the buffer it is called, and does not
affect point.
(defalias 'gnus-bookmark-alist-from-buffer #[0 "\212eb\210\301\302\303#\203\304p!\202\305\306!)\207" [gnus-bookmark-end-of-version-stamp-marker search-forward nil t read error "Not Gnus bookmark format"] 4 (#$ . 7569)])
#@78 Load Gnus bookmarks from FILE (which must be in bookmark format).

(fn FILE)
(defalias 'gnus-bookmark-load #[257 "\303
!\262
\304
!\2056\212\305 \306\307\"\216\310\311!)q\210eb\210\312 \211<\203-\313\211\211\2020\314\315!\262
)\262
)\207" [enable-local-variables gnus-bookmark-already-loaded gnus-bookmark-alist expand-file-name file-readable-p current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] nil find-file-noselect gnus-bookmark-alist-from-buffer t error "Not Gnus bookmark format"] 5 (#$ . 8004) (byte-code "\301\302\303\"\304\305$C\207" [gnus-bookmark-default-file read-file-name format "Load Gnus bookmarks from: (%s) " "~/" confirm] 5)])
#@53 Maybe load Gnus bookmarks in `gnus-bookmark-alist'.
(defalias 'gnus-bookmark-maybe-load-default-file #[0 "?\205	?\205\303\304\n!!\205\305\n!\207" [gnus-bookmark-already-loaded gnus-bookmark-alist gnus-bookmark-default-file file-readable-p expand-file-name gnus-bookmark-load] 3 (#$ . 8710)])
#@128 Return the gnus-bookmark-alist for display.
If the gnus-bookmark-sort-flag is non-nil, then return a sorted
copy of the alist.
(defalias 'gnus-bookmark-maybe-sort-alist #[0 "\205\f\302\303	!\304\"\211\207" [gnus-bookmark-sort-flag gnus-bookmark-alist sort copy-alist #[514 "
@
@\231\207" [] 4 "\n\n(fn X Y)"]] 3 (#$ . 9016)])
#@220 Display a list of existing Gnus bookmarks.
The list is displayed in a buffer named `*Gnus Bookmark List*'.
The leftmost column displays a D if the bookmark is flagged for
deletion, or > if it is flagged for displaying.
(defalias 'gnus-bookmark-bmenu-list #[0 "\303 \210\304\305!\203\306\307\310!!\210\202\307\310!q\210\311\312\211\313 \210\314c\210\315e`\316#\210\317 \210	\262
\203~\320\211A\262\242!\262
\321
!\312\322D\235\203J\323\202K\324c\210\325 \203v\315`c\210`\326\327!\210`T
b\210\330c\210\262
\331\332\333\311\334\335\336\337\"\257#\210\202.\211\330\261\210\202.eb\210\340y\210\341 \210\n\205\216\302\311!)\207" [inhibit-read-only gnus-bookmark-alist gnus-bookmark-bmenu-toggle-infos gnus-bookmark-maybe-load-default-file called-interactively-p any switch-to-buffer gnus-get-buffer-create "*Gnus Bookmark List*" t nil erase-buffer "% Gnus Bookmark\n- --------\n" add-text-properties (font-lock-face gnus-bookmark-menu-heading) gnus-bookmark-maybe-sort-alist gnus-bookmark-name-from-full-record gnus-bookmark-get-annotation "" "  " " *" display-mouse-p re-search-backward "[^ 	]" "\n" mouse-face highlight follow-link help-echo format "%s: go to this article" mouse-2 2 gnus-bookmark-bmenu-mode] 14 (#$ . 9352) nil])
#@77 Rebuild the Bookmark List if it exists.
Don't affect the buffer ring order.
(defalias 'gnus-bookmark-bmenu-surreptitiously-rebuild-list #[0 "\300\301!\205\212\302 \303\304\"\216\305 )\262
)\207" [get-buffer "*Gnus Bookmark List*" current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] gnus-bookmark-bmenu-list] 4 (#$ . 10604)])
#@72 Return the annotation of Gnus BOOKMARK, or nil if none.

(fn BOOKMARK)
(defalias 'gnus-bookmark-get-annotation #[257 "\300\301!\236A\207" [annotation gnus-bookmark-get-bookmark-record] 4 (#$ . 10981)])
#@123 Return the full entry for Gnus BOOKMARK in `gnus-bookmark-alist'.
If BOOKMARK is not a string, return nil.

(fn BOOKMARK)
(defalias 'gnus-bookmark-get-bookmark #[257 "\211;\205	\301
\"\207" [gnus-bookmark-alist assoc] 4 (#$ . 11191)])
#@128 Return the guts of the entry for Gnus BOOKMARK in `gnus-bookmark-alist'.
That is, all information but the name.

(fn BOOKMARK)
(defalias 'gnus-bookmark-get-bookmark-record #[257 "\300
!A@\207" [gnus-bookmark-get-bookmark] 3 (#$ . 11435)])
#@86 Return name of FULL-RECORD (an alist element instead of a string).

(fn FULL-RECORD)
(defalias 'gnus-bookmark-name-from-full-record #[257 "\211@\207" [] 2 (#$ . 11680)])
(defvar gnus-bookmark-bmenu-bookmark-column nil)
(defvar gnus-bookmark-bmenu-hidden-bookmarks nil)
(defvar gnus-bookmark-bmenu-mode-map nil)
(byte-code "\204~\301 \302\303\"\210\304\305\306#\210\304\307\310#\210\304\311\310#\210\304\312\313#\210\304\314\313#\210\304\315\316#\210\304\317\320#\210\304\321\322#\210\304\323\322#\210\304\324\325#\210\304\326\327#\210\304\330\331#\210\304\332\333#\210\304\334\335#\210\304\336\337#\210\304\340\341#\210\304\342\343#\210\304\344\345#\210\304\346\347#\210\350\351\352\353#\210\354\341\355\"\207" [gnus-bookmark-bmenu-mode-map make-keymap suppress-keymap t define-key "q" quit-window "
" gnus-bookmark-bmenu-select "v" "d" gnus-bookmark-bmenu-delete "k" "" gnus-bookmark-bmenu-delete-backwards "x" gnus-bookmark-bmenu-execute-deletions " " next-line "n" "p" previous-line "" gnus-bookmark-bmenu-backup-unmark "?" describe-mode "u" gnus-bookmark-bmenu-unmark "m" gnus-bookmark-bmenu-mark "l" gnus-bookmark-bmenu-load "s" gnus-bookmark-bmenu-save "t" gnus-bookmark-bmenu-toggle-infos "a" gnus-bookmark-bmenu-show-details [mouse-2] gnus-bookmark-bmenu-select-by-mouse put gnus-bookmark-bmenu-mode mode-class special defalias gnus-bookmark-write-file] 4)
(defvar gnus-bookmark-bmenu-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [gnus-bookmark-bmenu-mode-hook variable-documentation put "Hook run after entering Bookmark Menu mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp gnus-bookmark-bmenu-mode-map definition-name gnus-bookmark-bmenu-mode] 4)
(defvar gnus-bookmark-bmenu-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [gnus-bookmark-bmenu-mode-abbrev-table gnus-bookmark-bmenu-mode-map variable-documentation put purecopy "Keymap for `gnus-bookmark-bmenu-mode'." boundp gnus-bookmark-bmenu-mode-syntax-table definition-name gnus-bookmark-bmenu-mode (lambda (#1=#:def-tmp-var) (defvar gnus-bookmark-bmenu-mode-syntax-table #1#)) make-syntax-table "Syntax table for `gnus-bookmark-bmenu-mode'." (lambda (#1#) (defvar gnus-bookmark-bmenu-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `gnus-bookmark-bmenu-mode'." derived-mode-parent] 5)
#@1768 Major mode for editing a list of Gnus bookmarks.
Each line describes one of the bookmarks in Gnus.
Letters do not insert themselves; instead, they are commands.
Gnus bookmarks names preceded by a "*" have annotations.
\<gnus-bookmark-bmenu-mode-map>
\[gnus-bookmark-bmenu-mark] -- mark bookmark to be displayed.
\[gnus-bookmark-bmenu-select] -- select bookmark of line point is on.
  Also show bookmarks marked using m in other windows.
\[gnus-bookmark-bmenu-toggle-infos] -- toggle displaying of details (they may obscure long bookmark names).
\[gnus-bookmark-bmenu-locate] -- display (in minibuffer) location of this bookmark.
\[gnus-bookmark-bmenu-rename] -- rename this bookmark (prompts for new name).
\[gnus-bookmark-bmenu-delete] -- mark this bookmark to be deleted, and move down.
\[gnus-bookmark-bmenu-delete-backwards] -- mark this bookmark to be deleted, and move up.
\[gnus-bookmark-bmenu-execute-deletions] -- delete bookmarks marked with `\[gnus-bookmark-bmenu-delete]'.
\[gnus-bookmark-bmenu-load] -- load in a file of bookmarks (prompts for file.)
\[gnus-bookmark-bmenu-save] -- load in a file of bookmarks (prompts for file.)
\[gnus-bookmark-bmenu-unmark] -- remove all kinds of marks from current line.
  With prefix argument, also move up one line.
\[gnus-bookmark-bmenu-backup-unmark] -- back up a line and remove marks.
\[gnus-bookmark-bmenu-show-details] -- show the annotation, if it exists, for the current bookmark
  in another buffer.
\[gnus-bookmark-bmenu-show-all-annotations] -- show the annotations of all bookmarks in another buffer.
\[gnus-bookmark-bmenu-edit-annotation] -- edit the annotation for the current bookmark.

This mode runs the hook `gnus-bookmark-bmenu-mode-hook', as the final
or penultimate step during initialization.
(defalias 'gnus-bookmark-bmenu-mode #[0 "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\307\211)\315\316!\207" [delay-mode-hooks major-mode mode-name gnus-bookmark-bmenu-mode-map gnus-bookmark-bmenu-mode-syntax-table gnus-bookmark-bmenu-mode-abbrev-table make-local-variable t kill-all-local-variables gnus-bookmark-bmenu-mode "Bookmark Menu" use-local-map set-syntax-table run-mode-hooks gnus-bookmark-bmenu-mode-hook local-abbrev-table truncate-lines buffer-read-only] 3 (#$ . 14395) nil])
(defvar gnus-bookmark-bmenu-toggle-infos nil)
#@138 Toggle whether details are shown in the Gnus bookmark list.
Optional argument SHOW means show them unconditionally.

(fn &optional SHOW)
(defalias 'gnus-bookmark-bmenu-toggle-infos #[256 "\211\203
\301\302 \210\303\211\207\203\304 \210\301\211\207\302 \210\303\211\207" [gnus-bookmark-bmenu-toggle-infos nil gnus-bookmark-bmenu-show-infos t gnus-bookmark-bmenu-hide-infos] 3 (#$ . 16726) [nil (gnus-bookmark-bmenu-mode)]])
#@74 Show infos in bmenu, maybe FORCE display of infos.

(fn &optional FORCE)
(defalias 'gnus-bookmark-bmenu-show-infos #[256 "\211?\205?\205T\212\304 \305\306\"\216eb\210\307y\210\310\311`dW\205P\312 \211	B\313 \314\311\"\210\315 \203:\316
`\317#\210\210`\310\210`|\210\320c\210\321
!\210\322y\266\202*\262
)\207" [gnus-bookmark-bmenu-toggle-infos gnus-bookmark-bmenu-hidden-bookmarks inhibit-read-only gnus-bookmark-bmenu-file-column current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] 2 nil t gnus-bookmark-bmenu-bookmark point-at-eol move-to-column display-mouse-p remove-text-properties (mouse-face nil help-echo nil) "  " gnus-bookmark-insert-details 1] 8 (#$ . 17163)])
#@76 Insert the details of the article associated with BMK-NAME.

(fn BMK-NAME)
(defalias 'gnus-bookmark-insert-details #[257 "`\301\"c\302 \203\"\303\212\304\305!\210`T)\306\307\310\311\312\313\314\315\"\257#\210\207" [gnus-bookmark-bookmark-inline-details gnus-bookmark-get-details display-mouse-p add-text-properties re-search-backward "[^ 	]" mouse-face highlight follow-link t help-echo format "%s: go to this article" mouse-2] 14 (#$ . 17899)])
#@156 Kill from point to end of line.
If optional arg NEWLINE-TOO is non-nil, delete the newline too.
Does not affect the kill ring.

(fn &optional NEWLINE-TOO)
(defalias 'gnus-bookmark-kill-line #[256 "`\300 |\210\211\205\301\302!\205\303\304!\207" [point-at-eol looking-at "\n" delete-char 1] 3 (#$ . 18357)])
#@88 Get details for a Gnus BMK-NAME depending on DETAILS-LIST.

(fn BMK-NAME DETAILS-LIST)
(defalias 'gnus-bookmark-get-details #[514 "\301\"A@\302\303\304\"\305#\207" [gnus-bookmark-alist assoc mapconcat make-closure #[257 "\301
\300\"A\207" [V0 assoc] 4 "\n\n(fn INFO)"] " | "] 7 (#$ . 18673)])
#@57 Hide infos in bmenu, maybe FORCE.

(fn &optional FORCE)
(defalias 'gnus-bookmark-bmenu-hide-infos #[256 "\211?\205f\205f\212\304 \305\306\"\216eb\210\307y\210	\237\212eb\210\310\311!\210\312v\210i)\212\313	\205b\314\n\313\"\210\315 \210`	@c\210\316 \203X\317
\212\320\321!\210`T)\322\323\324\313\325\326\327\330\"\257#\210\210	A\331y\210\202++\262
)\207" [gnus-bookmark-bmenu-toggle-infos gnus-bookmark-bmenu-hidden-bookmarks gnus-bookmark-bmenu-bookmark-column inhibit-read-only current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] 2 search-forward "Gnus Bookmark" -2 t move-to-column gnus-bookmark-kill-line display-mouse-p add-text-properties re-search-backward "[^ 	]" mouse-face highlight follow-link help-echo format "%s: go to this bookmark in other window" mouse-2 1] 14 (#$ . 18976)])
#@145 Return non-nil if on a line with a bookmark.
The actual value returned is gnus-bookmark-alist.  Else
reposition and try again, else return nil.
(defalias 'gnus-bookmark-bmenu-check-position #[0 "\301e`\"\302W\203eb\210\302y\210\207n\203m\203\303\304!\210\207\207" [gnus-bookmark-alist count-lines 2 beginning-of-line 0] 3 (#$ . 19831)])
#@49 Return a string which is bookmark of this line.
(defalias 'gnus-bookmark-bmenu-bookmark #[0 "\302 \203\212\303 \304\305\"\216eb\210\306\307!\210\310v\210i)\210)	\203#\311 \210\212\303 \304\312\"\216\313 \210u\210\314`\315\210`\"	\203@\301\316!\210)\262
)\207" [gnus-bookmark-bmenu-bookmark-column gnus-bookmark-bmenu-toggle-infos gnus-bookmark-bmenu-check-position current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] search-forward "Gnus Bookmark" -2 gnus-bookmark-bmenu-hide-infos #[0 "\301\300!\207" [V0 set-window-configuration] 2] beginning-of-line buffer-substring-no-properties nil t] 4 (#$ . 20183)])
#@65 Display the annotation for BOOKMARK in a buffer.

(fn BOOKMARK)
(defalias 'gnus-bookmark-show-details #[257 "\301
!p\302\212\303\304\305!\306\"\210\307 \210
\2038
\211A\262\242\262
\310
\"A\311\232\204\312
!\313\310\"A\314\261\210\202eb\210\303!)\207" [gnus-bookmark-bookmark-details gnus-bookmark-get-bookmark-record nil pop-to-buffer gnus-get-buffer-create "*Gnus Bookmark Annotation*" t erase-buffer assoc "" symbol-name ": " "\n"] 10 (#$ . 20849)])
#@65 Show the annotation for the current bookmark in another window.
(defalias 'gnus-bookmark-bmenu-show-details #[0 "\300 \301 \205\n\302
!\207" [gnus-bookmark-bmenu-bookmark gnus-bookmark-bmenu-check-position gnus-bookmark-show-details] 3 (#$ . 21321) [nil (gnus-bookmark-bmenu-mode)]])
#@109 Mark bookmark on this line to be displayed by \<gnus-bookmark-bmenu-mode-map>\[gnus-bookmark-bmenu-select].
(defalias 'gnus-bookmark-bmenu-mark #[0 "\301 \210\302 \205\303\304\305!\210\306c\210\305y\210\302 )\207" [inhibit-read-only beginning-of-line gnus-bookmark-bmenu-check-position t delete-char 1 62] 2 (#$ . 21613) [nil (gnus-bookmark-bmenu-mode)]])
#@127 Cancel all requested operations on bookmark on this line and move down.
Optional BACKUP means move up.

(fn &optional BACKUP)
(defalias 'gnus-bookmark-bmenu-unmark #[256 "\301 \210\302 \205\303\304\305!\210\306c\210)\211\203\307\202\305y\210\302 \207" [inhibit-read-only beginning-of-line gnus-bookmark-bmenu-check-position t delete-char 1 " " -1] 3 (#$ . 21979) ["P" (gnus-bookmark-bmenu-mode)]])
#@72 Move up and cancel all requested operations on bookmark on line above.
(defalias 'gnus-bookmark-bmenu-backup-unmark #[0 "\300y\210\301 \205\302 \210\300y\210\301 \207" [-1 gnus-bookmark-bmenu-check-position gnus-bookmark-bmenu-unmark] 1 (#$ . 22390) [nil (gnus-bookmark-bmenu-mode)]])
#@172 Mark Gnus bookmark on this line to be deleted.
To carry out the deletions that you've marked, use
\<gnus-bookmark-bmenu-mode-map>\[gnus-bookmark-bmenu-execute-deletions].
(defalias 'gnus-bookmark-bmenu-delete #[0 "\301 \210\302 \205\303\304\305!\210\306c\210\305y\210\302 )\207" [inhibit-read-only beginning-of-line gnus-bookmark-bmenu-check-position t delete-char 1 68] 2 (#$ . 22684) [nil (gnus-bookmark-bmenu-mode)]])
#@190 Mark bookmark on this line to be deleted, then move up one line.
To carry out the deletions that you've marked, use
\<gnus-bookmark-bmenu-mode-map>\[gnus-bookmark-bmenu-execute-deletions].
(defalias 'gnus-bookmark-bmenu-delete-backwards #[0 "\300 \210\301y\210\302 \203\303y\210\302 \207" [gnus-bookmark-bmenu-delete -2 gnus-bookmark-bmenu-check-position 1] 1 (#$ . 23115) [nil (gnus-bookmark-bmenu-mode)]])
#@170 Select this line's bookmark; also display bookmarks marked with `>'.
You can mark bookmarks with the
\<gnus-bookmark-bmenu-mode-map>\[gnus-bookmark-bmenu-mark]
command.
(defalias 'gnus-bookmark-bmenu-select #[0 "\300 \205\301 peb\210\302 \210\303!\210\304
!\266\202\207" [gnus-bookmark-bmenu-check-position gnus-bookmark-bmenu-bookmark delete-other-windows gnus-bookmark-jump bury-buffer] 4 (#$ . 23532) [nil (gnus-bookmark-bmenu-mode)]])
#@14 

(fn EVENT)
(defalias 'gnus-bookmark-bmenu-select-by-mouse #[257 "\300
!\210\301 \207" [mouse-set-point gnus-bookmark-bmenu-select] 3 (#$ . 23980) ["e" (gnus-bookmark-bmenu-mode)]])
#@67 Load the Gnus bookmark file and rebuild the bookmark menu-buffer.
(defalias 'gnus-bookmark-bmenu-load #[0 "\300 \205\212\301 \302\303\"\216\304\305!)\262
)\207" [gnus-bookmark-bmenu-check-position current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] call-interactively gnus-bookmark-load] 4 (#$ . 24169) [nil (gnus-bookmark-bmenu-mode)]])
#@90 Delete Gnus bookmarks marked with \<Buffer-menu-mode-map>\[Buffer-menu-delete] commands.
(defalias 'gnus-bookmark-bmenu-execute-deletions #[0 "\301\302!\210`\212\303 \210\304\305!?\205`\306\210`{)i\203 \307 \210\306eb\210\310y\210\311\305d\312#\2039\313\314 \312\"\210\202(\315 \210\211\203F\300\312!\210
\203Zeb\210\316!\210\303 \210\211u\210\202]b\210\303 \210\317 \210\301\320!\207" [gnus-bookmark-bmenu-toggle-infos message "Deleting Gnus bookmarks..." beginning-of-line looking-at "^D" nil gnus-bookmark-bmenu-hide-infos 1 re-search-forward t gnus-bookmark-delete gnus-bookmark-bmenu-bookmark gnus-bookmark-bmenu-list search-forward gnus-bookmark-write-file "Deleting bookmarks...done"] 9 (#$ . 24559) [nil (gnus-bookmark-bmenu-mode)]])
#@433 Delete BOOKMARK from the bookmark list.
Removes only the first instance of a bookmark with that name.  If
there are one or more other bookmarks with the same name, they will
not be deleted.  Defaults to the "current" bookmark (that is, the
one most recently used in this file, if any).
Optional second arg BATCH means don't update the bookmark list buffer,
probably because we were called from there.

(fn BOOKMARK &optional BATCH)
(defalias 'gnus-bookmark-delete #[513 "\301 \210\302!\303
\"\210\211?\205\304 \207" [gnus-bookmark-alist gnus-bookmark-maybe-load-default-file gnus-bookmark-get-bookmark delq gnus-bookmark-bmenu-surreptitiously-rebuild-list] 6 (#$ . 25324)])
(provide 'gnus-bookmark)