;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


(byte-code "\300\301!\210\300\302!\207" [require tex latex] 2)
#@39 Package options for the letter class.
(defvar LaTeX-letter-class-options '("a4paper" "a5paper" "b5paper" "letterpaper" "legalpaper" "executivepaper" "landscape" "10pt" "11pt" "12pt" "oneside" "twoside" "draft" "final" "leqno" "fleqn") (#$ . 150))
#@72 Initial value when prompting for a sender address in the letter style.
(defvar LaTeX-letter-sender-address "" (#$ . 403))
(TeX-add-style-hook "letter" #[0 "\302\303!\210\304\305\306\"\210\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336&\210\337\340!\2055 	\341=\2055 \342\343\344\"\207" [LaTeX-default-document-environment TeX-install-font-lock LaTeX-add-environments ("letter" LaTeX-env-recipient) LaTeX-add-pagestyles "headings" "firstpage" "letter" TeX-add-symbols ("name" "Sender") ("address" "Sender address") ("signature" "Signature") ("opening" "Opening") ("closing" "Closing") "location" "telephone" "makelabels" "stopbreaks" "startbreaks" "cc" "encl" "ps" "stopletter" "returnaddress" "startlabels" "mlabel" "descriptionlabel" "ccname" "enclname" "pagename" "headtoname" featurep font-latex font-latex-setup font-latex-add-keywords (("name" "{") ("address" "{") ("signature" "{") ("opening" "{") ("closing" "{") ("location" "{") ("telephone" "{") ("cc" "{") ("encl" "{") ("ps" "{")) function] 23] TeX-dialect)
#@76 Insert ENVIRONMENT and prompt for recipient and address.

(fn ENVIRONMENT)
(defalias 'LaTeX-env-recipient #[257 "\304\305\306 \"\304\307\"\304\310!\304\311!\304\312!\304\313!\304\314!\304\315\316 \"\317\320!\203' \320\202( \321	\322\n\261\210\323 \210G\324U\204K 	\325\n\n\261\210\323 \210G\324U\204^ 	\326\n\261\210\323 \210G\324U\204u 	\327\n	\330\n\261	\210\323 \210\323 \210i\331\n\n\nG\324U?\205\231 G\324U?\205\226 \332	\211\332RPR\"\210\212\333\334\335#\203\310 \336 \333\n\334\335#\203\307 i\337	\211P\340!\335#\203\306 \341 \210\211j\210\202\261 \210\210)\342c\210\211j\266	\343\nG\324U\203\341 	\332P\202\343 \342\261\210\211 \210\212\342	\344\nG\324U\203\376 	\332P\202 \342\261\210\211 )\207" [LaTeX-letter-sender-address TeX-esc TeX-grop TeX-grcl TeX-read-string "Sender: " user-full-name "Sender address: " "Recipient: " "Recipient address: " "Signature: " "Opening: " "Closing: " "Date: " LaTeX-today fboundp indent-relative-first-indent-point indent-relative-maybe "name" newline-and-indent 0 "address" "signature" "renewcommand" "today" LaTeX-insert-environment " " search-backward nil move point-marker search-forward marker-position newline "\n" "opening" "closing"] 19 (#$ . 1478)])
#@63 Return a string representing todays date according to flavor.
(defalias 'LaTeX-today #[0 "\300 \301\302\303\"\210\304\224\304\225O\305\224\305\225O\306\224\306\225O\307\"\2034 \307\"A\262\306GV\2034 \310P\262\311\312$\207" [current-time-string (("Jan" . "01") ("Feb" . "02") ("Mar" . "03") ("Apr" . "04") ("May" . "05") ("Jun" . "06") ("Jul" . "07") ("Aug" . "08") ("Sep" . "09") ("Oct" . "10") ("Nov" . "11") ("Dec" . "12")) string-match "^\\S-+\\s-+\\(\\S-+\\)\\s-+\\(\\S-+\\)\\s-+\\S-+\\s-+\\(\\S-+\\)" 3 1 2 assoc "0" format "%s-%s-%s"] 10 (#$ . 2735) nil])