Show
Ignore:
Timestamp:
2007年04月07日 15時49分28秒 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/erc/erc-services.el

    r4190 r4200  
    169169          (list :tag "Network" 
    170170                (choice :tag "Network name" 
    171                         (const freenode) 
    172                         (const OFTC) 
    173                         (const DALnet) 
    174                         (const GalaxyNet) 
    175                         (const SlashNET) 
    176                         (const BRASnet) 
    177                         (const iip) 
     171                        (const Ars) 
    178172                        (const Austnet) 
    179173                        (const Azzurra) 
     174                        (const BitlBee) 
     175                        (const BRASnet) 
     176                        (const DALnet) 
     177                        (const freenode) 
     178                        (const GalaxyNet) 
     179                        (const iip) 
     180                        (const OFTC) 
     181                        (const QuakeNet) 
     182                        (const SlashNET) 
    180183                        (symbol :tag "Network name")) 
    181184                (repeat :tag "Nickname and password" 
    …… 
    187190 
    188191(defcustom erc-nickserv-alist 
    189   '((BitlBee 
    190      nil 
    191      nil 
     192  '((Ars 
     193     nil nil 
     194     "Census" 
     195     "IDENTIFY" nil nil) 
     196    (Austnet 
     197     "NickOP!service@austnet.org" 
     198     "/msg\\s-NickOP@austnet.org\\s-identify\\s-<password>" 
     199     "nickop@austnet.org" 
     200     "identify" nil nil) 
     201    (Azzurra 
     202     "NickServ!service@azzurra.org" 
     203     "/ns\\s-IDENTIFY\\s-password" 
     204     "NickServ" 
     205     "IDENTIFY" nil nil) 
     206    (BitlBee 
     207     nil nil 
    192208     "&bitlbee" 
    193      "identify" 
    194      nil) 
     209     "identify" nil nil) 
     210    (BRASnet 
     211     "NickServ!services@brasnet.org" 
     212     "/NickServ\\s-IDENTIFY\\s-senha" 
     213     "NickServ" 
     214     "IDENTIFY" nil "") 
    195215    (DALnet 
    196216     "NickServ!service@dal.net" 
    197217     "/msg\\s-NickServ@services.dal.net\\s-IDENTIFY\\s-<password>" 
    198218     "NickServ@services.dal.net" 
    199      "IDENTIFY" 
    200      nil) 
     219     "IDENTIFY" nil nil) 
    201220    (freenode 
    202221     "NickServ!NickServ@services." 
    203222     "/msg\\s-NickServ\\s-IDENTIFY\\s-<password>" 
    204223     "NickServ" 
    205      "IDENTIFY" 
    206      nil) 
     224     "IDENTIFY" nil nil) 
    207225    (GalaxyNet 
    208226     "NS!nickserv@galaxynet.org" 
    209227     "Please\\s-change\\s-nicks\\s-or\\s-authenticate." 
    210228     "NS@services.galaxynet.org" 
    211      "AUTH" 
    212      t) 
     229     "AUTH" t nil) 
     230    (iip 
     231     "Trent@anon.iip" 
     232     "type\\s-/squery\\s-Trent\\s-identify\\s-<password>" 
     233     "Trent@anon.iip" 
     234     "IDENTIFY" nil "SQUERY") 
     235    (OFTC 
     236     "NickServ!services@services.oftc.net" 
     237     "type\\s-/msg\\s-NickServ\\s-IDENTIFY\\s-password." 
     238     "NickServ" 
     239     "IDENTIFY" nil nil) 
     240    (QuakeNet 
     241     nil nil 
     242     "Q@CServe.quakenet.org" 
     243     "auth" t nil) 
    213244    (SlashNET 
    214245     "NickServ!services@services.slashnet.org" 
    215246     "/msg\\s-NickServ\\s-IDENTIFY\\s-password" 
    216247     "NickServ@services.slashnet.org" 
    217      "IDENTIFY" 
    218      nil) 
    219     (iip 
    220      "Trent@anon.iip" 
    221      "type\\s-/squery\\s-Trent\\s-identify\\s-<password>" 
    222      "Trent@anon.iip" 
    223      "IDENTIFY" 
    224      nil 
    225      "SQUERY") 
    226     (BRASnet 
    227      "NickServ!services@brasnet.org" 
    228      "/NickServ\\s-IDENTIFY\\s-senha" 
    229      "NickServ" 
    230      "IDENTIFY" 
    231      nil 
    232      "") 
    233     (Austnet 
    234      "NickOP!service@austnet.org" 
    235      "/msg\\s-NickOP@austnet.org\\s-identify\\s-<password>" 
    236      "nickop@austnet.org" 
    237      "identify" 
    238      nil) 
    239     (Azzurra 
    240      "NickServ!service@azzurra.org" 
    241      "/ns\\s-IDENTIFY\\s-password" 
    242      "NickServ" 
    243      "IDENTIFY" 
    244      nil) 
    245     (OFTC 
    246      "NickServ!services@services.oftc.net" 
    247      "/msg\\s-NickServ\\s-IDENTIFY\\s-\^_password" 
    248      "NickServ" 
    249      "IDENTIFY" 
    250      nil)) 
     248     "IDENTIFY" nil nil)) 
    251249   "Alist of NickServer details, sorted by network. 
    252250Every element in the list has the form 
    …… 
    266264           (list :tag "Nickserv data" 
    267265                 (symbol :tag "Network name") 
    268                  (string :tag "Nickserv's nick!user@host") 
    269                  (regexp :tag "Identify request sent by Nickserv") 
     266                 (choice (string :tag "Nickserv's nick!user@host") 
     267                         (const :tag "No message sent by Nickserv" nil)) 
     268                 (choice (regexp :tag "Identify request sent by Nickserv") 
     269                         (const :tag "No message sent by Nickserv" nil)) 
    270270                 (string :tag "Identify to") 
    271271                 (string :tag "Identify keyword")