[Erc-commit] [commit][emacs22] New option: erc-system-name

[mwolson]

commit 2ca553a033aeb36764148398018e84718367df2a
Author: Michael Olson <address@hidden>
Date:   Tue Jan 9 07:00:17 2007 +0000

    New option: erc-system-name
    
    2007-01-09  Michael Olson  <address@hidden>
    
        * erc.el (erc-system-name): New option that determines the system
        name to use when logging in.  The default is to figure this out by
        calling `system-name'.
        (erc-login): Use it.
    git-archimport-id: address@hidden/erc--main--0--patch-79

diff --git a/ChangeLog b/ChangeLog
index 51ba380..ade1625 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2007-01-09  Michael Olson  <address@hidden>
+
+       * erc.el (erc-system-name): New option that determines the system
+       name to use when logging in.  The default is to figure this out by
+       calling `system-name'.
+       (erc-login): Use it.
+
 2007-01-07  Michael Olson  <address@hidden>
 
        * erc.el (erc-modules): Add the menu module.  This should fix a
diff --git a/erc.el b/erc.el
index dd784c6..69fdc83 100644
--- a/erc.el
+++ b/erc.el
@@ -790,6 +790,13 @@ set if some hacker is trying to flood you away."
   :group 'erc
   :type 'string)
 
+(defcustom erc-system-name nil
+  "Use this as the name of your system.
+If nil, ERC will call `system-name' to get this information."
+  :group 'erc
+  :type '(choice (const :tag "Default system name" nil)
+                string))
+
 (defcustom erc-ignore-list nil
   "*List of regexps matching user identifiers to ignore.
 
@@ -5441,7 +5448,7 @@ user input."
   (erc-log (format "login: nick: %s, user: %s %s %s :%s"
                   (erc-current-nick)
                   (user-login-name)
-                  (system-name)
+                  (or erc-system-name (system-name))
                   erc-session-server
                   erc-session-user-full-name))
   (if erc-session-password