From 0ed5b1813c561b0290b3ebbe2e0eb9bba6156076 Mon Sep 17 00:00:00 2001 From: Jesper Harder Date: Wed, 3 Mar 2004 23:26:23 +0000 Subject: [PATCH] (rfc2047-encoded-word-regexp): Support RFC 2231 language tags. --- lisp/ChangeLog | 5 +++++ lisp/rfc2047.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dc1c752c8..1cec34cad 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-03-04 Jesper Harder + + * rfc2047.el (rfc2047-encoded-word-regexp): Support RFC 2231 + language tags. + 2004-03-03 Per Abrahamsen * gnus-agent.el (gnus-agent-read-local, gnus-agent-save-local): diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el index 9832fd501..ebd8a4a41 100644 --- a/lisp/rfc2047.el +++ b/lisp/rfc2047.el @@ -607,8 +607,8 @@ By default, the region is treated as containing addresses (see (eval-and-compile (defconst rfc2047-encoded-word-regexp - "=\\?\\([^][\000-\040()<>@,\;:\\\"/?.=]+\\)\\?\\(B\\|Q\\)\ -\\?\\([!->@-~ +]*\\)\\?=")) + "=\\?\\([^][\000-\040()<>@,\;:*\\\"/?.=]+\\)(?:\\*[^?]+\\)?\ +\\?\\(B\\|Q\\)\\?\\([!->@-~ +]*\\)\\?=")) ;; Fixme: This should decode in place, not cons intermediate strings. ;; Also check whether it needs to worry about delimiting fields like -- 2.25.1