(Emacs Lisp): Use `...?' rather than `\(...\|\)' in regular expressions.

[profile] / dot / gnus-local.el.distorted

diff --git a/dot/gnus-local.el.distorted b/dot/gnus-local.el.distorted
index 7bfba60..5483fc6 100644 (file)
--- a/dot/gnus-local.el.distorted
+++ b/dot/gnus-local.el.distorted
@@ -36,7 +36,7 @@
                  "\\|"  "evade\\.org\\.uk"
                  "\\|"  "fyvzl\\.net"
                  "\\)$") . chiark-smtp)
-       ("@g\\(\\|oogle\\)mail\\.com$" . gmail-smtp))
+       ("@g\\(oogle\\)?mail\\.com$" . gmail-smtp))
       mdw-default-send-mail-method nil)
 
 ;;;--------------------------------------------------------------------------
@@ -155,7 +155,7 @@
          ;; Mailing lists, not split out earlier.
          (to "python-list@python\\.org" "lists.python")
          (to ,(concat "\\(jump-\\(announce\\|discuss\\)\\)@"
-                      "\\(lists\\.\\|\\)" "jump\\.net\\.uk")
+                      "\\(lists\\.\\)?" "jump\\.net\\.uk")
              "lists.\\1")
          (to "cambridgecryptowhiskyclub@gmail\\.com"
              "lists.cambridge-crypto-whisky")
@@ -188,7 +188,7 @@
 
          ;; Other splits I've not given a per-sender address.
          (from "@\\(.*\\.\\)?lovefilm\\.com\\>" "crap.lovefilm" t)
-         (from "@\\(\\|.*\\.\\)amazon\\." "crap.amazon" t)
+         (from "@\\(.*\\.\\)?amazon\\." "crap.amazon" t)
          (from "@cineworldmail\\.com\\>" "crap.cineworld" t)
          (from "@picturehouses\\.co\\.uk\\>" "crap.picturehouse" t)
          (from "@nationwide" "crap.nationwide" t)