Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
.dir-locals.el	105 B	-rw-r--r--
canlock.elc	5.71 KB	-rw-r--r--
deuglify.elc	7.85 KB	-rw-r--r--
gmm-utils.elc	5.79 KB	-rw-r--r--
gnus-agent.elc	119.17 KB	-rw-r--r--
gnus-art.elc	262.11 KB	-rw-r--r--
gnus-async.elc	11.71 KB	-rw-r--r--
gnus-bcklg.elc	2.85 KB	-rw-r--r--
gnus-bookmark.elc	25.33 KB	-rw-r--r--
gnus-cache.elc	24.08 KB	-rw-r--r--
gnus-cite.elc	26.28 KB	-rw-r--r--
gnus-cloud.elc	18.45 KB	-rw-r--r--
gnus-cus.elc	39.5 KB	-rw-r--r--
gnus-delay.elc	4.61 KB	-rw-r--r--
gnus-demon.elc	7.52 KB	-rw-r--r--
gnus-diary.elc	8.41 KB	-rw-r--r--
gnus-dired.elc	8.03 KB	-rw-r--r--
gnus-draft.elc	12.03 KB	-rw-r--r--
gnus-dup.elc	4.59 KB	-rw-r--r--
gnus-eform.elc	4.76 KB	-rw-r--r--
gnus-fun.elc	9.93 KB	-rw-r--r--
gnus-gravatar.elc	4.15 KB	-rw-r--r--
gnus-group.elc	154.92 KB	-rw-r--r--
gnus-html.elc	13.41 KB	-rw-r--r--
gnus-icalendar.elc	40.93 KB	-rw-r--r--
gnus-int.elc	58.83 KB	-rw-r--r--
gnus-kill.elc	19.24 KB	-rw-r--r--
gnus-logic.elc	5.15 KB	-rw-r--r--
gnus-mh.elc	2.96 KB	-rw-r--r--
gnus-ml.elc	6.08 KB	-rw-r--r--
gnus-mlspl.elc	6.48 KB	-rw-r--r--
gnus-msg.elc	84.49 KB	-rw-r--r--
gnus-notifications.elc	5.38 KB	-rw-r--r--
gnus-picon.elc	8.06 KB	-rw-r--r--
gnus-range.elc	11.97 KB	-rw-r--r--
gnus-registry.elc	34.53 KB	-rw-r--r--
gnus-rfc1843.elc	1.59 KB	-rw-r--r--
gnus-salt.elc	27.54 KB	-rw-r--r--
gnus-score.elc	74.27 KB	-rw-r--r--
gnus-sieve.elc	8.14 KB	-rw-r--r--
gnus-spec.elc	12.88 KB	-rw-r--r--
gnus-srvr.elc	50.09 KB	-rw-r--r--
gnus-start.elc	138.21 KB	-rw-r--r--
gnus-sum.elc	431.26 KB	-rw-r--r--
gnus-topic.elc	46.53 KB	-rw-r--r--
gnus-undo.elc	4.69 KB	-rw-r--r--
gnus-util.elc	49.29 KB	-rw-r--r--
gnus-uu.elc	55.9 KB	-rw-r--r--
gnus-vm.elc	2.42 KB	-rw-r--r--
gnus-win.elc	10.95 KB	-rw-r--r--
gnus.elc	158.84 KB	-rw-r--r--
gssapi.elc	2.27 KB	-rw-r--r--
legacy-gnus-agent.elc	6.35 KB	-rw-r--r--
mail-source.elc	28.21 KB	-rw-r--r--
message.elc	237.92 KB	-rw-r--r--
mm-archive.elc	2.95 KB	-rw-r--r--
mm-bodies.elc	5.84 KB	-rw-r--r--
mm-decode.elc	55.66 KB	-rw-r--r--
mm-encode.elc	6.13 KB	-rw-r--r--
mm-extern.elc	4.25 KB	-rw-r--r--
mm-partial.elc	3.05 KB	-rw-r--r--
mm-url.elc	9.75 KB	-rw-r--r--
mm-util.elc	24.33 KB	-rw-r--r--
mm-uu.elc	21.99 KB	-rw-r--r--
mm-view.elc	16.82 KB	-rw-r--r--
mml-sec.elc	35.2 KB	-rw-r--r--
mml-smime.elc	10.44 KB	-rw-r--r--
mml.elc	44.72 KB	-rw-r--r--
mml1991.elc	7.59 KB	-rw-r--r--
mml2015.elc	25.61 KB	-rw-r--r--
nnagent.elc	10.44 KB	-rw-r--r--
nnbabyl.elc	16.84 KB	-rw-r--r--
nndiary.elc	38.56 KB	-rw-r--r--
nndir.elc	2.67 KB	-rw-r--r--
nndoc.elc	30.1 KB	-rw-r--r--
nndraft.elc	10.55 KB	-rw-r--r--
nneething.elc	11.45 KB	-rw-r--r--
nnfolder.elc	32.39 KB	-rw-r--r--
nngateway.elc	2.88 KB	-rw-r--r--
nnheader.elc	34.72 KB	-rw-r--r--
nnimap.elc	73.06 KB	-rw-r--r--
nnir.elc	62.86 KB	-rw-r--r--
nnmail.elc	52.09 KB	-rw-r--r--
nnmaildir.elc	90.83 KB	-rw-r--r--
nnmairix.elc	72.33 KB	-rw-r--r--
nnmbox.elc	18.57 KB	-rw-r--r--
nnmh.elc	15.14 KB	-rw-r--r--
nnml.elc	33.63 KB	-rw-r--r--
nnnil.elc	1.63 KB	-rw-r--r--
nnoo.elc	8.63 KB	-rw-r--r--
nnregistry.elc	1.72 KB	-rw-r--r--
nnrss.elc	29.02 KB	-rw-r--r--
nnspool.elc	15.72 KB	-rw-r--r--
nntp.elc	111.69 KB	-rw-r--r--
nnvirtual.elc	18.31 KB	-rw-r--r--
nnweb.elc	16.67 KB	-rw-r--r--
score-mode.elc	4.93 KB	-rw-r--r--
smiley.elc	5.31 KB	-rw-r--r--
smime.elc	18.76 KB	-rw-r--r--
spam-report.elc	11.41 KB	-rw-r--r--
spam-stat.elc	19.39 KB	-rw-r--r--
spam-wash.elc	1.23 KB	-rw-r--r--
spam.elc	80.84 KB	-rw-r--r--

