Re: cleaning up a big regexp

[Michael Albinus]

Joost Kremers <joost.m.kremers@gmail.com> writes:

> There's the function `regexp-opt', which takes a list of strings and
> returns a regular expression that will match any of those strings.
> Perhaps you can use that?

regexp-opt cannot handle meta characters like "*". The OP showed such a regexp.

Maybe somthing like this works (untested):

(setq my-gnus-bulk-regexp
      (concat
       "^\\(From:.*@"
       (regexp-opt
        '("maillist.codeproject.com"
          "papajohns-specials.com"
          "qomail.quikorder.com"
          "linkedin.com"
          "facebookmail.com"
          "plus.google.com"
          "twitter.com"
          "youtube.com"
          "linguistlist.org"
          "sportsauthority.com")
        'par)
       "\\)\\|\\(To:.*torysanderson@gmail.com\\)"))

Best regards, Michael.