A little more customizability.

diff --git a/misc/ChangeLog b/misc/ChangeLog
index d0fda4f48b764c790ce83a1fca41e93fff48c166..7c8a1845f639f9c95faa7008390ee926e37fd67b 100644 (file)
--- 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 674294e1210c78ac723f4c67dfe1efd5ad280cca..04a5798baf209f782e8997bac898e0837c54f144 100644 (file)
--- 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