Lines Matching refs:mail
144 "*Electronic mail address of the Translation Project.
145 Typing \\[po-send-mail] (normally bound to `M') the user will send the PO file
150 (defcustom po-translation-project-mail-label "TP-Robot"
154 the label is different, your submission will be consiedered as a regular mail
361 "*The filter to use for preparing a mail invoice of the PO file.
838 ["Mail officially" po-send-mail
840 '(:help "Send current translation file to the Translation Robot by mail"))]
878 (defvar po-compose-mail-function
879 (let ((functions '(compose-mail-other-window
880 message-mail-other-window
881 compose-mail
882 message-mail))
889 ((fboundp 'mail-other-window)
891 (mail-other-window nil to subject))))
892 ((fboundp 'mail)
894 (mail nil to subject))))
896 (error (_"I do not know how to mail to '%s'") to))))))
997 (define-key po-mode-map "M" 'po-send-mail)
3237 (defun po-send-mail ()
3246 (if (not (y-or-n-p (_"Include current PO file in mail? ")))
3247 (apply po-compose-mail-function address
3269 (apply po-compose-mail-function address
3272 (format "%s %s" po-translation-project-mail-label name))
3276 (concat "^" (regexp-quote mail-header-separator) "\n"))