;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



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

If INTERACTIVE is non-nil, don't compile the fortune file afterwards.

(fn STRING &optional INTERACTIVE FILE)
(defalias 'fortune-append #[769 "\306\307\206!!\262
\310
!\203\311\312\"\210
\203!\313
!\210\202%\314
!\210\315
!\211q\210db\210	\316\317 \210\f\261\210?\205I\320 \210
\205I\321!\207" [fortune-file fortune-fill-column fill-column auto-fill-inhibit-regexp fortune-end-sep fortune-always-compile 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] 6 (#$ . 3018)])
#@53 Ask the user for the file name of the fortune file.
(defalias 'fortune-ask-file #[0 "\301\302\303\304\211\305%!\207" [fortune-dir expand-file-name read-file-name "Fortune file to use: " nil ""] 7 (#$ . 3710)])
#@175 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'.

(fn STRING FILE)
(defalias 'fortune-add-fortune #[514 "\300\301#\207" [fortune-append t] 6 (#$ . 3928) (byte-code "\301\302!\205	\303 D\207" [current-prefix-arg read-string "Fortune: " fortune-ask-file] 2)])
#@202 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'.

(fn BEG END FILE)
(defalias 'fortune-from-region #[771 "{\303\211\211\212eb\210\304\305d\306#\262
\211\203\307\224
{\262\202!\310\262)\212eb\210\304\311d\306#\262
\211\203:\307\224
{\262\202S\312=\204L\313=\204L\314=\203P	\202Q\315\262)\316\317\n\320\260\262\321\306#\207" [major-mode fortune-from-mail fortune-author-line-prefix nil search-forward-regexp "^From: \\(.*\\)$" t 1 "An unknown author" "^Newsgroups: \\(.*\\)$" gnus-article-mode vm-mode rmail-mode "unknown" "\"" "\"\n" " in " fortune-append] 14 (#$ . 4304) (byte-code "\301 \302 \205\n\303 E\207" [current-prefix-arg region-beginning region-end fortune-ask-file] 3)])
#@186 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.

(fn &optional FILE)
(defalias 'fortune-compile #[256 "\305\306!!\305\306	P!!\307\n!\206\310\311\n\"\312!\2035\313\"\2059\314\315\"\210\316
\317\f\260!\2029\310\320\")\207" [fortune-file fortune-database-extension fortune-strfile fortune-strfile-options fortune-quiet-strfile-options expand-file-name substitute-in-file-name executable-find error "Can't find strfile program %s" file-exists-p file-newer-than-file-p message "Compiling new fortune database %s" shell-command " " "Can't compile fortune file %s"] 9 (#$ . 5156) (byte-code "\203	\302 \202\n	C\207" [current-prefix-arg fortune-file fortune-ask-file] 1)])
#@339 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.

(fn &optional FILE)
(defalias 'fortune-to-signature #[256 "\212\305\306\"\210q\210\307 	
\nQ\211\310\304!\205\211\211\266\202)\207" [fortune-buffer-name fortune-sigstart fortune-sigend mail-signature message-signature fortune-in-buffer t buffer-string boundp] 5 (#$ . 5963) (byte-code "\203	\302 \202\n	C\207" [current-prefix-arg fortune-file fortune-ask-file] 1)])
#@191 Put a fortune cookie in the *fortune* buffer.
INTERACTIVE is ignored.  Optional argument FILE, when supplied,
specifies the file to choose the fortune from.

(fn INTERACTIVE &optional FILE)
(defalias 'fortune-in-buffer #[513 "\306!\206	\307!\310\311\206	!!r
q\210\312\313 \210\203#\314
!\210\315\316\f\317\317\320
;\2035\321
!\2026
C\"&*\207" [fortune-buffer-name fortune-file inhibit-read-only fortune-always-compile fortune-program fortune-program-options get-buffer generate-new-buffer expand-file-name substitute-in-file-name t erase-buffer fortune-compile apply call-process nil append split-string] 13 (#$ . 6663)])
#@201 Display a fortune cookie to the mini-buffer.
If called with a prefix, it has the same behavior as `fortune'.
Optional FILE is a fortune file from which a cookie will be selected.

(fn &optional FILE)
(defalias 'fortune-message #[256 "\301\302\303\"r\211q\210\304\305\"\216p\306\303\"\210n\203\307\310!\210\311\312\313 \"+\207" [fortune-buffer-name generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] fortune-in-buffer delete-char -1 message "%s" buffer-string] 5 (#$ . 7307) (byte-code "\203	\302 \202\n	C\207" [current-prefix-arg fortune-file fortune-ask-file] 1)])
#@311 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.

(fn &optional FILE)
(defalias 'fortune #[256 "\302\303\"\210\304\305!!\210\303\211\207" [fortune-buffer-name buffer-read-only fortune-in-buffer t switch-to-buffer get-buffer] 4 (#$ . 7949) (byte-code "\203	\302 \202\n	C\207" [current-prefix-arg fortune-file fortune-ask-file] 1)])
(provide 'fortune)