;ELC ;;; compiled by kwzh@nutrimat.gnu.ai.mit.edu on Wed Jul 17 16:35:53 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/gnus-ems.el ;;; emacs version 19.31.94.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (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 "ÀÁ!„ÂÁ BÄÅÆ\"ˆÄÇÈ\"ˆÄÉÊ\"ˆÄËÌ\"ˆÄÍÎ\"ˆÄÏÎ\"ˆÄÐÑ\"ˆÄÒÎ\"ˆÄÓÎ\"ˆÄÔÕ\"ˆÄÖ×\"ˆÄØÙ\"ˆÄÚÛ\"ˆÄÜÝ\"ˆÄÞß\"ˆÄàá\"ˆÄâÝ\"ˆãäå\"ˆãæå\"ˆãÕç\"ˆèé!„zéêMˆÀ‡" [boundp gnus-mouse-2 [mouse-2] current-load-list defalias gnus-make-overlay make-overlay gnus-overlay-put overlay-put gnus-move-overlay move-overlay gnus-overlay-end overlay-end gnus-extent-detached-p ignore gnus-extent-start-open gnus-set-text-properties set-text-properties gnus-group-remove-excess-properties gnus-topic-remove-excess-properties gnus-appt-select-lowest-window appt-select-lowest-window gnus-mail-strip-quoted-names mail-strip-quoted-names gnus-make-local-hook make-local-hook gnus-add-hook add-hook gnus-character-to-event identity gnus-add-text-properties add-text-properties gnus-put-text-property put-text-property gnus-mode-line-buffer-identification autoload gnus-xmas-define "gnus-xmas" gnus-xmas-redefine "appt.el" fboundp mail-file-babyl-p rmail-file-p] 3) (defalias 'gnus-mule-cite-add-face #[(number prefix face) "…AÁ‰Æ!ˆÈÉ!ƒÊ !uˆ‚# GuˆÌÂwˆ`͈ÌÂxˆ`\f W…@ÎÏ\f \"À#+‡" [face t nil to from inhibit-point-motion-hooks goto-line number boundp MULE chars-in-string prefix " " 1 gnus-overlay-put gnus-make-overlay] 4]) (defalias 'gnus-mule-max-width-function #[(el max-width) "ÀÁ DDÄBÅÆÇEÉÊEËBBBE‡" [let* val eval el ((valstr (if (numberp val) (int-to-string val) val))) if > (length valstr) max-width truncate-string valstr (valstr)] 7]) (byte-code "ÀÁ\n\"„`ÃÄ!„ÅÄBÇÄÈÉ#ˆÃÊ!„$Ë\nÊBÇÊÈÌ#ˆÃÍ!„<ÎÏÐ ÍBÇÍÈÑ#ˆÃÒ!„TÎÓÔÒBÇÒÈÕ#ˆÀÁ\n\"ƒmÖ ˆ‚¿Ã×!ƒzØWƒµÃÙ!…‚‰ƒšA@Û=„šA‰„ˆƒ§‰AAA¡ˆ)ÜÝ!„¿ÝÞMˆ‚¿Ãß!ƒ¿àá!ˆ\"„ããäMˆå&Ü&@!„Ù&@ãMˆ&A‰&„Ë)Üç!„íçèMˆÜé!„÷éêMˆë,Àíîï0\"\"ƒ\fñ2ó\"2)ôBõBöB÷BøBùBúBûBüB·" [string-match "XEmacs\\|Lucid" emacs-version boundp gnus-mouse-face-prop mouse-face current-load-list put variable-documentation "Property used for highlighting mouse regions." gnus-article-x-face-command "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | xv -quit -" "String or function to be executed to display an X-Face header.\nIf it is a string, the command will be executed in a sub-shell\nasynchronously. The compressed face will be piped to this command." gnus-display-type nil (byte-code "ÀÁÂ\"‰ƒÄ —!‚#Å ƒÆ‚#Ç ƒ\"È‚#É)‡" [x-get-resource ".displayType" "DisplayType" display-resource intern x-display-color-p color x-display-grayscale-p grayscale mono] 4) ((error (quote mono))) "A symbol indicating the display Emacs is running under.\nThe symbol should be one of `color', `grayscale' or `mono'. If Emacs\nguesses this display attribute wrongly, either set this variable in\nyour `~/.emacs' or set the resource `Emacs.displayType' in your\n`~/.Xdefaults'. See also `gnus-background-mode'.\n\nThis is a meta-variable that will affect what default values other\nvariables get. You would normally not change this variable, but\npounce directly on the real variables themselves." gnus-background-mode (byte-code "ÀÁÂ\"à ‰ƒÆ —!‚4Ç\fžAƒ3ÈÉÊÇ\fžA!\"ÈÉÊË!\"Ì_Wƒ3Í‚4Î*‡" [x-get-resource ".backgroundMode" "BackgroundMode" frame-parameters params bg-resource intern background-color apply + x-color-values "white" 0.59999999999999998 dark light] 6) ((error (quote light))) "A symbol indicating the Emacs background brightness.\nThe symbol should be one of `light' or `dark'.\nIf Emacs guesses this frame attribute wrongly, either set this variable in\nyour `~/.emacs' or set the resource `Emacs.backgroundMode' in your\n`~/.Xdefaults'.\nSee also `gnus-display-type'.\n\nThis is a meta-variable that will affect what default values other\nvariables get. You would normally not change this variable, but\npounce directly on the real variables themselves." gnus-xmas-define emacs-minor-version 30 gnus-hidden-properties props intangible fboundp buffer-substring-no-properties #[(beg end) "ÀÁ\n {\"‡" [format "%s" beg end] 4] MULE provide gnusutil window-system gnus-dummy-func #[(&rest args) "À‡" [nil] 1] (mouse-set-point set-face-foreground set-face-background x-popup-menu) funcs file-regular-p #[(file) "À !?… !?…à !‡" [file-directory-p file file-symlink-p file-exists-p] 2] face-list #[(&rest args) "À‡" [nil] 1] t case-fold-search "windows-nt\\|os/2\\|emx" format "%s" system-type append nnheader-file-name-translation-alist ((58 . 95) (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] 6) (defalias 'gnus-ems-redefine #[nil "ÀÁ\n\"ƒ\nà ‡ÄÅ!…6ÆÇÈ\"ˆÉÊMˆËÌMˆÍÎMˆÄÏ!ƒ1ÐÑÐÒ\"\"ÓÔMˆÓ‡" [string-match "XEmacs\\|Lucid" emacs-version gnus-xmas-redefine boundp MULE defalias gnus-truncate-string truncate-string gnus-summary-make-display-table #[nil "À‡" [nil] 1] gnus-cite-add-face gnus-mule-cite-add-face gnus-max-width-function gnus-mule-max-width-function gnus-check-before-posting delq long-lines control-chars gnus-summary-line-format-spec #[nil " \n ±ˆÄ` ÆÇ GÊVƒË Ê\"‚  #\f±ˆ` $ˆÏѱ‡" [gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char gnus-tmp-indentation put-text-property gnus-tmp-opening-bracket format "%4d: %-20s" gnus-tmp-lines gnus-tmp-name 20 truncate-string gnus-tmp-closing-bracket gnus-mouse-face-prop gnus-mouse-face " " gnus-tmp-subject-or-nil "\n"] 9]] 5]) (provide (quote gnus-ems))