Gecko [ 122.154.134.11 ]

Name	Size	Permission
auth-source.elc	5.49 KB	-rw-r--r--
canlock.elc	6.03 KB	-rw-r--r--
compface.elc	1.35 KB	-rw-r--r--
deuglify.elc	8.31 KB	-rw-r--r--
earcon.elc	5.67 KB	-rw-r--r--
ecomplete.elc	4.45 KB	-rw-r--r--
flow-fill.elc	4.57 KB	-rw-r--r--
gmm-utils.elc	7.68 KB	-rw-r--r--
gnus-agent.elc	122.37 KB	-rw-r--r--
gnus-art.elc	258.37 KB	-rw-r--r--
gnus-async.elc	12.09 KB	-rw-r--r--
gnus-audio.elc	2.48 KB	-rw-r--r--
gnus-bcklg.elc	3.67 KB	-rw-r--r--
gnus-bookmark.elc	24.54 KB	-rw-r--r--
gnus-cache.elc	26.11 KB	-rw-r--r--
gnus-cite.elc	27.6 KB	-rw-r--r--
gnus-cus.elc	38.4 KB	-rw-r--r--
gnus-delay.elc	4.98 KB	-rw-r--r--
gnus-demon.elc	8.65 KB	-rw-r--r--
gnus-diary.elc	9 KB	-rw-r--r--
gnus-dired.elc	6.56 KB	-rw-r--r--
gnus-draft.elc	10.7 KB	-rw-r--r--
gnus-dup.elc	4.77 KB	-rw-r--r--
gnus-eform.elc	3.68 KB	-rw-r--r--
gnus-ems.elc	7.21 KB	-rw-r--r--
gnus-fun.elc	8.91 KB	-rw-r--r--
gnus-group.elc	155.85 KB	-rw-r--r--
gnus-int.elc	51.53 KB	-rw-r--r--
gnus-kill.elc	18.37 KB	-rw-r--r--
gnus-logic.elc	5.2 KB	-rw-r--r--
gnus-mh.elc	2.89 KB	-rw-r--r--
gnus-ml.elc	5.22 KB	-rw-r--r--
gnus-mlspl.elc	6.37 KB	-rw-r--r--
gnus-move.elc	3.63 KB	-rw-r--r--
gnus-msg.elc	84.07 KB	-rw-r--r--
gnus-nocem.elc	12.08 KB	-rw-r--r--
gnus-picon.elc	8.63 KB	-rw-r--r--
gnus-range.elc	11.92 KB	-rw-r--r--
gnus-registry.elc	32.46 KB	-rw-r--r--
gnus-salt.elc	29.77 KB	-rw-r--r--
gnus-score.elc	76.25 KB	-rw-r--r--
gnus-setup.elc	5.01 KB	-rw-r--r--
gnus-sieve.elc	8.54 KB	-rw-r--r--
gnus-soup.elc	16.29 KB	-rw-r--r--
gnus-spec.elc	17 KB	-rw-r--r--
gnus-srvr.elc	43.88 KB	-rw-r--r--
gnus-start.elc	142.13 KB	-rw-r--r--
gnus-sum.elc	406.63 KB	-rw-r--r--
gnus-topic.elc	46.81 KB	-rw-r--r--
gnus-undo.elc	4.07 KB	-rw-r--r--
gnus-util.elc	48.22 KB	-rw-r--r--
gnus-uu.elc	57.87 KB	-rw-r--r--
gnus-vm.elc	2.63 KB	-rw-r--r--
gnus-win.elc	12.56 KB	-rw-r--r--
gnus.elc	158.49 KB	-rw-r--r--
html2text.elc	10.59 KB	-rw-r--r--
ietf-drums.elc	7.85 KB	-rw-r--r--
legacy-gnus-agent.elc	6.67 KB	-rw-r--r--
mail-parse.elc	2.44 KB	-rw-r--r--
mail-prsvr.elc	1.29 KB	-rw-r--r--
mail-source.elc	30.28 KB	-rw-r--r--
mailcap.elc	25.11 KB	-rw-r--r--
message.elc	223.29 KB	-rw-r--r--
messcompat.elc	2.83 KB	-rw-r--r--
mm-bodies.elc	6.06 KB	-rw-r--r--
mm-decode.elc	46.1 KB	-rw-r--r--
mm-encode.elc	5.96 KB	-rw-r--r--
mm-extern.elc	4.65 KB	-rw-r--r--
mm-partial.elc	3.44 KB	-rw-r--r--
mm-url.elc	9.94 KB	-rw-r--r--
mm-util.elc	39.83 KB	-rw-r--r--
mm-uu.elc	18.57 KB	-rw-r--r--
mm-view.elc	17.58 KB	-rw-r--r--
mml-sec.elc	12.58 KB	-rw-r--r--
mml-smime.elc	14.58 KB	-rw-r--r--
mml.elc	40.35 KB	-rw-r--r--
mml1991.elc	14.71 KB	-rw-r--r--
mml2015.elc	41.93 KB	-rw-r--r--
nnagent.elc	10.86 KB	-rw-r--r--
nnbabyl.elc	17.45 KB	-rw-r--r--
nndb.elc	29.58 KB	-rw-r--r--
nndiary.elc	39.38 KB	-rw-r--r--
nndir.elc	3.2 KB	-rw-r--r--
nndoc.elc	28.12 KB	-rw-r--r--
nndraft.elc	9.95 KB	-rw-r--r--
nneething.elc	11.98 KB	-rw-r--r--
nnfolder.elc	38.93 KB	-rw-r--r--
nngateway.elc	3.1 KB	-rw-r--r--
nnheader.elc	30.94 KB	-rw-r--r--
nnimap.elc	61.12 KB	-rw-r--r--
nnir.elc	45.26 KB	-rw-r--r--
nnkiboze.elc	11.79 KB	-rw-r--r--
nnlistserv.elc	4.42 KB	-rw-r--r--
nnmail.elc	52.92 KB	-rw-r--r--
nnmaildir.elc	98.94 KB	-rw-r--r--
nnmairix.elc	72.84 KB	-rw-r--r--
nnmbox.elc	19.03 KB	-rw-r--r--
nnmh.elc	15.64 KB	-rw-r--r--
nnml.elc	45.05 KB	-rw-r--r--
nnnil.elc	1.94 KB	-rw-r--r--
nnoo.elc	8.95 KB	-rw-r--r--
nnrss.elc	33.15 KB	-rw-r--r--
nnslashdot.elc	16.43 KB	-rw-r--r--
nnsoup.elc	21.22 KB	-rw-r--r--
nnspool.elc	15.55 KB	-rw-r--r--
nntp.elc	135.97 KB	-rw-r--r--
nnultimate.elc	13.85 KB	-rw-r--r--
nnvirtual.elc	18.99 KB	-rw-r--r--
nnwarchive.elc	21.92 KB	-rw-r--r--
nnweb.elc	18.3 KB	-rw-r--r--
nnwfm.elc	12.56 KB	-rw-r--r--
pop3.elc	13.01 KB	-rw-r--r--
qp.elc	4.12 KB	-rw-r--r--
rfc1843.elc	5.74 KB	-rw-r--r--
rfc2045.elc	1.01 KB	-rw-r--r--
rfc2047.elc	25.24 KB	-rw-r--r--
rfc2104.elc	1.71 KB	-rw-r--r--
rfc2231.elc	6.9 KB	-rw-r--r--
score-mode.elc	3.56 KB	-rw-r--r--
sieve-manage.elc	19.88 KB	-rw-r--r--
sieve-mode.elc	7.1 KB	-rw-r--r--
sieve.elc	10.77 KB	-rw-r--r--
smiley.elc	5.37 KB	-rw-r--r--
smime.elc	18.81 KB	-rw-r--r--
spam-report.elc	11.77 KB	-rw-r--r--
spam-stat.elc	19.88 KB	-rw-r--r--
spam-wash.elc	1.43 KB	-rw-r--r--
spam.elc	87.54 KB	-rw-r--r--
starttls.elc	6.63 KB	-rw-r--r--
utf7.elc	6.08 KB	-rw-r--r--
webmail.elc	28.79 KB	-rw-r--r--
yenc.elc	3.85 KB	-rw-r--r--

