;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:49 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-ems.el
;;; in Emacs version 24.3.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.

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


(defvar gnus-mouse-2 [mouse-2])
(defvar gnus-down-mouse-3 [down-mouse-3])
(defvar gnus-down-mouse-2 [down-mouse-2])
(defvar gnus-widget-button-keymap nil)
(defvar gnus-mode-line-modified '("**" "--"))
(byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\305\"\210\300\306\307\"\210\300\310\311\"\207" [autoload gnus-xmas-define "gnus-xmas" gnus-xmas-redefine gnus-get-buffer-create "gnus" nnheader-find-etc-directory "nnheader" smiley-region "smiley"] 3)
#@44 Delete all overlays in the current buffer.
(defalias 'gnus-kill-all-overlays #[nil "\303 \304\305\304@A\244\"\n\205\306\n\211A@!\210\202+\207" [overlayss buffer-read-only overlays overlay-lists nil delq delete-overlay] 4 (#$ . 1015)])
(defalias 'gnus-mule-max-width-function #[(el max-width) "\302\303\304CDD\305B\306\307\310	E\311\312	E\313BBBE\207" [el max-width let* val eval ((valstr (if (numberp val) (int-to-string val) val))) if > (length valstr) truncate-string-to-width valstr (valstr)] 7])
((lambda (#1=#:def-tmp-var) (defvar gnus-mouse-face-prop #1# "Property used for highlighting mouse regions.")) 'mouse-face)
(defalias 'gnus-ems-redefine #[nil "\301\302!\205!\303\304!\210\305\306\307\"\210\310\300!\203\311\312\311\313\"\"\305\314\315\"\207" [gnus-check-before-posting featurep mule (lambda (#1=#:def-tmp-var) (defvar gnus-summary-display-table #1# "Display table used in summary mode buffers.")) nil defalias gnus-max-width-function gnus-mule-max-width-function boundp delq long-lines control-chars gnus-summary-line-format-spec #[nil "	\n\261\210\306`\f\307\310

G\311V\203\312
\311\"\202
#\261\210`$\210\313\314\261\207" [gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char gnus-tmp-indentation gnus-tmp-opening-bracket gnus-tmp-lines put-text-property format "%4d: %-20s" 20 truncate-string-to-width " " "\n" gnus-tmp-name gnus-tmp-closing-bracket gnus-mouse-face-prop gnus-mouse-face gnus-tmp-subject-or-nil] 9]] 5])
#@40 Select the lowest window on the frame.
(defalias 'gnus-select-lowest-window #[nil "\302 \303\304 8\305\306!\210\307	!*\207" [bottom-edge lowest-window selected-window 3 window-edges walk-windows #[(w) "\304\305!8\n	W\205	\211)\207" [w next-bottom-edge bottom-edge lowest-window 3 window-edges] 3] select-window] 3 (#$ . 2496)])
#@35 Say whether the region is active.
(defalias 'gnus-region-active-p #[nil "\302\300!\205\205\302\301!\205	\207" [transient-mark-mode mark-active boundp] 2 (#$ . 2839)])
#@72 Non-nil means the mark and region are currently active in this buffer.
(defalias 'gnus-mark-active-p #[nil "\207" [mark-active] 1 (#$ . 3019)])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [autoload gnus-alive-p "gnus-util" mm-disable-multibyte "mm-util"] 3)
(defalias 'gnus-image-type-available-p #[(type) "\301\302!\205\302!\205\301\303!\203\303 \207\304\207" [type fboundp image-type-available-p display-images-p t] 2])
(defalias 'gnus-create-image #[(file &optional type data-p &rest props) "\302\303\"\211\203\304\305\306	!#\304\307\310	!#\311\312\313\217)\207" [props face plist-get :face plist-put :foreground face-foreground :background face-background nil (byte-code "\304\305	\n%\207" [file type data-p props apply create-image] 6) ((error))] 6])
(defalias 'gnus-put-image #[(glyph &optional string category) "`\304	\n\206	\305\"\210\306`\307$\210\n\204\306`S`\310\311$\210	)\207" [point glyph string category insert-image " " put-text-property gnus-image-category gnus-image-text-deletable t] 5])
#@59 Remove the image matching IMAGE and CATEGORY found first.
(defalias 'gnus-remove-image #[(image &optional category) "e\305\211?\205a\306\n\307\"\211\204&\310\n\307\"\211\205a\306\n\307\"\211\205a\310\n\307\"\206.d	\232\203S\306\n\311\"\f\232\203S\312\n\307\305$\210\306\n\313\"\203\n|\210\202dU\204\305\211\202+\207" [end val start image category nil get-text-property display next-single-property-change gnus-image-category put-text-property gnus-image-text-deletable] 6 (#$ . 4062)])
(defalias 'gnus-string-mark-left-to-right '(macro . #[(string) "\301\302!\203\n\302D\207\207" [string fboundp bidi-string-mark-left-to-right] 2]))
(byte-code "\300\301\302\303!\203\f\303\202
\304\"\210\302\305!\203,\300\306\305\"\210\300\307\310\"\210\300\311\312\"\210\300\313\314\"\210\202@\300\306\315\"\210\300\307\316\"\210\300\311\317\"\210\300\313\320\"\210\321\322!\207" [defalias gnus-window-inside-pixel-edges fboundp window-inside-pixel-edges window-pixel-edges set-process-plist gnus-set-process-plist gnus-process-plist process-plist gnus-process-get process-get gnus-process-put process-put #[(process plist) "\302\303	#\207" [process plist put gnus-process-plist-internal] 4 "Replace the plist of PROCESS with PLIST.  Returns PLIST."] #[(process) "\304\305!	>\211\211A@)\n\203>\n=\203-\211AA@\240\210\211AAA\206(\306\241\210\202>\307G\nG\310#\233\n\211AA)\241\210*\207" [plist process tem x symbol-plist gnus-process-plist-internal (nil) - 1] 6 "Return the plist of PROCESS."] #[(process propname) "\302\303!	\"\207" [process propname plist-get gnus-process-plist] 3 "Return the value of PROCESS' PROPNAME property.\nThis is the last value stored with `(gnus-process-put PROCESS PROPNAME VALUE)'."] #[(process propname value) "\303\304\305!	\n#\"\207" [process propname value gnus-set-process-plist plist-put gnus-process-plist] 6 "Change PROCESS' PROPNAME property to VALUE.\nIt can be retrieved with `(gnus-process-get PROCESS PROPNAME)'."] provide gnus-ems] 4)