;ELC ;;; Compiled by amu@daemon on Thu Jan 11 15:03:01 2001 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.8/lisp/gnus-ems.el ;;; in Emacs version 20.7.2 ;;; with bytecomp version 2.56 ;;; 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-ems.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\306\300!\204\307\300 B\306\302!\204\310\302 B\306\303!\204 \311\303 B\306\304!\204,\312\304 B\306\313!\204I\314\315!\204B \316W\203F\317\202G\320 \313 B\321\322\323\"\210\321\324\323\"\210\321\325\326\"\210\314\315!\203j\321\327\330\"\210\202o\321\327\331\"\210\312\207" [gnus-mouse-2 current-load-list gnus-down-mouse-3 gnus-down-mouse-2 gnus-widget-button-keymap emacs-major-version boundp [mouse-2] [down-mouse-3] [down-mouse-2] nil gnus-mode-line-modified featurep xemacs 20 ("--**-" . "-----") ("**" "--") autoload gnus-xmas-define "gnus-xmas" gnus-xmas-redefine appt-select-lowest-window "appt" gnus-smiley-display "smiley" "smiley-ems"] 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 (#$ . 1308)]) (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]) (byte-code "\305\306!\203\f\307 \210\202\310\300!\204\311\300 B\312\300\313\314#\210\315\316\317\320 !\"\2032\321\f\322\323\324\"\325#)\326 B\327 B\330 B\331 B\332 B\333 B\334 B\335 B\336 B\337 B\305\207" [gnus-mouse-face-prop current-load-list case-fold-search system-type nnheader-file-name-translation-alist featurep xemacs gnus-xmas-define boundp mouse-face put variable-documentation "Property used for highlighting mouse regions." t string-match "windows-nt\\|os/2\\|emx\\|cygwin32" symbol-name append mapcar #[(c) "\301B\207" [c 95] 2] (58 42 34 60 62 63) ((43 . 45)) gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char gnus-tmp-indentation gnus-tmp-opening-bracket gnus-tmp-lines gnus-tmp-name gnus-tmp-closing-bracket gnus-tmp-subject-or-nil gnus-check-before-posting] 5) (defalias 'gnus-ems-redefine #[nil "\303\304!\203 \305 \207\303\306!\2059\307\300!\204\310\300 B\311\300\312\313#\210\314\315\316\"\210\307\302!\2034\317\320\317\321\n\"\"\322\323M\210\322\207" [gnus-summary-display-table current-load-list gnus-check-before-posting featurep xemacs gnus-xmas-redefine mule boundp nil put variable-documentation "Display table used in summary mode buffers." defalias gnus-max-width-function gnus-mule-max-width-function 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]) #@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 (#$ . 3561)]) (byte-code "\300\301!\203\302\303\301\"\210\202\303\304M\210\300\207" [fboundp add-minor-mode defalias gnus-add-minor-mode #[(mode name map &rest rest) "\305!\306L\210 \236\204\nD B \236?\205 \fB B\211\207" [mode minor-mode-alist name minor-mode-map-alist map make-local-variable t] 2]] 3) #@60 Show a splash screen using a pixmap in the current buffer. (defalias 'gnus-x-splash #[nil "\306\307!\310\211\211\211\211\212\311\312(!!\210\310\211\211)*\313 \210 \203K\314\315\316 \"\211!\203K\317\320\321!!+\322\216r+q\210\323 !\210eb\210\324\325\326\217\210+\f\205\253\327\330!\210\f@\331 \245\fA@\332 \245)\333\330\334\"\210\335\330\f\"\210\336\337\340 \n\245\341\245\n_\"\210\n\211\342V\203\245\336\343\344 )\245\341\245)_\"\210`\336\343)\"\210\345 `\346#\210\337c\210S\211\202zeb\210\347\342!.\n\207" [i beg height file pixmap dir nnheader-find-etc-directory "gnus" nil switch-to-buffer gnus-get-buffer-create erase-buffer file-exists-p expand-file-name "x-splash" get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents #2=#:G88761 (byte-code "\301p!\301\207" [pixmap read] 2) ((error)) make-face gnus-splash frame-char-height frame-char-width set-face-foreground "Brown" set-face-stipple insert-char 10 window-height 2 0 32 window-width set-text-properties (face gnus-splash) sit-for gnus-group-buffer width buffer-read-only #1#] 7 (#$ . 4045)]) #@22 Cache for face data. (defvar gnus-article-xface-ring-internal nil (#$ . 5243)) #@65 Length of the ring used for `gnus-article-xface-ring-internal'. (defvar gnus-article-xface-ring-size 6 (#$ . 5328)) #@86 Non-nil means the compface program supports the -X option. That produces XBM output. (defvar gnus-article-compface-xbm (byte-code "\300\301\302\217\207" [nil (byte-code "\300\301\302\303!\"\304=\207" [string-match "#define" shell-command-to-string "uncompface -X" 0] 4) ((error))] 3) (#$ . 5450)) #@435 Display an XFace header from between BEG and END in the current article. Requires support for images in your Emacs and the external programs `uncompface', and `icontopbm'. On a GNU/Linux system these might be in packages with names like `compface' or `faces-xface' and `netpbm' or `libgr-progs', for instance. See also `gnus-article-compface-xbm'. This function is for Emacs 21+. See `gnus-xmas-article-display-xface' for XEmacs. (defalias 'gnus-article-display-xface #[(beg end) "\306\307!\205\300\307 \205\300\204\310 !\212p \f{\311 \312!\"\243*\313+*\204\255\314\315\316!!,\317\216r,q\210 c\210\320\321\322ed\323\324\325\313-\205K\326&=\203\244-\204heb\210\327c\210\320\322ed\330\324\331%=\203\244\332\333 \236\243\334=\203\220\335\336 -\203~\337\202\340\341.\342/\3430\344& *\202\244\335\336 -\203\234\337\202\235\340\341.\342%*+\345 *B\"\210*\205\277eb\210\346\347\313\350#\210\351*!-\207" [gnus-article-xface-ring-internal gnus-article-xface-ring-size cur beg end data fboundp display-graphic-p make-ring assoc ring-elements nil get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) 0 apply call-process-region "uncompface" delete (t nil) ("-X") "/* Width=48, Height=48 */\n" "icontopbm" (t nil) background-mode frame-parameters dark create-image buffer-string xbm pbm t center "black" "white" ring-insert re-search-forward "^From:" move insert-image image default-enable-multibyte-characters #1# gnus-article-compface-xbm :ascent :foreground :background] 10 (#$ . 5754)]) (provide 'gnus-ems)