;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:35 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/play/fortune.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.

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


(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\302\313\310\301\310\314&\210\315\316\317\320\321\322\310\301&\210\315\323\324\325\321\326\310\301&\210\315\327\330\331\321\332\310\301&\210\315\333\334\335\321\332\310\301&\210\315\336\302\337\321\340\306\341\310\301&	\210\315\342\343\344\321\332\310\301&\210\315\345\346\347\321\332\310\301&\210\315\350\351\352\321\332\310\301&\210\315\353\354\355\321\356\310\301&\210\315\357\360\361\321\332\310\312&\210\315\362\363\364\321\365\310\312&\210\315\366\367\370\321\332\310\312&\210\315\371\346\372\321\332\310\312&\210\315\373\346\374\321\332\310\312&\207" [custom-declare-group fortune nil "Settings for fortune." :link (emacs-commentary-link "fortune.el") :version "21.1" :group games fortune-signature "Settings for use of fortune for signatures." mail custom-declare-variable fortune-dir "~/docs/ascii/misc/fortunes/" "The directory to look in for local fortune cookies files." :type directory fortune-file (expand-file-name "usenet" fortune-dir) "The file in which local fortune cookies will be stored." file fortune-database-extension ".dat" "The extension of the corresponding fortune database.\nNormally you won't have a reason to change it." string fortune-program "fortune" "Program to select a fortune cookie." fortune-program-options "List of options to pass to the fortune program." (choice (repeat (string :tag "Option")) (string :tag "Obsolete string of options")) "23.1" fortune-strfile "strfile" "Program to compute a new fortune database." fortune-strfile-options "" "Options to pass to the strfile program (a string)." fortune-quiet-strfile-options "> /dev/null" "Text added to the command for running `strfile'.\nBy default it discards the output produced by `strfile'.\nSet this to \"\" if you would like to see the output." fortune-always-compile t "Non-nil means automatically compile fortune files.\nIf nil, you must invoke `fortune-compile' manually to do that." boolean fortune-author-line-prefix "                  -- " "Prefix to put before the author name of a fortunate." fortune-fill-column fill-column "Fill column for fortune files." integer fortune-from-mail "private e-mail" "String to use to characterize that the fortune comes from an e-mail.\nNo need to add an `in'." fortune-sigstart "Some text to insert before the fortune cookie, in a mail signature." fortune-sigend "Some text to insert after the fortune cookie, in a mail signature."] 10)
(defvar fortune-buffer-name "*fortune*")
(defconst fortune-end-sep "\n%\n")
#@108 Appends STRING to the fortune FILE.

If INTERACTIVE is non-nil, don't compile the fortune file afterwards.
(defalias 'fortune-append #[(string &optional interactive file) "\306\307\206	!!\310!\203\311\312\"\210\n\203 \313!\210\202$\314!\210\315!\211q\210db\210\f\316\317 \210\261\210\n?\205M\320 \210\205M\321!)\207" [file fortune-file interactive fortune-buffer fortune-fill-column fill-column expand-file-name substitute-in-file-name file-directory-p error "Cannot append fortune to directory %s" find-file-other-frame find-file-noselect get-file-buffer "^%" turn-on-auto-fill save-buffer fortune-compile auto-fill-inhibit-regexp string fortune-end-sep fortune-always-compile] 4 (#$ . 3095)])
#@32 Asks the user for a file-name.
(defalias 'fortune-ask-file #[nil "\301\302\303\304\211\305%!\207" [fortune-dir expand-file-name read-file-name "Fortune file to use: " nil ""] 7 (#$ . 3823)])
#@157 Add STRING to a fortune file FILE.

Interactively, if called with a prefix argument,
read the file name to use.  Otherwise use the value of `fortune-file'.
(defalias 'fortune-add-fortune #[(string file) "\302\303	#\207" [string file fortune-append t] 4 (#$ . 4022) (list (read-string "Fortune: ") (if current-prefix-arg (fortune-ask-file)))])
#@183 Append the current region to a local fortune-like data file.

Interactively, if called with a prefix argument,
read the file name to use.  Otherwise use the value of `fortune-file'.
(defalias 'fortune-from-region #[(beg end file) "	{\306\211\211\212eb\210\307\310d\311#\211\203 \312\224\n{\202\"\313)\212eb\210\307\314d\311#\211\2039\312\224\n{\202U\315=\204N\316=\204N\317=\203S\202T\320)\321
\321\322\f\323\260\324
\311#,\207" [beg end help-point newsgroup author string nil search-forward-regexp "^From: \\(.*\\)$" t 1 "An unknown author" "^Newsgroups: \\(.*\\)$" gnus-article-mode vm-mode rmail-mode "unknown" "\"" "\n" " in " fortune-append major-mode fortune-from-mail fortune-author-line-prefix file] 9 (#$ . 4373) (list (region-beginning) (region-end) (if current-prefix-arg (fortune-ask-file)))])
#@165 Compile fortune file.

If called with a prefix asks for the FILE to compile, otherwise uses
the value of `fortune-file'.  This currently cannot handle directories.
(defalias 'fortune-compile #[(&optional file) "\306\307!!\306\307	\nP!!\310	!\2033\310!\2057\311	\"\2057\312\313\"\210\314\f
\315	\260!\2027\316\317	\"*\207" [file fortune-file fortune-database-extension fortune-dat fortune-strfile fortune-strfile-options expand-file-name substitute-in-file-name file-exists-p file-newer-than-file-p message "Compiling new fortune database %s" shell-command " " error "Can't compile fortune file %s" fortune-quiet-strfile-options] 6 (#$ . 5220) (list (if current-prefix-arg (fortune-ask-file) fortune-file))])
#@318 Create signature from output of the fortune program.

If called with a prefix asks for the FILE to choose the fortune from,
otherwise uses the value of `fortune-file'.  If you want to have fortune
choose from a set of files in a directory, call interactively with prefix
and choose the directory as the fortune-file.
(defalias 'fortune-to-signature #[(&optional file) "\212\306\307\"\210	q\210\310 \n\fQ\211\311\312!\205
\211\n+\207" [file fortune-buffer-name fortune fortune-sigstart fortune-sigend signature fortune-in-buffer t buffer-string boundp message-signature mail-signature] 4 (#$ . 5948) (list (if current-prefix-arg (fortune-ask-file) fortune-file))])
#@158 Put a fortune cookie in the *fortune* buffer.
INTERACTIVE is ignored.  Optional argument FILE, when supplied,
specifies the file to choose the fortune from.
(defalias 'fortune-in-buffer #[(_interactive &optional file) "\306!\206	\307!\310\311	\206\n!!r\fq\210\312\313 \210\203&\314!\210\315\316\317\f\317\320;\203;\321!\202=C\"&,\207" [fortune-buffer-name file fortune-file fort-file fortune-buffer inhibit-read-only get-buffer generate-new-buffer expand-file-name substitute-in-file-name t erase-buffer fortune-compile apply call-process nil append split-string fortune-always-compile fortune-program fortune-program-options] 9 (#$ . 6628)])
#@290 Display a fortune cookie.
If called with a prefix asks for the FILE to choose the fortune from,
otherwise uses the value of `fortune-file'.  If you want to have fortune
choose from a set of files in a directory, call interactively with prefix
and choose the directory as the fortune-file.
(defalias 'fortune #[(&optional file) "\303\304\"\210\305\306	!!\210\304\211\207" [file fortune-buffer-name buffer-read-only fortune-in-buffer t switch-to-buffer get-buffer] 3 (#$ . 7302) (list (if current-prefix-arg (fortune-ask-file) fortune-file))])
(provide 'fortune)