diff options
author | Bruno Haible <bruno@clisp.org> | 2002-02-11 13:45:46 +0000 |
---|---|---|
committer | Bruno Haible <bruno@clisp.org> | 2009-06-22 01:18:52 +0200 |
commit | 92424007bb338710fa35f765537f05f0096b7ab8 (patch) | |
tree | 247bd9551bc65d78291aa62871d268cd281e2860 /misc | |
parent | 96ad11383679e16e94af21790364e53eca75b33a (diff) | |
download | external_gettext-92424007bb338710fa35f765537f05f0096b7ab8.zip external_gettext-92424007bb338710fa35f765537f05f0096b7ab8.tar.gz external_gettext-92424007bb338710fa35f765537f05f0096b7ab8.tar.bz2 |
A little more customizability.
Diffstat (limited to 'misc')
-rw-r--r-- | misc/ChangeLog | 7 | ||||
-rw-r--r-- | misc/po-mode.el | 23 |
2 files changed, 25 insertions, 5 deletions
diff --git a/misc/ChangeLog b/misc/ChangeLog index d0fda4f..7c8a184 100644 --- a/misc/ChangeLog +++ b/misc/ChangeLog @@ -1,3 +1,10 @@ +2002-02-09 Karl Eichwalder <ke@suse.de> + + * po-mode.el (po-translation-project-address): Convert it to a + customizable variable. + (po-translation-project-mail-label): New variable. + (po-send-mail): Use it. + 2002-02-01 Karl Eichwalder <ke@suse.de> * po-mode.el (po-mode-version-string): New variable. diff --git a/misc/po-mode.el b/misc/po-mode.el index 674294e..04a5798 100644 --- a/misc/po-mode.el +++ b/misc/po-mode.el @@ -136,6 +136,23 @@ msgstr \"\" :type 'string :group 'po) +(defcustom po-translation-project-address + "translation@iro.umontreal.ca" + "*Electronic mail address of the Translation Project. +Typing \\[po-send-mail] (normally bound to `M') the user will send the PO file +to this email address." + :type 'string + :group 'po) + +(defcustom po-translation-project-mail-label "TP-Robot" + "*Subject label when sending the PO file to `po-translation-project-address'. +Don't change it when you send PO files to \"translation@iro.umontreal.ca\", the +Translation Project Robot at http://www.iro.umontreal.ca/contrib/po/HTML/. If +the label is different, your submission will be consiedered as a regular mail +and not stored at the TP site and also not forwarded to the package maintainer." + :type 'string + :group 'po) + (defcustom po-highlighting (or po-EMACS20 po-XEMACS) "*Highlight text whenever appropriate, when non-nil. However, on older Emacses, a yet unexplained highlighting bug causes files @@ -841,10 +858,6 @@ Content-Type into a Mule coding system.") (defvar po-auxiliary-cursor nil "Cursor into the 'po-auxiliary-list'.") -(defvar po-translation-project-address - "translation@iro.umontreal.ca" - "Electronic mail address of the Translation Project.") - (defvar po-compose-mail-function (let ((functions '(compose-mail-other-window message-mail-other-window @@ -3266,7 +3279,7 @@ Write to your team? ('n' if writing to the Translation Project robot) "))) (apply po-compose-mail-function address (if team-flag (read-string (_"Subject? ")) - (format "TP-Robot %s" name)) + (format "%s %s" po-translation-project-mail-label name)) nil) (goto-char (point-min)) (re-search-forward |