Lines Matching defs:mail
158 "*Electronic mail address of the Translation Project.
159 Typing \\[po-send-mail] (normally bound to `M') the user will send the PO file
164 (defcustom po-translation-project-mail-label "TP-Robot"
469 "*The filter to use for preparing a mail invoice of the PO file.
950 ["Mail officially" po-send-mail
952 '(:help "Send current translation file to the Translation Robot by mail"))]
989 (defvar po-compose-mail-function
990 (let ((functions '(compose-mail-other-window
991 message-mail-other-window
992 compose-mail
993 message-mail))
1000 ((fboundp 'mail-other-window)
1002 (mail-other-window nil to subject))))
1003 ((fboundp 'mail)
1005 (mail nil to subject))))
1007 (error (_"I do not know how to mail to '%s'") to))))))
1115 (define-key po-mode-map "M" 'po-send-mail)
3373 (defun po-send-mail ()
3382 (if (not (y-or-n-p (_"Include current PO file in mail? ")))
3383 (apply po-compose-mail-function address
3405 (apply po-compose-mail-function address
3408 (format "%s %s" po-translation-project-mail-label name))
3412 (concat "^" (regexp-quote mail-header-separator) "\n"))