[config.git] / djavu-asus / elpa / jabber-20230715.456 / jabber-compose.elc

;ELC\1c\0\0\0
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.


#@108 Create a buffer for composing a Jabber message.

JC is the Jabber connection.

(fn JC &optional RECIPIENT)\1f
(defalias 'jabber-compose #[513 "r\303\304\305\ 3\205\ f\0\306\307\310\ 6\ 6!\"P!!q\210\311\300!\210\312\10\ 1\11\313\n!\210\314\315\316\317#c\210\320\321!c\210\322\323\324\325\ 4\2056\0\ 4C#B\bB\10\326c\210\327\323\330\325\331#B\bB\10\332c\210\333\323\334\325\331#B\bB\10\335c\210\323\336\337\340\341$\210\342 \210\343p!\210eb)\207" [jabber-widget-alist jabber-buffer-connection widget-keymap get-buffer-create generate-new-buffer-name "Jabber-Compose" format "-%s" jabber-jid-displayname make-local-variable nil use-local-map jabber-propertize "Compose Jabber message\n" face jabber-title-large substitute-command-keys "\\<widget-field-keymap>Completion available with \\[widget-complete].\n" :recipients widget-create (repeat :tag "Recipients" jid) :value "\nSubject: " :subject editable-field "" "\nText:\n" :text text "\n" push-button :notify jabber-compose-send "Send" widget-setup switch-to-buffer] 9 (#$ . 85) (byte-code "\300 \301\302!D\207" [jabber-read-account jabber-read-jid-completing "To whom? "] 3)])
#@21 

(fn &rest IGNORE)\1f
(defalias 'jabber-compose-send #[128 "\302\303\b\236A!\302\304\b\236A!\302\305\b\236A!\ 2\204\1a\0\306\307!\210\ 2\211\2032\0\211@\310	\ 2\ 6\ 6\ 6\ 6\311%\210\ 1A\266\202\202\e\0\210\312 \210\313\314!\207" [jabber-widget-alist jabber-buffer-connection widget-value :recipients :subject :text error "No recipients specified" jabber-send-message nil bury-buffer message "Message sent"] 12 (#$ . 1186)])
(provide 'jabber-compose)
Commit	Line	Data
53e6db90 DC	1	;ELC\1c\0\0\0
	2	;;; Compiled
	3	;;; in Emacs version 28.2
	4	;;; with all optimizations.
	5
	6
	7
	8	#@108 Create a buffer for composing a Jabber message.
	9
	10	JC is the Jabber connection.
	11
	12	(fn JC &optional RECIPIENT)\1f
	13	(defalias 'jabber-compose #[513 "r\303\304\305\ 3\205\ f\0\306\307\310\ 6\ 6!\"P!!q\210\311\300!\210\312\10\ 1\11\313\n!\210\314\315\316\317#c\210\320\321!c\210\322\323\324\325\ 4\2056\0\ 4C#B\bB\10\326c\210\327\323\330\325\331#B\bB\10\332c\210\333\323\334\325\331#B\bB\10\335c\210\323\336\337\340\341$\210\342 \210\343p!\210eb)\207" [jabber-widget-alist jabber-buffer-connection widget-keymap get-buffer-create generate-new-buffer-name "Jabber-Compose" format "-%s" jabber-jid-displayname make-local-variable nil use-local-map jabber-propertize "Compose Jabber message\n" face jabber-title-large substitute-command-keys "\\<widget-field-keymap>Completion available with \\[widget-complete].\n" :recipients widget-create (repeat :tag "Recipients" jid) :value "\nSubject: " :subject editable-field "" "\nText:\n" :text text "\n" push-button :notify jabber-compose-send "Send" widget-setup switch-to-buffer] 9 (#$ . 85) (byte-code "\300 \301\302!D\207" [jabber-read-account jabber-read-jid-completing "To whom? "] 3)])
	14	#@21
	15
	16	(fn &rest IGNORE)\1f
	17	(defalias 'jabber-compose-send #[128 "\302\303\b\236A!\302\304\b\236A!\302\305\b\236A!\ 2\204\1a\0\306\307!\210\ 2\211\2032\0\211@\310 \ 2\ 6\ 6\ 6\ 6\311%\210\ 1A\266\202\202\e\0\210\312 \210\313\314!\207" [jabber-widget-alist jabber-buffer-connection widget-value :recipients :subject :text error "No recipients specified" jabber-send-message nil bury-buffer message "Message sent"] 12 (#$ . 1186)])
	18	(provide 'jabber-compose)