Code Editor : gmm-utils.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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\302\303\304\305\306\307\310\311&	\210\312\313\314\315\316\317\310\301&\207" [custom-declare-group gmm nil "Utility functions for Gnus, Message and MML." :prefix "gmm-" :version "22.1" :group lisp custom-declare-variable gmm-verbose 7 "Integer that says how verbose gmm should be.\nThe higher the number, the more messages will flash to say what\nit did.  At zero, it will be totally mute; at five, it will\ndisplay most important messages; and at ten, it will keep on\njabbering all the time." :type integer] 10)
#@101 Potentially concat a list of regexps into a single one.
The concatenation is done with logical ORs.
(defalias 'gmm-regexp-concat #[(regexp) "\204�\301\207;\203
�\207<\205�\302\303\304#\207" [regexp nil mapconcat #[(elt) "\301\302Q\207" [elt "\$" "\$"] 3] "\\|"] 4 (#$ . 944)])
#@254 If LEVEL is lower than `gmm-verbose' print ARGS using `message'.

Guideline for numbers:
1 - error messages
3 - non-serious error messages
5 - messages for things that take a long time
7 - not very important messages on stuff
9 - messages inside loops.
(defalias 'gmm-message #[(level &rest args) "	X\203�\303\304\n\"\207\303\305\n\"\207" [level gmm-verbose args apply message format] 3 (#$ . 1238)])
#@94 Beep an error if LEVEL is equal to or less than `gmm-verbose'.
ARGS are passed to `message'.
(defalias 'gmm-error #[(level &rest args) "\304!	X\203+�\305\306\n\"\210\307 \210\310\311!\203*�\312\304!Z_\211\313U\204*�\314!\210)\310\207" [level gmm-verbose args duration floor apply message ding nil floatp 10 0 sit-for] 4 (#$ . 1647)])
#@32 Non-nil if SYMBOL is a widget.
(defalias 'gmm-widget-p #[(symbol) "\301N\207" [symbol widget-type] 2 (#$ . 1994)])
(byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\305\306\307\310\311\312\313\314&\210\305\315\307\316\311\317\313\320&\210\321\322\323\324\313\325\326\327&\207" [autoload widget-create-child-value "wid-edit" widget-convert widget-default-get define-widget gmm-tool-bar-item lazy "Tool bar list item." :tag "Tool bar item" :type (choice (list :tag "Command and Icon" (function :tag "Command") (string :tag "Icon file") (choice (const :tag "Default map" nil) (const :tag "No menu" t) (sexp :tag "Other map")) (plist :inline t :tag "Properties")) (list :tag "Separator" (const :tag "No command" gmm-ignore) (string :tag "Icon file") (const :tag "No map") (plist :inline t :tag "Properties"))) gmm-tool-bar-zap-list "Tool bar zap list." "Tool bar zap list" (choice (const :tag "Zap all" t) (const :tag "Keep all" nil) (list (set :inline t (const new-file) (const open-file) (const dired) (const kill-buffer) (const save-buffer) (const write-file) (const undo) (const cut) (const copy) (const paste) (const search-forward) (const print-buffer) (const customize) (const help)) (repeat :inline t :tag "Other" (symbol :tag "Icon item")))) custom-declare-variable gmm-tool-bar-style (if (and (boundp 'tool-bar-mode) tool-bar-mode (memq (display-visual-class) (list 'static-gray 'gray-scale 'static-color 'pseudo-color))) 'gnome 'retro) "Preferred tool bar style." (choice (const :tag "GNOME style" gnome) (const :tag "Retro look" retro)) :group gmm] 8)
#@747 Make a tool bar from ICON-LIST.

Within each entry of ICON-LIST, the first element is a menu
command, the second element is an icon file name and the third
element is a test function.  You can use \[describe-key]
<menu-entry> to find out the name of a menu command.  The fourth
and all following elements are passed as the PROPS argument to the
function `tool-bar-local-item'.

If ZAP-LIST is a list, remove those item from the default
`tool-bar-map'.  If it is t, start with a new sparse map.  You
can use \[describe-key] <icon> to find out the name of an icon
item.  When \[describe-key] <icon> shows "<tool-bar> <new-file>
runs the command find-file", then use `new-file' in ZAP-LIST.

DEFAULT-MAP specifies the default key map for ICON-LIST.
(defalias 'gmm-tool-bar-from-list #[(icon-list zap-list default-map) "\306=\203�\307 \202�\310	!<\203/�\311\211\203.�\f@\312\n\313!\311#\210\fA\211\204�*\314\315
9\203<�\316
!\202=�
\"\210\n)\207" [zap-list tool-bar-map map key --dolist-tail-- icon-list t make-sparse-keymap copy-keymap nil define-key vector mapc #[(el) "@A@\3068\206\f�	AAA\211\307=\203>�\310\311!\2030�\312\311\f\313\211\314\313\n&\210\202`�\312\315\f\313\211\314\313\n&\210\202`�\316=\203T�\312\311\f
\317\f!\n&\210\202`�\312\320
\fJ\n&\210,\316\207" [el default-map props fmap icon command 2 gmm-ignore fboundp tool-bar-local-item apply nil :enable tool-bar-add-item t intern tool-bar-local-item-from-menu map] 10] eval] 5 (#$ . 3582)])
#@140 Create function NAME.
If FUNCTION exists, then NAME becomes an alias for FUNCTION.
Otherwise, create function NAME with ARG-LIST and BODY.
(defalias 'defun-gmm '(macro . #[(name function arg-list &rest body) "\305!\211\203�\306\307\nD\307DE\202�\310\n\fBBB)\207" [function defined-p name arg-list body fboundp defalias quote defun] 5 (#$ . 5075)]))
#@97 Customize customization group for MODE.
If mode is nil, use `major-mode' of the current buffer.
(defalias 'gmm-customize-mode #[(&optional mode) "\302\206�\303\304	!\305\306\"\210\307\310\")!!\207" [mode major-mode customize-group intern symbol-name string-match "^\$.+\$-mode$" match-string 1] 5 (#$ . 5436) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307!\207" [defalias gmm-format-time-string format-time-string nil make-obsolete "26.1" provide gmm-utils] 4)

${this.title}

Code Editor : gmm-utils.elc