diff options
Diffstat (limited to 'lisp/mail/mail-extr.el')
| -rw-r--r-- | lisp/mail/mail-extr.el | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el index 5164ea1bfed..a7057ca21c8 100644 --- a/lisp/mail/mail-extr.el +++ b/lisp/mail/mail-extr.el @@ -329,7 +329,7 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"." ;; Matches an embedded or leading nickname that should be removed. ;; (defconst mail-extr-nickname-pattern ;; (purecopy -;; (format "\\([ .]\\|\\`\\)[\"'`\[\(]\\([ .%s]+\\)[\]\"'\)] " +;; (format "\\([ .]\\|\\`\\)[\"'`[(]\\([ .%s]+\\)[]\"')] " ;; mail-extr-all-letters))) ;; Matches the occurrence of a generational name suffix, and the last @@ -369,7 +369,7 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"." ;; Matches a variety of trailing comments not including comma-delimited ;; comments. (defconst mail-extr-trailing-comment-start-pattern - (purecopy " [-{]\\|--\\|[+@#></\;]")) + (purecopy " [-{]\\|--\\|[+@#></;]")) ;; Matches a name (not an initial). ;; This doesn't force a word boundary at the end because sometimes a @@ -456,7 +456,7 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"." ;; mode from GB back to ASCII. (Note that the escape-from-GB code '~}' ;; ($7E7D) is outside the defined GB range.) (defconst mail-extr-hz-embedded-gb-encoded-chinese-pattern - (purecopy "~{\\([^~].\\|~[^\}]\\)+~}")) + (purecopy "~{\\([^~].\\|~[^}]\\)+~}")) ;; The leading optional lowercase letters are for a bastardized version of ;; the encoding, as is the optional nature of the final slash. @@ -543,8 +543,8 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"." (?\t " ") (?\r " ") (?\n " ") - (?\( "\(\)") - (?\) "\)\(") + (?\( "()") + (?\) ")(") (?\\ "\\")) (mail-extr-address-domain-literal-syntax-table (?\000 ?\377 "w") @@ -553,8 +553,8 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"." (?\t " ") (?\r " ") (?\n " ") - (?\[ "\(\]") ;?????? - (?\] "\)\[") ;?????? + (?\[ "(]") ;?????? + (?\] ")[") ;?????? (?\\ "\\")) (mail-extr-address-text-comment-syntax-table (?\000 ?\377 "w") @@ -563,16 +563,16 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"." (?\t " ") (?\r " ") (?\n " ") - (?\( "\(\)") - (?\) "\)\(") - (?\[ "\(\]") - (?\] "\)\[") - (?\{ "\(\}") - (?\} "\)\{") + (?\( "()") + (?\) ")(") + (?\[ "(]") + (?\] ")[") + (?\{ "(}") + (?\} "){") (?\\ "\\") (?\" "\"") - ;; (?\' "\)\`") - ;; (?\` "\(\'") + ;; (?\' ")`") + ;; (?\` "('") ) (mail-extr-address-text-syntax-table (?\000 ?\177 ".") |