View file File name : gnus-bookmark.elc Content :;ELC ;;; Compiled ;;; in Emacs version 26.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307%\210\310\311\312\313\314\315\306\303&\210\310\316\317\320\314\321\306\303&\210\310\322\323\324\314\325\306\303&\210\310\326\323\327\314\325\306\303&\210\310\330\331\332\314\333\306\303&\210\310\334\304\335\314\325\306\303&\210\310\336\337\340\314\341\306\303&\210\310\342\343\344\314\345\306\303&\210\346\347\350\351\352\353\306\303&\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 (cond ((file-exists-p "~/.gnus.bmk") "~/.gnus.bmk") (t (nnheader-concat gnus-directory "bookmarks.el"))) "The default Gnus bookmarks file." :type string gnus-bookmark-file-coding-system (if (mm-coding-system-p 'iso-2022-7bit) 'iso-2022-7bit) "Coding system used for writing Gnus bookmark files." (symbol :tag "Coding system") gnus-bookmark-sort-flag t "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 "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 30 "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 "If non-nil, ask for an annotation when setting a bookmark." gnus-bookmark-bookmark-inline-details '(author) "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 '(author subject date group annotation) "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"] 8) #@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" (#$ . 3109)) #@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 (#$ . 3306)) #@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 (#$ . 3468)) #@34 Set a bookmark for this article. (defalias 'gnus-bookmark-set #[nil "\306 \210\307\310!\203 \204 \311\312!\210\202\222 @A\313\n \2368\211 \314H \f\315H \f\313H \313\316`\317\"\211 \203> \320 !\210)\316`\321\"\206H \322 \2368\211 !\205\\ \323!!\205\\ !\324H) \"\325 \"# #$\203v \326\327\330#\"!\202w \331 %\332#!\333 \"%&D&B&. \334 \210\335 \207" [gnus-article-current group article gnus-newsgroup-data header author gnus-bookmark-maybe-load-default-file derived-mode-p gnus-summary-mode error "Please select an article in the Gnus summary buffer" 3 2 4 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject vectorp 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 message-id date to headers subject bmk-name gnus-bookmark-use-annotations annotation gnus-bookmark-alist] 9 (#$ . 3839) nil]) #@102 Return the record part of a new bookmark, given GROUP MESSAGE-ID AUTHOR DATE SUBJECT and ANNOTATION. (defalias 'gnus-bookmark-make-record #[(group message-id author date subject annotation) "\300\306!B\301\306 !B\302\306\n!B\303\306 !B\304\306\f!B\305\306 !B\257\207" [group message-id author date subject annotation substring-no-properties] 9 (#$ . 4871)]) #@50 Set bookmark name from GROUP AUTHOR and SUBJECT. (defalias 'gnus-bookmark-set-bookmark-name #[(group author subject) "\306!\307\310\306 \311\"\"\237@\312\306\n!@\312@\312A@\260\313\314\310 # \315\316\317\f\"\320\211\211\211\f&\211 \310\230\2039 \f\202: ,\207" [subject group author default-name-0 default-name-1 name split-string delete "" "[\\.:]" "-" replace-regexp-in-string "[]_[]" read-from-minibuffer format "Set bookmark (%s): " nil] 8 (#$ . 5237)]) #@75 Write currently defined Gnus bookmarks into `gnus-bookmark-default-file'. (defalias 'gnus-bookmark-write-file #[nil "\212\305 \306\216\307\310!q\210\311 \210\312 \210\313 p\"\210\3141& \n\315ed\f#)0\202+ \210\316\317\f\"\210\320p!\210\316\321\f\"+\207" [#1=#:wconfig gnus-bookmark-alist gnus-bookmark-file-coding-system coding-system-for-write gnus-bookmark-default-file current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] 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"] 4 (#$ . 5708) nil]) #@70 Insert text indicating current version of Gnus bookmark file format. (defalias 'gnus-bookmark-insert-file-format-version-stamp #[nil "\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 (#$ . 6396)]) #@37 Jump to a Gnus bookmark (BMK-NAME). (defalias 'gnus-bookmark-jump #[(&optional bmk-name) "\306 \210\206 \307\310\311\312 \"\"\313\n \"A@\313\304 \"A \313\305 \"A \f\2039 \314!\2040 \315 \210\316\f!\210\317\320\f\"\210 \205Y \321 \322\323#\206Y \324\325!\203V \325 \210\321 \322\323#\202Y \326\327!,\207" [bmk-name gnus-bookmark-alist bookmark bmk-record group message-id gnus-bookmark-maybe-load-default-file gnus-completing-read "Jump to bookmarked article" mapcar car assoc 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." gnus-group-buffer] 5 (#$ . 6954) 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 #[nil "\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 (#$ . 7720)]) #@67 Load Gnus bookmarks from FILE (which must be in bookmark format). (defalias 'gnus-bookmark-load #[(file) "\306!\307!\205/ \212\310 \311\216\312\313!)q\210eb\210\314 \211<\203+ \315 \211\202. \316\317!,\207" [file #1=#:wconfig enable-local-variables blist gnus-bookmark-already-loaded gnus-bookmark-alist expand-file-name file-readable-p current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] nil find-file-noselect gnus-bookmark-alist-from-buffer t error "Not Gnus bookmark format"] 3 (#$ . 8157) (list (read-file-name (format "Load Gnus bookmarks from: (%s) " gnus-bookmark-default-file) "~/" gnus-bookmark-default-file 'confirm))]) #@53 Maybe load Gnus bookmarks in `gnus-bookmark-alist'. (defalias 'gnus-bookmark-maybe-load-default-file #[nil "?\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 (#$ . 8833)]) #@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 #[nil "\205\f \302\303 !\304\"\211\207" [gnus-bookmark-sort-flag gnus-bookmark-alist sort copy-alist #[(x y) "@ @\231\207" [x y] 2]] 3 (#$ . 9141)]) #@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 #[nil "\306 \210\307\310!\203 \311\312\313!!\210\202 \312\313!q\210\314\315\211\211\211 \316 \210\317c\210\320e`\321#\210\322 \210 \203\200 \323 \211A\242!\324\n!\315\325D\235\203L \326\202M \327c\210\330 \203x \320`\nc\210`\331\332!\210`Tb\210\333c\210)\334\335\336\314\337\340\341\342\"\257#\210\2022 \n\333\261\210\2022 eb\210\343y\210\344 \210%\205\221 \345\314!-\207" [end start name alist inhibit-read-only gnus-bookmark-alist gnus-bookmark-maybe-load-default-file called-interactively-p any switch-to-buffer 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 gnus-bookmark-bmenu-toggle-infos] 11 (#$ . 9469) nil]) #@77 Rebuild the Bookmark List if it exists. Don't affect the buffer ring order. (defalias 'gnus-bookmark-bmenu-surreptitiously-rebuild-list #[nil "\301\302!\205 \212\303 \304\216\305 +\207" [#1=#:wconfig get-buffer "*Gnus Bookmark List*" current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] gnus-bookmark-bmenu-list] 2 (#$ . 10738)]) #@57 Return the annotation of Gnus BOOKMARK, or nil if none. (defalias 'gnus-bookmark-get-annotation #[(bookmark) "\301\302!\236A\207" [bookmark annotation gnus-bookmark-get-bookmark-record] 3 (#$ . 11105)]) #@108 Return the full entry for Gnus BOOKMARK in `gnus-bookmark-alist'. If BOOKMARK is not a string, return nil. (defalias 'gnus-bookmark-get-bookmark #[(bookmark) ";\205 \302 \"\207" [bookmark gnus-bookmark-alist assoc] 3 (#$ . 11316)]) #@113 Return the guts of the entry for Gnus BOOKMARK in `gnus-bookmark-alist'. That is, all information but the name. (defalias 'gnus-bookmark-get-bookmark-record #[(bookmark) "\301!A@\207" [bookmark gnus-bookmark-get-bookmark] 2 (#$ . 11558)]) #@68 Return name of FULL-RECORD (an alist element instead of a string). (defalias 'gnus-bookmark-name-from-full-record #[(full-record) "@\207" [full-record] 1 (#$ . 11804)]) (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 #[nil "\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 (#$ . 14519) nil]) (defvar gnus-bookmark-bmenu-toggle-infos nil) #@117 Toggle whether details are shown in the Gnus bookmark list. Optional argument SHOW means show them unconditionally. (defalias 'gnus-bookmark-bmenu-toggle-infos #[(&optional show) "\203 \302\303 \210\304\211\207 \203 \305 \210\302\211\207\303 \210\304\211\207" [show gnus-bookmark-bmenu-toggle-infos nil gnus-bookmark-bmenu-show-infos t gnus-bookmark-bmenu-hide-infos] 2 (#$ . 16852) nil]) #@52 Show infos in bmenu, maybe FORCE display of infos. (defalias 'gnus-bookmark-bmenu-show-infos #[(&optional force) "?\205 ?\205T \212\306 \307\216eb\210\310y\210\311\312 `dW\205S \313 \211 B\314 \315\312\"\210\316 \203= \317`\320#\210)`\311\210`|\210\321c\210\322 !\210\323y\210)\202 ,\207" [force gnus-bookmark-bmenu-toggle-infos #1=#:wconfig gnus-bookmark-bmenu-hidden-bookmarks inhibit-read-only bmrk current-window-configuration #[nil "\301!\207" [#1# 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 start gnus-bookmark-bmenu-file-column] 5 (#$ . 17254)]) #@61 Insert the details of the article associated with BMK-NAME. (defalias 'gnus-bookmark-insert-details #[(bmk-name) "`\303 \n\"c\304 \203# \305\212\306\307!\210`T)\310\311\312\313\314\315\316\317\"\257#\210)\207" [start bmk-name 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] 12 (#$ . 17986)]) #@128 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. (defalias 'gnus-bookmark-kill-line #[(&optional newline-too) "`\301 |\210\205 \302\303!\205 \304\305!\207" [newline-too point-at-eol looking-at "\n" delete-char 1] 2 (#$ . 18453)]) #@60 Get details for a Gnus BMK-NAME depending on DETAILS-LIST. (defalias 'gnus-bookmark-get-details #[(bmk-name details-list) "\304 \"A@\305\306 \307#)\207" [bmk-name gnus-bookmark-alist details details-list assoc mapconcat #[(info) "\302 \"A\207" [info details assoc] 3] " | "] 4 (#$ . 18770)]) #@35 Hide infos in bmenu, maybe FORCE. (defalias 'gnus-bookmark-bmenu-hide-infos #[(&optional force) "?\205d \205d \212\306 \307\216eb\210\310y\210 \237\212eb\210\311\312!\210\313v\210i)\212\314 \205c \315\f\314\"\210\316 \210` @c\210\317 \203Y \320\212\321\322!\210`T)\323\324\325\314\326\327\330\331\"\257#\210) A\332y\210\202) -\207" [force gnus-bookmark-bmenu-toggle-infos #1=#:wconfig gnus-bookmark-bmenu-hidden-bookmarks gnus-bookmark-bmenu-bookmark-column inhibit-read-only current-window-configuration #[nil "\301!\207" [#1# 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 start] 11 (#$ . 19071)]) #@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 #[nil "\301e`\"\302W\203 eb\210\302y\210\207n\203 m\203 \303\304!\210\207\207" [gnus-bookmark-alist count-lines 2 beginning-of-line 0] 3 (#$ . 19915)]) #@49 Return a string which is bookmark of this line. (defalias 'gnus-bookmark-bmenu-bookmark #[nil "\304 \203 \212\305 \306\216eb\210\307\310!\210\311v\210i+\n\203 \312 \210\212\305 \313\216\314 \210 u\210\315`\316\210`\"\n\203: \302\317!\210+\207" [#1=#:wconfig gnus-bookmark-bmenu-bookmark-column gnus-bookmark-bmenu-toggle-infos #2=#:wconfig gnus-bookmark-bmenu-check-position current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] search-forward "Gnus Bookmark" -2 gnus-bookmark-bmenu-hide-infos #[nil "\301!\207" [#2# set-window-configuration] 2] beginning-of-line buffer-substring-no-properties nil t] 3 (#$ . 20269)]) #@50 Display the annotation for BOOKMARK in a buffer. (defalias 'gnus-bookmark-show-details #[(bookmark) "\306!p \307 \212\310\311\312!\313\"\210\314 \210 \2039 \211A\242\315\n \"A\316\232\204 \317\n!\320\315\n \"A\321\261\210\202 eb\210\310\f!-\207" [bookmark gnus-bookmark-bookmark-details detail details old-buf record gnus-bookmark-get-bookmark-record nil pop-to-buffer get-buffer-create "*Gnus Bookmark Annotation*" t erase-buffer assoc "" symbol-name ": " "\n"] 5 (#$ . 20929)]) #@65 Show the annotation for the current bookmark in another window. (defalias 'gnus-bookmark-bmenu-show-details #[nil "\301 \302 \205 \303!)\207" [bookmark gnus-bookmark-bmenu-bookmark gnus-bookmark-bmenu-check-position gnus-bookmark-show-details] 2 (#$ . 21425) nil]) #@109 Mark bookmark on this line to be displayed by \<gnus-bookmark-bmenu-mode-map>\[gnus-bookmark-bmenu-select]. (defalias 'gnus-bookmark-bmenu-mark #[nil "\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 (#$ . 21700) nil]) #@104 Cancel all requested operations on bookmark on this line and move down. Optional BACKUP means move up. (defalias 'gnus-bookmark-bmenu-unmark #[(&optional backup) "\302 \210\303 \205 \304\305\306!\210\307c\210) \203 \310\202 \306y\210\303 \207" [inhibit-read-only backup beginning-of-line gnus-bookmark-bmenu-check-position t delete-char 1 " " -1] 2 (#$ . 22039) "P"]) #@72 Move up and cancel all requested operations on bookmark on line above. (defalias 'gnus-bookmark-bmenu-backup-unmark #[nil "\300y\210\301 \205 \302 \210\300y\210\301 \207" [-1 gnus-bookmark-bmenu-check-position gnus-bookmark-bmenu-unmark] 1 (#$ . 22417) nil]) #@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 #[nil "\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]) #@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 #[nil "\300 \210\301y\210\302 \203 \303y\210\302 \207" [gnus-bookmark-bmenu-delete -2 gnus-bookmark-bmenu-check-position 1] 1 (#$ . 23088) nil]) #@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 #[nil "\302 \205 \303 peb\210\304 \210\305 !\210\306!*\207" [menu bmrk gnus-bookmark-bmenu-check-position gnus-bookmark-bmenu-bookmark delete-other-windows gnus-bookmark-jump bury-buffer] 2 (#$ . 23478) nil]) (defalias 'gnus-bookmark-bmenu-select-by-mouse #[(event) "\301!\210\302 \207" [event mouse-set-point gnus-bookmark-bmenu-select] 2 nil "e"]) #@67 Load the Gnus bookmark file and rebuild the bookmark menu-buffer. (defalias 'gnus-bookmark-bmenu-load #[nil "\301 \205 \212\302 \303\216\304\305!+\207" [#1=#:wconfig gnus-bookmark-bmenu-check-position current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] call-interactively gnus-bookmark-load] 2 (#$ . 24046) nil]) #@90 Delete Gnus bookmarks marked with \<Buffer-menu-mode-map>\[Buffer-menu-delete] commands. (defalias 'gnus-bookmark-bmenu-execute-deletions #[nil "\305\306!\210`\212\307 \210\310\311!?\205 `\312\210`{)i\211 \203$ \313 \210\312eb\210\314y\210\315\311d\316#\203= \317\320 \316\"\210\202, \321 \210\f\211\203J \300\316!\210\n\203^ eb\210\322\n!\210\307 \210 u\210\202a b\210\307 \210\323 \210\305\324!,\207" [gnus-bookmark-bmenu-toggle-infos o-col o-str o-point hide-em 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"] 5 (#$ . 24397) nil]) #@402 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. (defalias 'gnus-bookmark-delete #[(bookmark &optional batch) "\304 \210\305!\306 \n\") ?\205 \307 \207" [bookmark will-go gnus-bookmark-alist batch gnus-bookmark-maybe-load-default-file gnus-bookmark-get-bookmark delq gnus-bookmark-bmenu-surreptitiously-rebuild-list] 3 (#$ . 25171)]) (provide 'gnus-bookmark)