Code Editor : gnus-bookmark.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:19 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/gnus/gnus-bookmark.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`gnus-bookmark.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\302\303\304\305\306\307%\207" [require gnus-sum custom-declare-group gnus-bookmark nil "Setting, annotation and jumping to Gnus bookmarks." :group gnus] 6)
#@34 The default Gnus bookmarks file.
(custom-declare-variable 'gnus-bookmark-default-file '(cond ((file-exists-p "~/.gnus.bmk") "~/.gnus.bmk") (t (nnheader-concat gnus-directory "bookmarks.el"))) '(#$ . 804) :type 'string :group 'gnus-bookmark)
#@53 Coding system used for writing Gnus bookmark files.
(custom-declare-variable 'gnus-bookmark-file-coding-system '(if (mm-coding-system-p 'iso-2022-7bit) 'iso-2022-7bit) '(#$ . 1051) :type '(symbol :tag "Coding system") :group 'gnus-bookmark)
#@176 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).
(custom-declare-variable 'gnus-bookmark-sort-flag 't '(#$ . 1299) :type 'boolean :group 'gnus-bookmark)
#@277 Non-nil means show details when listing Gnus bookmarks.
List of details is defined in `gnus-bookmark-bookmark-inline-details'.
This may result in truncated bookmark names.  To disable this, put the
following in your `.emacs' file:

(setq gnus-bookmark-bmenu-toggle-infos nil)
(custom-declare-variable 'gnus-bookmark-bmenu-toggle-infos 't '(#$ . 1585) :type 'boolean :group 'gnus-bookmark)
#@186 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].
(custom-declare-variable 'gnus-bookmark-bmenu-file-column '30 '(#$ . 1981) :type 'integer :group 'gnus-bookmark)
#@60 If non-nil, ask for an annotation when setting a bookmark.
(custom-declare-variable 'gnus-bookmark-use-annotations 'nil '(#$ . 2285) :type 'boolean :group 'gnus-bookmark)
#@94 Details to be shown with `gnus-bookmark-bmenu-toggle-infos'.
The default value is (subject).
(custom-declare-variable 'gnus-bookmark-bookmark-inline-details ''(author) '(#$ . 2462) :type '(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))) :group 'gnus-bookmark)
#@123 Details to be shown with `gnus-bookmark-bmenu-show-details'.
The default value is (author subject date group annotation).
(custom-declare-variable 'gnus-bookmark-bookmark-details ''(author subject date group annotation) '(#$ . 2881) :type '(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))) :group 'gnus-bookmark)
(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" :group 'gnus-bookmark)
#@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" (#$ . 3582))
#@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 (#$ . 3779))
#@63 Hook run after `gnus-bookmark-jump' jumps to a Gnus bookmark.
(defvar gnus-bookmark-after-jump-hook nil (#$ . 3940))
#@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 (#$ . 4064))
#@41 Return non-nil if a mouse is available.
(defalias 'gnus-bookmark-mouse-available-p '(macro . #[nil "\300\207" [(display-mouse-p)] 1 (#$ . 4435)]))
#@41 Remove all text properties from STRING.
(defalias 'gnus-bookmark-remove-properties #[(string) "\301\302G\303$\210\207" [string set-text-properties 0 nil] 5 (#$ . 4588)])
#@34 Set a bookmark for this article.
(defalias 'gnus-bookmark-set #[nil "\306 \210\307=\203
�	\204�\310\311!\210\202\225�	@	A\312\f\2368\211\313H
\314H
\312H\312\315`\316\"\211 \203?�\317 !\210)\315`\320\"\206I�\321 \f\2368\211!\205]�\322!!\205]�!\323H)\"\324\n\"##$\203x�\325\326\327#\"!\202y�\330%\331#!\332\n\"%&D&B&.	\333 \210\334 \207" [major-mode gnus-article-current group article gnus-newsgroup-data header gnus-bookmark-maybe-load-default-file 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: " "" gnus-bookmark-remove-properties gnus-bookmark-make-record gnus-bookmark-bmenu-surreptitiously-rebuild-list gnus-bookmark-write-file author message-id date to headers subject bmk-name gnus-bookmark-use-annotations annotation gnus-bookmark-alist] 9 (#$ . 4767) 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 gnus-bookmark-remove-properties] 9 (#$ . 5802)])
#@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@\312\211A@)\260\313\f\314\310#\315\316\317
\"\320\211\211\211
&\211\310\230\203=�
\202?�,\207" [subject group author x default-name-0 default-name-1 split-string delete "" "[\\.:]" "-" gnus-replace-in-string "[]_[]" read-from-minibuffer format "Set bookmark (%s): " nil name] 8 (#$ . 6176)])
#@75 Write currently defined Gnus bookmarks into `gnus-bookmark-default-file'.
(defalias 'gnus-bookmark-write-file #[nil "\212\300\213)\207" [((byte-code "\302\303!q\210\304 \210\305 \210\306p\"\210\307\310\311\217\210\312p!\210\313\314	\"\207" [gnus-bookmark-alist gnus-bookmark-default-file get-buffer-create " *Gnus bookmarks*" erase-buffer gnus-bookmark-insert-file-format-version-stamp pp nil (byte-code "\303ed\n#\210)\303\207" [gnus-bookmark-file-coding-system coding-system-for-write gnus-bookmark-default-file write-region] 4) ((file-error (message "Can't write %s" gnus-bookmark-default-file))) kill-buffer message "Saving Gnus bookmarks to file %s...done"] 3))] 1 (#$ . 6653) 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 (#$ . 7350)])
#@37 Jump to a Gnus bookmark (BMK-NAME).
(defalias 'gnus-bookmark-jump #[(&optional bmk-name) "\306 \210\206�\307\310	\"\311\n	\"\211A@)\311\305\f\"A\311\312\f\"A\n
\203:�\313!\2041�\314 \210\315
!\210\316\317
\"\210\n\205]�\320\n\321\322#\206]�\323\324!\203Z�\324 \210\320\n\321\322#\202]�\325\326!,\207" [bmk-name gnus-bookmark-alist bookmark x bmk-record group gnus-bookmark-maybe-load-default-file completing-read "Jump to bookmarked article: " assoc 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." gnus-group-buffer] 5 (#$ . 7908) nil])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list gnus-bookmark-already-loaded default-boundp set-default nil] 3)
#@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 (#$ . 8768)])
#@67 Load Gnus bookmarks from FILE (which must be in bookmark format).
(defalias 'gnus-bookmark-load #[(file) "\301!\302!\205�\212\303\213)\207" [file expand-file-name file-readable-p ((byte-code "\305\306	!)q\210eb\210\307 \211<\203�\310\n\211\202�\311\312!)\207" [enable-local-variables file blist gnus-bookmark-already-loaded gnus-bookmark-alist nil find-file-noselect gnus-bookmark-alist-from-buffer t error "Not Gnus bookmark format"] 3))] 2 (#$ . 9205) (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 (#$ . 9812)])
#@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 (#$ . 10120)])
#@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 \210t\203�\307\310\311!!\210\202�\310\311!q\210\312\313\211\211\211\314 \210\315c\210\316e`\317#\210\320 \210
\203\201�\321\211A@!\322\n!\313\323D\235\203J�\324\202K�\325c\210\326 \203y�\316`\nc\210`\327\330!\210`Tb\210\331c\210)\332\333\334\312\335\336\337$\340H\"\257#\210\2020�\n\331\261\210\2020�eb\210\341y\210\342 \210#\205\222�\343\312!-\207" [end start name alist inhibit-read-only gnus-bookmark-alist gnus-bookmark-maybe-load-default-file 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" 0 2 gnus-bookmark-bmenu-mode gnus-bookmark-bmenu-toggle-infos gnus-mouse-2] 12 (#$ . 10449) nil])
#@77 Rebuild the Bookmark List if it exists.
Don't affect the buffer ring order.
(defalias 'gnus-bookmark-bmenu-surreptitiously-rebuild-list #[nil "\300\301!\205\n�\212\302\213)\207" [get-buffer "*Gnus Bookmark List*" ((gnus-bookmark-bmenu-list))] 2 (#$ . 11691)])
#@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 (#$ . 11957)])
#@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 (#$ . 12168)])
#@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 (#$ . 12410)])
#@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 (#$ . 12656)])
(byte-code "\303B\304\303!\204�\305\303\306\"\210\307B\304\307!\204�\305\307\306\"\210\301B\304\301!\204-�\305\301\306\"\210	\204\265�\310 \311	\312\"\210\313	\314\315\316!\203F�\316\202G�\317#\210\313	\320\321#\210\313	\322\321#\210\313	\323\324#\210\313	\325\324#\210\313	\326\327#\210\313	\330\331#\210\313	\332\333#\210\313	\334\333#\210\313	\335\336#\210\313	\337\340#\210\313	\341\342#\210\313	\343\344#\210\313	\345\346#\210\313	\347\350#\210\313	\351\352#\210\313	\353\354#\210\313	\355\356#\210\313	\n\357#\210\360\361\362\363#\210\364\352\365\"\207" [current-load-list gnus-bookmark-bmenu-mode-map gnus-mouse-2 gnus-bookmark-bmenu-bookmark-column default-boundp set-default nil gnus-bookmark-bmenu-hidden-bookmarks make-keymap suppress-keymap t define-key "q" fboundp quit-window bury-buffer "
" 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 gnus-bookmark-bmenu-select-by-mouse put gnus-bookmark-bmenu-mode mode-class special defalias gnus-bookmark-write-file] 5)
#@1654 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.
(defalias 'gnus-bookmark-bmenu-mode #[nil "\305 \210\306!\210\307\211\310\311\312\313!\207" [gnus-bookmark-bmenu-mode-map truncate-lines buffer-read-only major-mode mode-name kill-all-local-variables use-local-map t gnus-bookmark-bmenu-mode "Bookmark Menu" gnus-run-mode-hooks gnus-bookmark-bmenu-mode-hook] 3 (#$ . 14204)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list gnus-bookmark-bmenu-toggle-infos default-boundp set-default nil] 3)
#@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 (#$ . 16343) nil])
#@52 Show infos in bmenu, maybe FORCE display of infos.
(defalias 'gnus-bookmark-bmenu-show-infos #[(&optional force) "?\205�	?\205�\212\302\213)\207" [force gnus-bookmark-bmenu-toggle-infos ((byte-code "eb\210\305y\210\306\307`dW\205D�\310 \211B\212\306\210`)\311\f\307\"\210\312 \203.�\313`\314#\210)`\306\210`|\210\315c\210\316\n!\210\317y\210)\202\n�)\207" [gnus-bookmark-bmenu-hidden-bookmarks inhibit-read-only bmrk start gnus-bookmark-bmenu-file-column 2 nil t gnus-bookmark-bmenu-bookmark move-to-column display-mouse-p remove-text-properties (mouse-face nil help-echo nil) "  " gnus-bookmark-insert-details 1] 5))] 1 (#$ . 16745)])
#@61 Insert the details of the article associated with BMK-NAME.
(defalias 'gnus-bookmark-insert-details #[(bmk-name) "`\304	\n\"c\305 \203%�\306\212\307\310!\210`T)\311\312\313\314\315\316\317\320H\"\257#\210)\207" [start bmk-name gnus-bookmark-bookmark-inline-details gnus-mouse-2 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" 0] 13 (#$ . 17399)])
#@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) "\212\302\210`)`|\210	\205�\303\304!\205�\305\306!)\207" [eol newline-too nil looking-at "\n" delete-char 1] 2 (#$ . 17875)])
#@60 Get details for a Gnus BMK-NAME depending on DETAILS-LIST.
(defalias 'gnus-bookmark-get-details #[(bmk-name details-list) "\305	\"\211A@)\306\307\f\310#)\207" [bmk-name gnus-bookmark-alist x details details-list assoc mapconcat #[(info) "\302	\"A\207" [info details assoc] 3] " | "] 5 (#$ . 18200)])
#@35 Hide infos in bmenu, maybe FORCE.
(defalias 'gnus-bookmark-bmenu-hide-infos #[(&optional force) "?\205
�	\205
�\212\302\213)\207" [force gnus-bookmark-bmenu-toggle-infos ((byte-code "eb\210\305y\210\237\212eb\210\306\307!\210\310v\210i)\212\311\205T�\312	\311\"\210\313 \210`@c\210\314 \203J�\315\212\316\317!\210`T)\320\321\322\311\323\324\325\f\326H\"\257#\210)A\327y\210\202�*\207" [gnus-bookmark-bmenu-hidden-bookmarks gnus-bookmark-bmenu-bookmark-column inhibit-read-only start gnus-mouse-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" 0 1] 12))] 1 (#$ . 18510)])
#@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 (#$ . 19286)])
#@49 Return a string which is bookmark of this line.
(defalias 'gnus-bookmark-bmenu-bookmark #[nil "\301 \203\n�\212\302\213\210)\203�\303 \210\212\304\213)\207" [gnus-bookmark-bmenu-toggle-infos gnus-bookmark-bmenu-check-position ((byte-code "eb\210\301\302!\210\303v\210i\301\207" [gnus-bookmark-bmenu-bookmark-column search-forward "Gnus Bookmark" -2] 2)) gnus-bookmark-bmenu-hide-infos ((byte-code "\302 \210u\210\303`\304\210`\"	\203�\301\305!\210\207" [gnus-bookmark-bmenu-bookmark-column gnus-bookmark-bmenu-toggle-infos beginning-of-line buffer-substring-no-properties nil t] 3))] 1 (#$ . 19640)])
#@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@\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 (#$ . 20253)])
#@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 (#$ . 20746) 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 (#$ . 21021) 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 (#$ . 21360) "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 (#$ . 21738) 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 (#$ . 22005) 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 (#$ . 22409) 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 (#$ . 22799) 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 "\300 \205	�\212\301\213)\207" [gnus-bookmark-bmenu-check-position ((byte-code "\300\301!\207" [call-interactively gnus-bookmark-load] 2))] 1 (#$ . 23367) 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 (#$ . 23642) 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 (#$ . 24416)])
(provide 'gnus-bookmark)

${this.title}

Code Editor : gnus-bookmark.elc