;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. #@49 Create a buffer for composing a Jabber message. (defalias 'jabber-compose #[(jc &optional recipient) "r\305\306\307\205\310\311\312!\"P!!q\210\313\301!\210\314\n\315\f!\210\316\317\320\321#c\210\322\323!c\210\324\325\326\327\2055C#B B\330c\210\331\325\332\327\333#B B\334c\210\335\325\336\327\333#B B\337c\210\325\340\341\342\343$\210\344 \210\345p!\210eb)\207" [recipient jabber-widget-alist jc 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 "\\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] 7 (#$ . 87) (list (jabber-read-account) (jabber-read-jid-completing "To whom? "))]) (defalias 'jabber-compose-send #[(&rest ignore) "\306\307\236A!\306\310\236A!\306\311\236A!\211\204\312\313!\210 \314\211\2038 @\315\f\n \314%\210 A\211\204%*\316 \210\317\320!+\207" [jabber-widget-alist text subject recipients to --dolist-tail-- widget-value :recipients :subject :text error "No recipients specified" nil jabber-send-message bury-buffer message "Message sent" jabber-buffer-connection] 7]) (provide 'jabber-compose)